General cleanup + refactor

This commit is contained in:
Henrik Lissner 2017-04-17 02:20:07 -04:00
parent 5e2c483923
commit 0e7254d312
12 changed files with 30 additions and 24 deletions

View file

@ -10,7 +10,8 @@
(:background "#333333" :foreground "#000000")) ;; FIXME
(((class color) (background dark))
(:background "#51afef" :foreground "#181e26")))
"The face for selected tabs displayed by `+workspace/display'")
"The face for selected tabs displayed by `+workspace/display'"
:group 'doom)
(defface +workspace-tab-face
'((((class color) (background light))
@ -19,7 +20,8 @@
(:background "#23272e" :foreground "#5B6268"))
(((class color) (background dark))
(:background "#262626" :foreground "#525252")))
"The face for selected tabs displayed by `+workspace/display'")
"The face for selected tabs displayed by `+workspace/display'"
:group 'doom)
;;;###autoload
(defun +workspace-list ()
@ -110,7 +112,7 @@ Otherwise return t on success, nil otherwise."
"Rename the current workspace named NAME to NEW-NAME. Returns old name on
success, nil otherwise."
(when (+workspace-protected-p name)
(error "Can't rename '%s' workspace"))
(error "Can't rename '%s' workspace" name))
(persp-rename new-name (+workspace-get name)))
;;;###autoload