summaryrefslogtreecommitdiff
path: root/pancake.el
diff options
context:
space:
mode:
authordefanor <defanor@uberspace.net>2017-11-01 10:56:17 +0300
committerdefanor <defanor@uberspace.net>2017-11-01 12:15:05 +0300
commit34bef4d7a95c4000028562adbb13dd92b9012cd2 (patch)
treed4c76558092bf37743d5953f3d1109d27576efbb /pancake.el
parent24dabb5a30aabbbb34b3e22208589c30c1bcc3e9 (diff)
Use terminfo instead of colorful-monoids
colorful-monoids don't use terminfo, simply guessing capabilities.
Diffstat (limited to 'pancake.el')
-rw-r--r--pancake.el21
1 files changed, 4 insertions, 17 deletions
diff --git a/pancake.el b/pancake.el
index ecab7a4..7b225ad 100644
--- a/pancake.el
+++ b/pancake.el
@@ -164,29 +164,16 @@
(if (stringp element)
element
(pcase element
- (`(fg (,color) . ,rest)
+ (`(fg ,color . ,rest)
(let ((inner (pancake-print-line rest)))
(add-face-text-property
0 (length inner) (pancake-translate-color color 'foreground) t inner)
inner))
- (`(bg (,color) . ,rest)
+ (`(style ,face . ,rest)
(let ((inner (pancake-print-line rest)))
- (add-face-text-property
- 0 (length inner) (pancake-translate-color color 'background) t inner)
- inner))
- (`(style Bold . ,rest)
- (let ((inner (pancake-print-line rest)))
- (add-face-text-property 0 (length inner) 'bold t inner)
- inner))
- (`(style Underline . ,rest)
- (let ((inner (pancake-print-line rest)))
- (add-face-text-property 0 (length inner) 'underline t inner)
- inner))
- (`(style Italic . ,rest)
- (let ((inner (pancake-print-line rest)))
- (add-face-text-property 0 (length inner) 'italic t inner)
+ (add-face-text-property 0 (length inner) face t inner)
inner))
- (_ (format "%S" element)))))
+ (_ (format "Unexpected element: %S" element)))))
(defun pancake-print-line (line)