Re: writing ledger mode, date picker

[Emanuel Berg]

jenia.ivlev@gmail.com (jenia.ivlev) writes:

> I found an answer. I'm using `org-read-date`:
>
>        (let ((x (org-read-date)))
>
> But I'm reading the function org-read-date and
> I can't understand how it binds
> `calendar-cursor-to-date` to "enter" key press in
> calendar mode.
>
> What I see is that `org-ans2` is set in
> `org-eval-in-calendar`
>
> But what I don't understand is how do you bind
> `org-ans2`, `calendar-cursor-to-date` to the "enter"
> key in calendar mode.

I don't understand your question even 50%, but
assuming `calendar-cursor-to-date' is a command
(interactive function) then this should work:

    (define-key calendar-mode-map "\r" #'calendar-cursor-to-date)

If it doesn't, try add this:

    (defun calendar-cursor-to-date ()
      (interactive)
      (message "Calendar Crazy") )

Then it "works", or at least it shows you the
mechanics, so you can get it to work yourself when you
have defined your functions alright.

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