2b1c323dbf
~/.doom.d/modules is now a full module tree, like ~/.emacs.d/modules. Symlinks are no longer involved. Private modules can now shadow Doom modules. e.g. ~/.doom.d/modules/lang/org will take precendence over ~/.emacs.d/modules/lang/org. Also, made doom--*-load-path variables public (e.g. doom--site-load-path => doom-site-load-path), and rearranged the load-path for a 10-15% startup boost.
105 lines
3.2 KiB
EmacsLisp
105 lines
3.2 KiB
EmacsLisp
;;; core/autoload/message.el -*- lexical-binding: t; -*-
|
|
|
|
(defconst doom-message-fg
|
|
'((reset . 0)
|
|
(black . 30)
|
|
(red . 31)
|
|
(green . 32)
|
|
(yellow . 33)
|
|
(blue . 34)
|
|
(magenta . 35)
|
|
(cyan . 36)
|
|
(white . 37))
|
|
"List of text colors.")
|
|
|
|
(defconst doom-message-bg
|
|
'((on-black . 40)
|
|
(on-red . 41)
|
|
(on-green . 42)
|
|
(on-yellow . 43)
|
|
(on-blue . 44)
|
|
(on-magenta . 45)
|
|
(on-cyan . 46)
|
|
(on-white . 47))
|
|
"List of colors to draw text on.")
|
|
|
|
(defconst doom-message-fx
|
|
'((bold . 1)
|
|
(dark . 2)
|
|
(italic . 3)
|
|
(underscore . 4)
|
|
(blink . 5)
|
|
(rapid . 6)
|
|
(contrary . 7)
|
|
(concealed . 8)
|
|
(strike . 9))
|
|
"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
|
|
(defmacro format! (message &rest args)
|
|
"An alternative to `format' that strips out ANSI codes if used in an
|
|
interactive session."
|
|
`(cl-flet*
|
|
(,@(cl-loop for rule
|
|
in (append doom-message-fg doom-message-bg doom-message-fx)
|
|
collect
|
|
`(,(car rule)
|
|
(lambda (message &rest args)
|
|
(apply #'doom-ansi-apply ',(car rule) message args))))
|
|
(color
|
|
(lambda (code format &rest args)
|
|
(apply #'doom-ansi-apply code format args))))
|
|
(format ,message ,@args)))
|
|
|
|
;;;###autoload
|
|
(defmacro message! (message &rest args)
|
|
"An alternative to `message' that strips out ANSI codes if used in an
|
|
interactive session."
|
|
`(if noninteractive
|
|
(message (format! ,message ,@args))
|
|
(let ((buf (get-buffer-create " *doom messages*")))
|
|
(with-current-buffer buf
|
|
(goto-char (point-max))
|
|
(let ((beg (point))
|
|
end)
|
|
(insert (format! ,message ,@args))
|
|
(insert "\n")
|
|
(setq end (point))
|
|
(ansi-color-apply-on-region beg end)))
|
|
(pop-to-buffer buf)
|
|
(goto-char (point-max)))))
|
|
|
|
;;;###autoload
|
|
(defmacro warn! (message &rest args)
|
|
"Output a colored warning for the current module in the *Messages* buffer."
|
|
(let ((load-file-name (or load-file-name byte-compile-current-file)))
|
|
(if (cl-loop for dir in doom-modules-dirs
|
|
if (file-in-directory-p load-file-name dir)
|
|
return t)
|
|
`(cl-destructuring-bind (cat . mod)
|
|
(doom-module-from-path ,load-file-name)
|
|
(delay-warning (format "%s %s" cat mod) (format ,message ,@args)
|
|
:warning))
|
|
`(delay-warning (file-relative-name load-file-name doom-emacs-dir)
|
|
(format ,message ,@args) :warning))))
|
|
|
|
;;;###autoload
|
|
(defmacro log! (message &rest args)
|
|
"Output a debug message if `doom-debug-mode' is non-nil. Otherwise, ignore this."
|
|
(when doom-debug-mode
|
|
`(message
|
|
"LOG: %s"
|
|
(propertize (format ,message ,@args)
|
|
'face 'font-lock-comment-face))))
|