diff options
author | defanor <defanor@uberspace.net> | 2017-11-01 10:56:17 +0300 |
---|---|---|
committer | defanor <defanor@uberspace.net> | 2017-11-01 12:15:05 +0300 |
commit | 34bef4d7a95c4000028562adbb13dd92b9012cd2 (patch) | |
tree | d4c76558092bf37743d5953f3d1109d27576efbb /pancake.el | |
parent | 24dabb5a30aabbbb34b3e22208589c30c1bcc3e9 (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.el | 21 |
1 files changed, 4 insertions, 17 deletions
@@ -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) |