Rewrite autoload/message library

+ Rename message! => print!
+ New printerr! macro
+ Extended color support to interactive sessions (now propertized using
  term faces, so we don't have to rely on a popup window to display it).

core/autoload/message.el

@@ -1,55 +1,68 @@
 ;;; core/autoload/message.el -*- lexical-binding: t; -*-
 
 (defconst doom-message-fg
-  '((reset      . 0)
+  '((black    30 term-color-black)
-    (black      . 30)
+    (red      31 term-color-red)
-    (red        . 31)
+    (green    32 term-color-green)
-    (green      . 32)
+    (yellow   33 term-color-yellow)
-    (yellow     . 33)
+    (blue     34 term-color-blue)
-    (blue       . 34)
+    (magenta  35 term-color-magenta)
-    (magenta    . 35)
+    (cyan     36 term-color-cyan)
-    (cyan       . 36)
+    (white    37 term-color-white))
-    (white      . 37))
   "List of text colors.")
 
 (defconst doom-message-bg
-  '((on-black   . 40)
+  '((on-black   40 term-color-black)
-    (on-red     . 41)
+    (on-red     41 term-color-red)
-    (on-green   . 42)
+    (on-green   42 term-color-green)
-    (on-yellow  . 43)
+    (on-yellow  43 term-color-yellow)
-    (on-blue    . 44)
+    (on-blue    44 term-color-blue)
-    (on-magenta . 45)
+    (on-magenta 45 term-color-magenta)
-    (on-cyan    . 46)
+    (on-cyan    46 term-color-cyan)
-    (on-white   . 47))
+    (on-white   47 term-color-white))
   "List of colors to draw text on.")
 
 (defconst doom-message-fx
-  '((bold       . 1)
+  '((bold       1 :weight bold)
-    (dark       . 2)
+    (dark       2)
-    (italic     . 3)
+    (italic     3 :slant italic)
-    (underscore . 4)
+    (underscore 4 :underline t)
-    (blink      . 5)
+    (blink      5)
-    (rapid      . 6)
+    (rapid      6)
-    (contrary   . 7)
+    (contrary   7)
-    (concealed  . 8)
+    (concealed  8)
-    (strike     . 9))
+    (strike     9 :strike-through t))
   "List of styles.")
 
 ;;;###autoload
 (defun doom-ansi-apply (code message &rest args)
-  "Apply the ansi CODE to formatted MESSAGE with ARGS."
+  "Apply CODE to formatted MESSAGE with ARGS. CODE is derived from any of
-  (let ((rule (or (assq code doom-message-fg)
+`doom-message-fg', `doom-message-bg' or `doom-message-fx'.
-                  (assq code doom-message-bg)
+
-                  (assq code doom-message-fx))))
+In a noninteractive session, this wraps the result in ansi color codes.
-    (format "\e[%dm%s\e[%dm"
+Otherwise, it maps colors to a term-color-* face."
-            (cdr rule)
+  (let ((text (apply #'format message args)))
-            (apply #'format message args)
+    (if noninteractive
-            0)))
+        (format "\e[%dm%s\e[%dm"
+                (cadr
+                 (or (assq code doom-message-fg)
+                     (assq code doom-message-bg)
+                     (assq code doom-message-fx)))
+                text 0)
+      (require 'term)  ; piggyback on term's color faces
+      (propertize
+       text 'face
+       (let (spec)
+         (cond ((setq spec (caddr (assq code doom-message-fg)))
+                `(:foreground ,(face-foreground spec)))
+               ((setq spec (caddr (assq code doom-message-bg)))
+                `(:background ,(face-background spec)))
+               ((cddr (assq code doom-message-fx)))))))))
 
 ;;;###autoload
 (defmacro format! (message &rest args)
-  "An alternative to `format' that strips out ANSI codes if used in an
+  "An alternative to `format' that understands (color ...) and converts them
-interactive session."
+into faces or ANSI codes depending on the type of sesssion we're in."
   `(cl-flet*
        (,@(cl-loop for rule
                    in (append doom-message-fg doom-message-bg doom-message-fx)
@@ -63,19 +76,29 @@ interactive session."
      (format ,message ,@args)))
 
 ;;;###autoload
-(defmacro message! (message &rest args)
+(defmacro printerr! (message &rest args)
-  "An alternative to `message' that strips out ANSI codes if used in an
+  "Uses `warn' in interative sessions and `message' otherwise (prints to
-interactive session."
+standard error).
+
+Can be colored using (color ...) blocks. See `print!' for details."
   `(if noninteractive
        (message (format! ,message ,@args))
-     (let ((buf (get-buffer-create " *doom messages*")))
+     (warn ,message ,@args)))
-       (with-current-buffer buf
+
-         (goto-char (point-max))
+;;;###autoload
-         (let ((beg (point))
+(defmacro print! (message &rest args)
-               end)
+  "Uses `message' in interactive sessions and `princ' otherwise (prints to
-           (insert (format! ,message ,@args))
+standard out).
-           (insert "\n")
+
-           (setq end (point))
+Can be colored using (color ...) blocks:
-           (ansi-color-apply-on-region beg end)))
+
-       (pop-to-buffer buf)
+  (print! \"Hello %s %s\" (bold (blue \"How are you?\")))
-       (goto-char (point-max)))))
+  (print! \"Hello %s %s\" (red \"World\"))
+  (print! (green \"Great %s!\" \"success\"))
+
+Uses faces in interactive sessions and ANSI codes otherwise."
+  `(if (not noninteractive)
+       (message (format! ,message ,@args))
+     ;; princ prints to stdout, message to stderr
+     (princ (format! ,message ,@args))
+     (princ "\n")))