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

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