General, minor refactor

+ Group hooks with add-hook!
+ Sharpquote elfeed call
+ Extract elfeed buffer detector into function and ensure idempotency of
  doom-real-buffer-functions
This commit is contained in:
Henrik Lissner 2018-06-03 15:51:59 +02:00
parent b81ac61d84
commit 32a2a2b64d
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395
4 changed files with 7 additions and 6 deletions

View file

@ -4,7 +4,7 @@
(defun =rss () (defun =rss ()
"Activate (or switch to) `elfeed' in its workspace." "Activate (or switch to) `elfeed' in its workspace."
(interactive) (interactive)
(call-interactively 'elfeed)) (call-interactively #'elfeed))
;;;###autoload ;;;###autoload
(defun +rss/quit () (defun +rss/quit ()

View file

@ -33,8 +33,9 @@ paths.")
(make-directory elfeed-db-directory t) (make-directory elfeed-db-directory t)
;; Ensure elfeed buffers are treated as real ;; Ensure elfeed buffers are treated as real
(push (lambda (buf) (string-match-p "^\\*elfeed" (buffer-name buf))) (defun +rss-buffer-p (buf)
doom-real-buffer-functions) (string-match-p "^\\*elfeed" (buffer-name buf)))
(add-to-list 'doom-real-buffer-functions #'+rss-buffer-p nil #'eq)
;; Enhance readability of a post ;; Enhance readability of a post
(add-hook 'elfeed-show-mode-hook #'+rss|elfeed-wrap) (add-hook 'elfeed-show-mode-hook #'+rss|elfeed-wrap)

View file

@ -131,5 +131,5 @@ environment variables."
;; ;;
(when (featurep! :feature evil +everywhere) (when (featurep! :feature evil +everywhere)
(add-hook 'anaconda-mode-hook #'evil-normalize-keymaps) (add-hook! '(anaconda-mode-hook nose-mode-hook)
(add-hook 'nose-mode-hook #'evil-normalize-keymaps)) #'evil-normalize-keymaps))

View file

@ -16,7 +16,7 @@
;; Custom modeline that removes useless info and adds page numbers ;; Custom modeline that removes useless info and adds page numbers
(when (featurep! :ui doom-modeline) (when (featurep! :ui doom-modeline)
(load! "+modeline") (load! "+modeline")
(add-hook! pdf-tools-enabled (doom-set-modeline 'pdf-tools-modeline))) (add-hook! #'pdf-tools-enabled-hook (doom-set-modeline 'pdf-tools-modeline)))
;; Handle PDF-tools related popups better ;; Handle PDF-tools related popups better
(set! :popup "^\\*Outline*" '((side . right) (size . 40)) '((select))) (set! :popup "^\\*Outline*" '((side . right) (size . 40)) '((select)))
;; TODO: Add additional important windows that should be handled differently ;; TODO: Add additional important windows that should be handled differently