General cleanup + refactor

This commit is contained in:
Henrik Lissner 2017-03-08 14:41:32 -05:00
parent 903eb92f36
commit ae614c9c6f
4 changed files with 5 additions and 4 deletions

View file

@ -16,6 +16,7 @@ current window if omitted."
;;;###autoload ;;;###autoload
(defun doom-popup-buffer (buffer &rest plist) (defun doom-popup-buffer (buffer &rest plist)
"Display BUFFER in a shackle popup. See `shackle-rules' for possible rules." "Display BUFFER in a shackle popup. See `shackle-rules' for possible rules."
(declare (indent defun))
(unless (bufferp buffer) (unless (bufferp buffer)
(error "%s is not a valid buffer" buffer)) (error "%s is not a valid buffer" buffer))
(when (and plist (not (plist-member plist :align))) (when (and plist (not (plist-member plist :align)))

View file

@ -144,7 +144,7 @@ to speed up startup."
(require 'quelpa) (require 'quelpa)
(require 'use-package) (require 'use-package)
;; Remove package management keywords, I'll deal with that myself ;; Strip package management from use-package; DOOM handles this its own way
(mapc (lambda (keyword) (setq use-package-keywords (delq keyword use-package-keywords))) (mapc (lambda (keyword) (setq use-package-keywords (delq keyword use-package-keywords)))
'(:ensure :pin)) '(:ensure :pin))

View file

@ -56,6 +56,6 @@
:after elfeed :after elfeed
:config :config
(setq rmh-elfeed-org-files (setq rmh-elfeed-org-files
(mapcar (lambda (file) (expand-file-name file +rss-org-dir)) (let ((default-directory +rss-org-dir))
+rss-elfeed-files)) (mapcar 'expand-file-name +rss-elfeed-files)))
(elfeed-org)) (elfeed-org))

View file

@ -229,7 +229,7 @@ workspace to delete."
current-name)))) current-name))))
(condition-case ex (condition-case ex
(if (+workspace-delete name) (if (+workspace-delete name)
(+workspace-message (format "Deleted %s workspace" name) 'success) (+workspace-message (format "Deleted '%s' workspace" name) 'success)
(error "Couldn't delete %s workspace" name)) (error "Couldn't delete %s workspace" name))
('error (+workspace-error (cadr ex) t)))) ('error (+workspace-error (cadr ex) t))))