jessieh/mood-line
jessieh/mood-line
1
Fork 1
Code Issues 4 Pull Requests Releases Activity

Compare commits

base: jessieh:ff0a35672e57169bc004ccd8f4a7b6fceec5e93d
Branches Tags
jessieh:main
jessieh:3.1.1
jessieh:3.1.0
jessieh:3.0.1
jessieh:3.0.0
jessieh:2.3.0
jessieh:2.2.0
jessieh:2.1.0
jessieh:2.0.0
jessieh:1.2.5
jessieh:1.2.4
jessieh:1.2.3
jessieh:1.2.2
jessieh:1.2.1
jessieh:1.2.0
jessieh:1.1.2
jessieh:1.1.1
jessieh:1.1.0
jessieh:1.0.1
jessieh:1.0.0
..
compare: jessieh:b568f0faa9e143eafb38016e63715a9ecc7c6c69
Branches Tags
jessieh:main
jessieh:3.1.1
jessieh:3.1.0
jessieh:3.0.1
jessieh:3.0.0
jessieh:2.3.0
jessieh:2.2.0
jessieh:2.1.0
jessieh:2.0.0
jessieh:1.2.5
jessieh:1.2.4
jessieh:1.2.3
jessieh:1.2.2
jessieh:1.2.1
jessieh:1.2.0
jessieh:1.1.2
jessieh:1.1.1
jessieh:1.1.0
jessieh:1.0.1
jessieh:1.0.0

No commits in common. "ff0a35672e57169bc004ccd8f4a7b6fceec5e93d" and "b568f0faa9e143eafb38016e63715a9ecc7c6c69" have entirely different histories.
ff0a35672e ... b568f0faa9

1 changed files with 6 additions and 4 deletions
Show Stats Expand all files Collapse all files

10
mood-line.el
View File

@ -3,7 +3,7 @@
;; Author: Jessie Hildebrandt <jessieh.net> ;; Author: Jessie Hildebrandt <jessieh.net>
;; Homepage: https://gitlab.com/jessieh/mood-line ;; Homepage: https://gitlab.com/jessieh/mood-line
;; Keywords: mode-line faces ;; Keywords: mode-line faces
;; Version: 3.0.1 ;; Version: 3.0.0
;; Package-Requires: ((emacs "26.1")) ;; Package-Requires: ((emacs "26.1"))
;; This file is not part of GNU Emacs. ;; This file is not part of GNU Emacs.
@ -82,8 +82,10 @@
;; -------------------------------------------------------------------------- ;; ;; -------------------------------------------------------------------------- ;;
(defmacro mood-line--deflazy (name) (defmacro mood-line--deflazy (name)
"Define dummy function NAME to `require' its module and call actual function." "Define dummy function NAME to `require' its module and call actual function.
(let ((module (intern (car (split-string (symbol-name name) "--"))))) If NAME is already bound, this does nothing."
(when-let ((not-bound (not (fboundp name)))
(module (intern (car (split-string (symbol-name name) "--")))))
`(defun ,name (&rest args) `(defun ,name (&rest args)
"Not yet loaded." "Not yet loaded."
(fmakunbound (quote ,name)) (fmakunbound (quote ,name))
@ -399,7 +401,7 @@ See `mood-line-defformat' for a helpful formatting macro."
;; ;;
;; -------------------------------------------------------------------------- ;; ;; -------------------------------------------------------------------------- ;;
(defvar mood-line--escape-buffer (get-buffer-create " *mood-line*") (defvar mood-line--escape-buffer (get-buffer-create " *mood-line*" t)
"Buffer used by `mood-line--escape'.") "Buffer used by `mood-line--escape'.")
(defun mood-line--escape (&rest strings) (defun mood-line--escape (&rest strings)