daniel/emacs
1
2
Fork 0
Code Issues 7 Pull Requests Projects Releases Wiki Activity

update packages

Browse Source
This commit is contained in:
Daniel Weschke
2022-01-04 21:35:17 +01:00
parent 1d5275c946
commit 8de00e5202
700 changed files with 42441 additions and 85378 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
lisp/treemacs/treemacs-logging.el
View File

@@ -16,7 +16,8 @@
;; along with this program. If not, see <https://www.gnu.org/licenses/>.
;;; Commentary:
;;; Implementation for logging messages.
;; Implementation for logging messages.
;;; Code:
@@ -49,12 +50,12 @@ Not used directly, but as part of `treemacs-without-messages'.")
(defmacro treemacs--do-log (prefix msg &rest args)
"Print a log statement with the given PREFIX and MSG and format ARGS."
`(progn
(unless (listp treemacs--saved-eldoc-display)
(unless (consp treemacs--saved-eldoc-display)
(setf treemacs--saved-eldoc-display (list treemacs-eldoc-display)))
(setf treemacs-eldoc-display nil)
(unless treemacs--no-messages
(message "%s %s" ,prefix (format ,msg ,@args)))
(add-hook 'post-command-hook #'treemacs--restore-eldoc-after-log)))
(add-hook 'pre-command-hook #'treemacs--restore-eldoc-after-log)))
(defmacro treemacs-log (msg &rest args)
"Write an info/success log statement given format string MSG and ARGS."
@@ -67,14 +68,14 @@ Not used directly, but as part of `treemacs-without-messages'.")
"Write a warning/failure log statement given format string MSG and ARGS."
(declare (indent 1))
`(treemacs--do-log
(propertize "[Treemacs Failure]" 'face '((:inherit warning :weight bold)))
(propertize "[Treemacs]" 'face '((:inherit warning :weight bold)))
,msg ,@args))
(defmacro treemacs-log-err (msg &rest args)
"Write an error log statement given format string MSG and ARGS."
(declare (indent 1))
`(treemacs--do-log
(propertize "[Treemacs Error]" 'face '((:inherit warning :weight bold)))
(propertize "[Treemacs]" 'face '((:inherit error :weight bold)))
,msg ,@args))
(provide 'treemacs-logging)