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

Add custom faces to the reconciler

Browse source
This commit is contained in:
Craig Earls 2013-02-01 11:39:48 -07:00
parent 0675208a63
commit edd82b2639
2 changed files with 26 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

15
lisp/ldg-fonts.el
View file

@ -56,6 +56,21 @@
"Face for Ledger comments" "Face for Ledger comments"
:group 'ledger-faces) :group 'ledger-faces)
(defface ledger-font-reconciler-uncleared-face
`((t :foreground "green" :weight normal ))
"Default face for uncleared transactions in the reconcile window"
:group 'ledger-faces)
(defface ledger-font-reconciler-cleared-face
`((t :foreground "grey70" :weight normal ))
"Default face for cleared (*) transactions in the reconcile window"
:group 'ledger-faces)
(defface ledger-font-reconciler-pending-face
`((t :foreground "yellow" :weight normal ))
"Default face for pending (!) transactions in the reconcile window"
:group 'ledger-faces)
(defvar ledger-font-lock-keywords (defvar ledger-font-lock-keywords
'(("^[0-9]+[-/.=][-/.=0-9]+\\s-\\!\\s-+\\(([^)]+)\\s-+\\)?\\([^*].+?\\)\\(\\( ;\\| ;\\|$\\)\\)" 2 'ledger-font-pending-face) '(("^[0-9]+[-/.=][-/.=0-9]+\\s-\\!\\s-+\\(([^)]+)\\s-+\\)?\\([^*].+?\\)\\(\\( ;\\| ;\\|$\\)\\)" 2 'ledger-font-pending-face)

17
lisp/ldg-reconcile.el
View file

@ -55,13 +55,17 @@
(with-current-buffer ledger-buf (with-current-buffer ledger-buf
(goto-char (cdr where)) (goto-char (cdr where))
(setq cleared (ledger-toggle-current-entry))) (setq cleared (ledger-toggle-current-entry)))
;remove the existing face and add the new face
(remove-text-properties (line-beginning-position)
(line-end-position)
(list 'face))
(if cleared (if cleared
(add-text-properties (line-beginning-position) (add-text-properties (line-beginning-position)
(line-end-position) (line-end-position)
(list 'face 'bold)) (list 'face 'ledger-font-reconciler-cleared-face ))
(remove-text-properties (line-beginning-position) (add-text-properties (line-beginning-position)
(line-end-position) (line-end-position)
(list 'face)))) (list 'face 'ledger-font-reconciler-uncleared-face ))))
(forward-line) (forward-line)
(ledger-display-balance))) (ledger-display-balance)))
@ -172,10 +176,11 @@
(nth 4 item) (nth 1 xact) (nth 2 xact))) (nth 4 item) (nth 1 xact) (nth 2 xact)))
(if (nth 3 xact) (if (nth 3 xact)
(set-text-properties beg (1- (point)) (set-text-properties beg (1- (point))
(list 'face 'bold (list 'face 'ledger-font-reconciler-cleared-face
'where where)) 'where where))
(set-text-properties beg (1- (point)) (set-text-properties beg (1- (point))
(list 'where where)))) (list 'face 'ledger-font-reconciler-uncleared-face
'where where))))
(setq index (1+ index))))) (setq index (1+ index)))))
(goto-char (point-min)) (goto-char (point-min))
(set-buffer-modified-p nil) (set-buffer-modified-p nil)