emenel/doomemacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Move doom-ansi-apply away from macros + add docstring

Browse source
This commit is contained in:
Henrik Lissner 2018-02-14 03:21:33 -05:00
parent 5e5d075431
commit 11373e0128
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395
1 changed files with 11 additions and 10 deletions
Download patch file Download diff file Expand all files Collapse all files

21
core/autoload/message.el
View file

@ -35,6 +35,17 @@
(strike . 9)) (strike . 9))
"List of styles.") "List of styles.")
;;;###autoload
(defun doom-ansi-apply (code message &rest args)
"Apply the ansi CODE to formatted MESSAGE with ARGS."
(let ((rule (or (assq code doom-message-fg)
(assq code doom-message-bg)
(assq code doom-message-fx))))
(format "\e[%dm%s\e[%dm"
(cdr rule)
(apply #'format message args)
0)))
;;;###autoload ;;;###autoload
(defmacro format! (message &rest args) (defmacro format! (message &rest args)
"An alternative to `format' that strips out ANSI codes if used in an "An alternative to `format' that strips out ANSI codes if used in an
@ -69,16 +80,6 @@ interactive session."
(pop-to-buffer buf) (pop-to-buffer buf)
(goto-char (point-max))))) (goto-char (point-max)))))
;;;###autoload
(defun doom-ansi-apply (code format &rest args)
(let ((rule (or (assq code doom-message-fg)
(assq code doom-message-bg)
(assq code doom-message-fx))))
(format "\e[%dm%s\e[%dm"
(cdr rule)
(apply #'format format args)
0)))
;;;###autoload ;;;###autoload
(defmacro warn! (message &rest args) (defmacro warn! (message &rest args)
"Output a colored warning for the current module in the *Messages* buffer." "Output a colored warning for the current module in the *Messages* buffer."