Re: writing ledger mode, date picker

[Emanuel Berg]

Yuri Khan <yuri.v.khan@gmail.com> writes:

> You want to ask a user to select a date on the
> calendar and then insert that date into a buffer.

Aha, that is what the OP wants to do!

Then what I provided should be modified somewhat - see
the code below.

The problem is, `calendar-cursor-to-date' only gives
me dates in February 1970... So what is that, Diane
Keaton and Mariel Hemingway?

Maybe the OP has better luck (?) with that!

(require 'calendar)

(defun calendar-cursor-date-into-asti ()
  (interactive)
  (let*((date (calendar-cursor-to-date))
        (date-string (format-time-string "%Y-%m-%d\n" date))
        (buffer (get-buffer-create "asti")) )
    (with-current-buffer
        buffer (insert date-string) )))

(define-key calendar-mode-map "\r" 'calendar-cursor-date-into-asti)

-- 
underground experts united
http://user.it.uu.se/~embe8573