Add core/autoload/message.el; rudimentary doom message buffer library

This commit is contained in:
Henrik Lissner 2017-02-03 08:06:26 -05:00
parent 29943fefa6
commit 403d7dce6c

15
core/autoload/message.el Normal file
View file

@ -0,0 +1,15 @@
;;; message.el
;;;###autoload
(defun doom-message-buffer ()
(let ((buffer (get-buffer-create " *doom-messages*")))
(unless (get-buffer-window-list buffer)
(doom-popup-buffer buffer))))
;;;###autoload
(defun doom-message (format &rest args)
(if noninteractive
(apply 'message format args)
(with-current-buffer (doom-message-buffer)
(insert (format format args)))))