Hi every one,
Max
I have modified a little planner-ledger:
*** planner-ledger.el 2007/09/06 22:16:20 1.1
--- planner-ledger.el 2007/09/06 22:18:30
***************
*** 103,108 ****
--- 103,114 ----
:type '(repeat string)
:group 'planner-ledger)
+ (defcustom planner-ledger-register-args
+ '("-U" "register")
+ "Command line arguments for ledger register."
+ :type '(repeat string)
+ :group 'planner-ledger)
+
(defcustom planner-ledger-payment-task-regexp
(concat planner-task-regexp
"payment\\s-+due:\\s-+\\([^,]+?\\),\\s-*\\([[:graph:]]+\\)")
***************
*** 137,144 ****
"Maybe insert ledger pending transaction into a planner page."
(interactive)
(planner-ledger-clear-section-pending)
! (planner-ledger-insert-section-maybe planner-ledger-pending-regexp
! "-U" "register" ))
(defun planner-ledger-insert-section-maybe (regexp &rest ledger-args)
"Maybe insert a ledger section into a planner page.
--- 143,151 ----
"Maybe insert ledger pending transaction into a planner page."
(interactive)
(planner-ledger-clear-section-pending)
! (apply 'planner-ledger-insert-section-maybe
! planner-ledger-pending-regexp
! (append planner-ledger-register-args)))
(defun planner-ledger-insert-section-maybe (regexp &rest ledger-args)
"Maybe insert a ledger section into a planner page.
Like that i can tweak the ledger register command
I know really few about lisp, so if you can have a look and correct that
may be.It work fine for me, i can set the command of ledger register
from my .emacs-planner:(socgen is an account)
((setq planner-ledger-register-args '("-U" "register" "socgen"))
Thank you
--
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
