github/doom-modeline
1
0
Fork 0
mirror of https://github.com/correl/doom-modeline.git synced 2024-12-24 03:00:09 +00:00
Code Issues Projects Releases Packages Wiki Activity

Remove map.

Browse source
This commit is contained in:
Vincent Zhang 2018-06-27 14:32:23 +08:00
parent 2383b1c370
commit c354cdde0c
1 changed files with 4 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
doom-modeline.el
View file

@ -46,7 +46,6 @@
(require 'all-the-icons)
(require 'eldoc-eval)
(require 'map)
(require 'projectile)
(require 'shrink-path)
@ -202,13 +201,13 @@ active."
(format "%s modeline segment" name))))
(cond ((and (symbolp (car body))
(not (cdr body)))
(map-put doom-modeline-var-alist name (car body))
`(map-put doom-modeline-var-alist ',name ',(car body)))
(add-to-list 'doom-modeline-var-alist (cons name (car body)))
`(add-to-list 'doom-modeline-var-alist (cons ',name ',(car body))))
(t
(map-put doom-modeline-fn-alist name sym)
(add-to-list 'doom-modeline-fn-alist (cons name sym))
`(progn
(fset ',sym (lambda () ,docstring ,@body))
(map-put doom-modeline-fn-alist ',name ',sym)
(add-to-list 'doom-modeline-fn-alist (cons ',name ',sym))
,(unless (bound-and-true-p byte-compile-current-file)
`(let (byte-compile-warnings)
(byte-compile #',sym))))))))