I am using gentoo linux and I use also planner-autoloads.el because I
use a dev-version of planner that is able to work with >=emacs-22
So in the planner-ledger.el when I use:
code:
(defun planner-ledger-add-entry-from-task ()
"Add a new ledger entry from the task at point."
(interactive)
(save-excursion
(beginning-of-line)
(if (re-search-forward planner-ledger-payment-task-regexp
(planner-line-end-position)
t)
(let* ((payee (match-string 1))
(amount (match-string 2))
(date (planner-filename-to-calendar-date (buffer-name)))
(buffer (find-buffer-visiting ledger-data-file)))
(unless buffer (setq buffer (find-file ledger-data-file)))
(pop-to-buffer buffer)
(ledger-add-entry (format "%d/%d/%d %s %s"
(extract-calendar-year date)
(extract-calendar-month date)
(extract-calendar-day date)
payee
amount)))
(message "Not in a ledger payment task"))))
it is ok , when i do M-x planner...
this defun appear (that is normal because it's interactive)
when i use this one:(your's)
(defun planner-ledger-add-entry-from-task ()
"Add a new ledger entry from the task at point."
(let* ((payee (match-string 1))
(amount (match-string 2))
(date (planner-filename-to-calendar-date (buffer-name)))
(buffer (find-buffer-visiting planner-ledger-data-file)))
(unless buffer (setq buffer (find-file planner-ledger-data-file)))
(pop-to-buffer buffer)
(ledger-add-entry (format "%d/%02d/%02d %s %s"
(extract-calendar-year date)
(extract-calendar-month date)
(extract-calendar-day date)
amount)))
(message "Not in a ledger payment task"))
Nothing appear in M-x planner...(thats normal because it's not
interactive , right ?)
So I use this function (the old one) like that:
when my cyclic task :payment due ... appear in my daily planner file
I do planner-ledger-add-entry-from-task with (f9 l) and my entry is
added in ledger.dat.
So i do you use your new defun ?
--
A +
Thierry
PS:You can find my pubkey here:
http://pgp.mit.edu/
_______________________________________________
Planner-el-discuss mailing list
[email protected]
https://mail.gna.org/listinfo/planner-el-discuss
