From 34bef4d7a95c4000028562adbb13dd92b9012cd2 Mon Sep 17 00:00:00 2001 From: defanor Date: Wed, 1 Nov 2017 10:56:17 +0300 Subject: Use terminfo instead of colorful-monoids colorful-monoids don't use terminfo, simply guessing capabilities. --- pancake.el | 21 ++++----------------- 1 file changed, 4 insertions(+), 17 deletions(-) (limited to 'pancake.el') 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) -- cgit v1.2.3