sfos/ledger
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(ledger-do-reconcile): Only allow toggling of reconcilation entries

Browse source 
that are found in the "main" ledger file (for now).
This commit is contained in:
John Wiegley 2005-05-31 22:38:34 +00:00
parent b800e4e2f8
commit e9ea090035
1 changed files with 24 additions and 20 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

44
ledger.el
View file

@ -232,16 +232,17 @@ Return the difference in the format of a time value."
(account ledger-acct)
(inhibit-read-only t)
cleared)
(with-current-buffer ledger-buf
(goto-char (cdr where))
(setq cleared (ledger-toggle-current 'pending)))
(if cleared
(add-text-properties (line-beginning-position)
(line-end-position)
(list 'face 'bold))
(remove-text-properties (line-beginning-position)
(line-end-position)
(list 'face)))
(when (equal (car where) "<stdin>")
(with-current-buffer ledger-buf
(goto-char (cdr where))
(setq cleared (ledger-toggle-current 'pending)))
(if cleared
(add-text-properties (line-beginning-position)
(line-end-position)
(list 'face 'bold))
(remove-text-properties (line-beginning-position)
(line-end-position)
(list 'face))))
(forward-line)))
(defun ledger-auto-reconcile (balance date)
@ -308,19 +309,21 @@ Return the difference in the format of a time value."
(defun ledger-reconcile-delete ()
(interactive)
(let ((where (get-text-property (point) 'where)))
(with-current-buffer ledger-buf
(goto-char (cdr where))
(ledger-delete-current-entry))
(let ((inhibit-read-only t))
(goto-char (line-beginning-position))
(delete-region (point) (1+ (line-end-position)))
(set-buffer-modified-p t))))
(when (equal (car where) "<stdin>")
(with-current-buffer ledger-buf
(goto-char (cdr where))
(ledger-delete-current-entry))
(let ((inhibit-read-only t))
(goto-char (line-beginning-position))
(delete-region (point) (1+ (line-end-position)))
(set-buffer-modified-p t)))))
(defun ledger-reconcile-visit ()
(interactive)
(let ((where (get-text-property (point) 'where)))
(switch-to-buffer-other-window ledger-buf)
(goto-char (cdr where))))
(when (equal (car where) "<stdin>")
(switch-to-buffer-other-window ledger-buf)
(goto-char (cdr where)))))
(defun ledger-reconcile-save ()
(interactive)
@ -340,7 +343,8 @@ Return the difference in the format of a time value."
(while (not (eobp))
(let ((where (get-text-property (point) 'where))
(face (get-text-property (point) 'face)))
(if (eq face 'bold)
(if (and (eq face 'bold)
(equal (car where) "<stdin>"))
(with-current-buffer ledger-buf
(goto-char (cdr where))
(ledger-toggle-current 'cleared))))