diff options
| author | Vincent Bernat <bernat@luffy.cx> | 2014-03-23 02:09:49 +0100 |
|---|---|---|
| committer | Vincent Bernat <bernat@luffy.cx> | 2014-03-23 02:09:49 +0100 |
| commit | cdeed89dbd87ee98138177741a9526390359b36c (patch) | |
| tree | 2da3e3705bfd0bb4a54a64b6dbf5fd22126587cb /lisp | |
| parent | 8cc9521a9aa8f1c677dfb17fff20ae403f499e55 (diff) | |
| download | fork-ledger-cdeed89dbd87ee98138177741a9526390359b36c.tar.gz fork-ledger-cdeed89dbd87ee98138177741a9526390359b36c.tar.bz2 fork-ledger-cdeed89dbd87ee98138177741a9526390359b36c.zip | |
lisp: use more legible colors on dark backgrounds
On dark backgrounds, the color for the current transaction makes the
text quite unreadable. Let's use a darker color in this case. Maybe some
other colors could be adjusted.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/ledger-fonts.el | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/lisp/ledger-fonts.el b/lisp/ledger-fonts.el index 41c7a4aa..70c05428 100644 --- a/lisp/ledger-fonts.el +++ b/lisp/ledger-fonts.el @@ -40,7 +40,8 @@ :group 'ledger-faces) (defface ledger-font-xact-highlight-face - `((t :background "#eee8d5")) + `((((background dark)) :background "#1a1a1a" ) + (t :background "#eee8d5")) "Default face for transaction under point" :group 'ledger-faces) @@ -80,7 +81,8 @@ :group 'ledger-faces) (defface ledger-occur-xact-face - `((t :background "#eee8d5" )) + `((((background dark)) :background "#1a1a1a" ) + (t :background "#eee8d5" )) "Default face for Ledger occur mode shown transactions" :group 'ledger-faces) |