github/doom-modeline
1
0
Fork 0
mirror of https://github.com/correl/doom-modeline.git synced 2024-11-23 19:19:50 +00:00
Code Issues Projects Releases Packages Wiki Activity

Fix: -when-let -> -when-let*.

Browse source
This commit is contained in:
Vincent Zhang 2018-06-12 23:25:12 +08:00
parent 3de36fe7be
commit 3e6933a1dc
1 changed files with 3 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
doom-modeline.el
View file

@ -46,6 +46,7 @@
(require 'projectile) (require 'projectile)
(require 'all-the-icons) (require 'all-the-icons)
(require 'dash)
(require 'memoize) (require 'memoize)
(require 'shrink-path) (require 'shrink-path)
(require 'eldoc-eval) (require 'eldoc-eval)
@ -194,7 +195,7 @@ error if it doesn't exist."
(defun doom-set-modeline (key &optional default) (defun doom-set-modeline (key &optional default)
"Set the modeline format. Does nothing if the modeline KEY doesn't exist. If "Set the modeline format. Does nothing if the modeline KEY doesn't exist. If
DEFAULT is non-nil, set the default mode-line for all buffers." DEFAULT is non-nil, set the default mode-line for all buffers."
(-when-let ((modeline (doom-modeline key))) (-when-let* ((modeline (doom-modeline key)))
(setf (if default (setf (if default
(default-value 'mode-line-format) (default-value 'mode-line-format)
(buffer-local-value 'mode-line-format (current-buffer))) (buffer-local-value 'mode-line-format (current-buffer)))
@ -859,7 +860,7 @@ Returns \"\" to not break --no-window-system."
"The persp number." "The persp number."
(when (featurep 'persp-mode) (when (featurep 'persp-mode)
(when (+doom-window-bottom-left-p) (when (+doom-window-bottom-left-p)
(-when-let ((persp (get-current-persp))) (-when-let* ((persp (get-current-persp)))
(propertize (propertize
(concat (concat
(number-to-string (number-to-string