Browse code
Listener now uses default bg/fg editor colors if not specified
Alexey Veretennikov authored on 22/05/2015 10:11:37Showing 1 changed files
| ... | ... |
@@ -119,14 +119,19 @@ |
| 119 | 119 |
|
| 120 | 120 |
;; editor foreground and background |
| 121 | 121 |
(setf (gethash :foreground-color *current-colors*) |
| 122 |
- (or foreground +default-foreground-color+) |
|
| 123 |
- (gethash :background-color *current-colors*) |
|
| 124 |
- (or background +default-background-color+)) |
|
| 125 |
- ;; listener foreground and background |
|
| 122 |
+ (or foreground +default-foreground-color+) |
|
| 123 |
+ (gethash :background-color *current-colors*) |
|
| 124 |
+ (or background +default-background-color+)) |
|
| 125 |
+ ;; listener foreground and background, uses |
|
| 126 |
+ ;; the :background and :foreground if not specified |
|
| 126 | 127 |
(setf (gethash :listener-foreground-color *current-colors*) |
| 127 |
- (or listener-foreground +default-foreground-color+) |
|
| 128 |
+ (or listener-foreground |
|
| 129 |
+ (gethash :foreground-color *current-colors*) |
|
| 130 |
+ +default-foreground-color+) |
|
| 128 | 131 |
(gethash :listener-background-color *current-colors*) |
| 129 |
- (or listener-background +default-background-color+)) |
|
| 132 |
+ (or listener-background |
|
| 133 |
+ (gethash :background-color *current-colors*) |
|
| 134 |
+ +default-background-color+)) |
|
| 130 | 135 |
|
| 131 | 136 |
(dolist (name *editor-face-names*) |
| 132 | 137 |
(let* ((color-theme-args-for-face (getf color-theme-args name)) |