autoload/message: doom--ansi-apply => doom-ansi-apply + autoload

This commit is contained in:
Henrik Lissner 2017-04-15 01:22:29 -04:00
parent 87e386fceb
commit e32a804f1d

View file

@ -44,9 +44,9 @@ interactive session."
(lambda (ansi) (lambda (ansi)
`(,(car ansi) `(,(car ansi)
(lambda (message &rest args) (lambda (message &rest args)
(apply 'doom--ansi-apply ,(cdr ansi) message args)))) (apply 'doom-ansi-apply ,(cdr ansi) message args))))
(append doom-ansi-fg doom-ansi-bg doom-ansi-fx)) (append doom-ansi-fg doom-ansi-bg doom-ansi-fx))
(color (symbol-function 'doom--ansi-apply))) (color (symbol-function 'doom-ansi-apply)))
(format ,message ,@args))) (format ,message ,@args)))
;;;###autoload ;;;###autoload
@ -55,7 +55,8 @@ interactive session."
interactive session." interactive session."
`(message (ansi-format! ,message ,@args))) `(message (ansi-format! ,message ,@args)))
(defun doom--ansi-apply (code format &rest args) ;;;###autoload
(defun doom-ansi-apply (code format &rest args)
(if noninteractive (if noninteractive
(format "\e[%dm%s\e[%sm" (format "\e[%dm%s\e[%sm"
(if (numberp code) (if (numberp code)