emenel/doomemacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

app/rss: minor refactor; new flag (+org)

Browse source
This commit is contained in:
Henrik Lissner 2018-02-19 20:20:25 -05:00
parent d6cba4253f
commit da416736ef
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395
1 changed files with 8 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

14
modules/app/rss/config.el
View file

@ -5,7 +5,8 @@
;; don't care for the UI you can invoke elfeed directly with `elfeed'. ;; don't care for the UI you can invoke elfeed directly with `elfeed'.
(defvar +rss-elfeed-files (list "elfeed.org") (defvar +rss-elfeed-files (list "elfeed.org")
"The files that configure `elfeed's rss feeds.") "Where to look for elfeed.org files, relative to `+org-dir'. Can be absolute
paths.")
(defvar +rss-split-direction 'below (defvar +rss-split-direction 'below
"What direction to pop up the entry buffer in elfeed.") "What direction to pop up the entry buffer in elfeed.")
@ -39,8 +40,8 @@
(add-hook 'elfeed-show-mode-hook #'+rss|elfeed-wrap) (add-hook 'elfeed-show-mode-hook #'+rss|elfeed-wrap)
(map! (:map (elfeed-search-mode-map elfeed-show-mode-map) (map! (:map (elfeed-search-mode-map elfeed-show-mode-map)
[remap kill-this-buffer] "q" [remap kill-this-buffer] #'+rss/quit
[remap kill-buffer] "q") [remap kill-buffer] #'+rss/quit)
(:map elfeed-search-mode-map (:map elfeed-search-mode-map
:n "q" #'+rss/quit :n "q" #'+rss/quit
@ -53,12 +54,13 @@
:n "q" #'elfeed-kill-buffer :n "q" #'elfeed-kill-buffer
:m "j" #'evil-next-visual-line :m "j" #'evil-next-visual-line
:m "k" #'evil-previous-visual-line :m "k" #'evil-previous-visual-line
[remap next-buffer] #'+rss/next [remap next-buffer] #'+rss/next
[remap previous-buffer] #'+rss/previous))) [remap previous-buffer] #'+rss/previous)))
(def-package! elfeed-org (def-package! elfeed-org
:after (elfeed) :when (featurep! +org)
:after elfeed
:config :config
(setq rmh-elfeed-org-files (setq rmh-elfeed-org-files
(let ((default-directory +org-dir)) (let ((default-directory +org-dir))