General cleanup + refactor
This commit is contained in:
parent
903eb92f36
commit
ae614c9c6f
4 changed files with 5 additions and 4 deletions
|
@ -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)))
|
||||||
|
|
|
@ -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))
|
||||||
|
|
||||||
|
|
|
@ -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))
|
||||||
|
|
|
@ -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))))
|
||||||
|
|
||||||
|
|
Loading…
Add table
Add a link
Reference in a new issue