Re: calendar-goto-iso-week

[Detlev Zundel]

Richard Stallman <address@hidden> wrote:

>     It is somewhat unfortunate that one can't find
>     `calendar-goto-iso-date' using an apropos search with
>     "calendar.*week", but I can't suggest a better name either.
>
> We could add an alias or trivial interface function named
> calendar-goto-week if that will be useful.

As I argued, an alias would be nice to at least find the functionality
but I still like a function that prompts me for only the week as I
want to use it while being in the middle of a conversation.  So I vote
for the "trivial interface function" suggested by Emilio Lopes
<address@hidden> and bind it e.g. to "g w" in calendar-mode:

(defun calendar-goto-iso-week (week year)
  "Move cursor to ISO week number WEEK of year YEAR.
Interactively uses the \"current\" year and just asks for a week number."
  (interactive
   (progn 
     (require 'cal-iso)
     (let* ((year (extract-calendar-year (calendar-cursor-to-date t)))
            (no-weeks (extract-calendar-month
                       (calendar-iso-from-absolute
                        (1-
                         (calendar-dayname-on-or-before
                          1 (calendar-absolute-from-gregorian
                             (list 1 4 (1+ year))))))))
            (week (calendar-read
                   (format "ISO calendar week (1-%d): " no-weeks)
                   '(lambda (x) (and (> x 0) (<= x no-weeks))))))
       (list week year))))
  (calendar-goto-iso-date (list week calendar-week-start-day year)))

This works fine for me.

Thanks
  Detlev

-- 
Each language has its purpose, however humble. Each language expresses
the Yin and Yang of software. Each language has its place within the Tao.

But do not program in COBOL if you can avoid it.
                           -- The Tao of Programming