emenel/doomemacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Minor refactors

Browse source 
+ cl-flet* -> cl-flet
+ refactor display-line-numbers-mode
This commit is contained in:
Henrik Lissner 2018-09-19 19:43:05 -04:00
parent 9970fdac2c
commit 1e710e94e3
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395
2 changed files with 4 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

6
core/autoload/line-numbers.el
View file

@ -73,12 +73,12 @@ To change the type of line numbers displayed by default,
customize `display-line-numbers-type'. To change the type while
the mode is on, set `display-line-numbers' directly."
:lighter nil
(cond ((eq display-line-numbers-type 'relative)
(cond ((null display-line-numbers-type))
((eq display-line-numbers-type 'relative)
(if display-line-numbers-mode
(nlinum-relative-off)
(nlinum-relative-on)))
((not (null display-line-numbers-type))
(nlinum-mode (if display-line-numbers-mode +1 -1)))))
((nlinum-mode (if display-line-numbers-mode +1 -1)))))
(defun display-line-numbers--turn-on ()
"Turn on `display-line-numbers-mode'."

2
core/autoload/message.el
View file

@ -57,7 +57,7 @@ Otherwise, it maps colors to a term-color-* face."
(defmacro format! (message &rest args)
"An alternative to `format' that understands (color ...) and converts them
into faces or ANSI codes depending on the type of sesssion we're in."
`(cl-flet*
`(cl-flet
(,@(mapcar (lambda (rule) `(,(car rule)
(lambda (message)
(doom-ansi-apply ',(car rule) message))))