[Top][All Lists]

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Re: calendar-goto-iso-week

From: Detlev Zundel
Subject: Re: calendar-goto-iso-week
Date: Sat, 04 Sep 2004 18:39:42 +0200
User-agent: Gnus/5.1006 (Gnus v5.10.6) Emacs/21.3.50 (gnu/linux)

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."
     (require 'cal-iso)
     (let* ((year (extract-calendar-year (calendar-cursor-to-date t)))
            (no-weeks (extract-calendar-month
                          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.


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

reply via email to

[Prev in Thread] Current Thread [Next in Thread]