2017-02-03 08:06:26 -05:00
|
|
|
;;; message.el
|
2017-02-06 00:25:54 -05:00
|
|
|
(provide 'doom-lib-message)
|
2017-02-03 08:06:26 -05:00
|
|
|
|
|
|
|
;;;###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)))))
|
|
|
|
|