From 36526417d33bf86ad2e1140a0718da79d44630f4 Mon Sep 17 00:00:00 2001 From: Mark Oteiza Date: Sat, 12 Jul 2014 04:41:23 -0400 Subject: use inherits for related faces that are the same --- lisp/ledger-fonts.el | 17 ++++++++--------- 1 file changed, 8 insertions(+), 9 deletions(-) (limited to 'lisp/ledger-fonts.el') diff --git a/lisp/ledger-fonts.el b/lisp/ledger-fonts.el index a5f24c41..4a3570f4 100644 --- a/lisp/ledger-fonts.el +++ b/lisp/ledger-fonts.el @@ -35,13 +35,12 @@ :group 'ledger-faces) (defface ledger-font-payee-cleared-face - `((t :foreground "#657b83" :weight normal )) + `((t :inherit ledger-font-other-face)) "Default face for cleared (*) transactions" :group 'ledger-faces) (defface ledger-font-xact-highlight-face - `((((background dark)) :background "#1a1a1a" ) - (t :background "#eee8d5")) + `((t :inherit ledger-occur-xact-face)) "Default face for transaction under point" :group 'ledger-faces) @@ -51,7 +50,7 @@ :group 'ledger-faces) (defface ledger-font-other-face - `((t :foreground "#657b83" )) + `((t :foreground "#657b83" :weight normal)) "Default face for other transactions" :group 'ledger-faces) @@ -61,12 +60,12 @@ :group 'ledger-faces) (defface ledger-font-posting-account-cleared-face - `((t :foreground "#657b83" )) + `((t :inherit ledger-font-other-face)) "Face for Ledger accounts" :group 'ledger-faces) (defface ledger-font-posting-account-pending-face - `((t :foreground "#cb4b16" )) + `((t :inherit ledger-font-pending-face)) "Face for Ledger accounts" :group 'ledger-faces) @@ -97,17 +96,17 @@ :group 'ledger-faces) (defface ledger-font-reconciler-uncleared-face - `((t :foreground "#dc322f" :weight bold )) + `((t :inherit ledger-font-payee-uncleared-face)) "Default face for uncleared transactions in the reconcile window" :group 'ledger-faces) (defface ledger-font-reconciler-cleared-face - `((t :foreground "#657b83" :weight normal )) + `((t :inherit ledger-font-other-face)) "Default face for cleared (*) transactions in the reconcile window" :group 'ledger-faces) (defface ledger-font-reconciler-pending-face - `((t :foreground "#cb4b16" :weight normal )) + `((t :inherit ledger-font-pending-face)) "Default face for pending (!) transactions in the reconcile window" :group 'ledger-faces) -- cgit v1.2.3 From 66e7d3d00c9e33489aae83d1d4d4aa533de2bb26 Mon Sep 17 00:00:00 2001 From: Mark Oteiza Date: Sat, 12 Jul 2014 04:57:20 -0400 Subject: ledger-fonts.el: untabify --- lisp/ledger-fonts.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'lisp/ledger-fonts.el') diff --git a/lisp/ledger-fonts.el b/lisp/ledger-fonts.el index 4a3570f4..f5ed6e94 100644 --- a/lisp/ledger-fonts.el +++ b/lisp/ledger-fonts.el @@ -121,8 +121,8 @@ ;; ledger-font-other-face) (,ledger-comment-regex 0 'ledger-font-comment-face) - (,ledger-amount-regex 0 - 'ledger-font-posting-amount-face) + (,ledger-amount-regex 0 + 'ledger-font-posting-amount-face) (,ledger-multiline-comment-regex 0 'ledger-font-comment-face) (,ledger-payee-pending-regex 2 'ledger-font-payee-pending-face) ; Works -- cgit v1.2.3