TakeV
/
spacemacs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Fix dotfile tests for dotspacemacs-mode-line-theme variable

This commit is contained in:
syl20bnr 2018-01-17 11:28:52 -05:00
parent 530ca288ad
commit ac215effc2
1 changed files with 15 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
core/core-dotspacemacs.el
View File

@ -756,13 +756,22 @@ error recovery."
"is \'vim, \'emacs or \'hybrid or and list with `:variable' keyword")
(spacemacs//test-var
(lambda (x)
(member x '(spacemacs
all-the-icons
custom
vim-powerline
vanilla)))
(let ((themes '(spacemacs
all-the-icons
custom
vim-powerline
vanilla)))
(or (member x themes)
(and (listp x)
(memq (car x) themes)
;; TODO define a function to remove several properties at once
(null (spacemacs/mplist-remove (spacemacs/mplist-remove (cdr x) :separator)
:separator-scale))))))
'dotspacemacs-mode-line-theme
"is \'spacemacs, \'all-the-icons, \'custom, \'vim-powerline or 'vanilla")
(concat
"is \'spacemacs, \'all-the-icons, \'custom, \'vim-powerline or 'vanilla "
"or a list with `car' one of the previous values and properties one of "
"the following: `:separator' or `:separator-scale'"))
(spacemacs//test-var
(lambda (x) (member x '(original cache nil)))
'dotspacemacs-auto-save-file-location (concat "is one of \'original, "