how to get calendar- for an offset day

how to get calendar- for an offset day

[Mirko]

Hi,

For a personal log, I use the `calendar-current-date' function
together with calendar-date-display-form to insert the current date
into the diary.  But sometimes I am lazy, or I forget, and I need to
insert yesterday's date into the calendar.

I did not find anything in calendar.el (but I might have missed it).
Any other options?

Thanks,

Mirko

Re: how to get calendar- for an offset day

[Edward M. Reingold]

>>>>> "M" == Mirko  <mvukovic@nycap.rr.com> writes:

    M> Hi, For a personal log, I use the `calendar-current-date' function
    M> together with calendar-date-display-form to insert the current date
    M> into the diary.  But sometimes I am lazy, or I forget, and I need to
    M> insert yesterday's date into the calendar.

    M> I did not find anything in calendar.el (but I might have missed it).
    M> Any other options?

This suggests an improvement to calendar.el.  Change the function
calendar-current-date to have an optional OFFSET:

(defun calendar-current-date (&optional offset)
  "Return the current date in a list (month day year).
Optional OFFSET is number of days from current date."
  (let* ((now (decode-time)))
    (calendar-gregorian-from-absolute
     (+ (calendar-absolute-from-gregorian
         (list (nth 4 now) (nth 3 now) (nth 5 now)))
        (if offset offset 0)))))

-- 

Professor Edward M. Reingold                Email: reingold@iit.edu
Department of Computer Science              Voice: (312) 567-3309
Illinois Institute of Technology            Fax:   (312) 567-5067
Stuart Building, 228F
10 West 31st Street
Chicago, IL  60616-3729  U.S.A.

Re: how to get calendar- for an offset day

[Mirko]

On Dec 18, 10:49 am, reing...@emr.cs.iit.edu (Edward M. Reingold)
wrote:
> >>>>> "M" == Mirko  <mvuko...@nycap.rr.com> writes:
>
>     M> Hi, For a personal log, I use the `calendar-current-date' function
>     M> together with calendar-date-display-form to insert the current date
>     M> into the diary.  But sometimes I am lazy, or I forget, and I need to
>     M> insert yesterday's date into the calendar.
>
>     M> I did not find anything in calendar.el (but I might have missed it).
>     M> Any other options?
>
> This suggests an improvement to calendar.el.  Change the function
> calendar-current-date to have an optional OFFSET:
>
> (defun calendar-current-date (&optional offset)
>   "Return the current date in a list (month day year).
> Optional OFFSET is number of days from current date."
>   (let* ((now (decode-time)))
>     (calendar-gregorian-from-absolute
>      (+ (calendar-absolute-from-gregorian
>          (list (nth 4 now) (nth 3 now) (nth 5 now)))
>         (if offset offset 0)))))
>
> --
>
> Professor Edward M. Reingold                Email: reing...@iit.edu
> Department of Computer Science              Voice: (312) 567-3309
> Illinois Institute of Technology            Fax:   (312) 567-5067
> Stuart Building, 228F
> 10 West 31st Street
> Chicago, IL  60616-3729  U.S.A.

Thanks.  I'll give it a shot.

Mirko