Yes, now I see what you mean.
You I right, I kind of forgot about this change.
The planner-ledger-add-entry-from-task I'm using is updated from the patch
file to be interactive.
So the version i'm actually using is:
(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 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)
payee
amount)))
(message "Not in a ledger payment task"))))
I'll update the thread on the patch.
Thanks for pointing out the oversight.
DeusMax
_______________________________________________
Planner-el-discuss mailing list
[email protected]
https://mail.gna.org/listinfo/planner-el-discuss
