flinner
/
dots
mirror of https://github.com/Flinner/dots.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity

feat: elfeed filter

This commit is contained in:
Flinner 2022-03-08 10:02:23 +03:00
parent 15270951c3
commit edebe2510e
Signed by: flinner
GPG Key ID: 95CE0DA7F0E58CA6
1 changed files with 16 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
emacs.mine/.config/emacs.mine/emacs.org
View File

@ -1939,6 +1939,7 @@ ivy bibtex
:hook (elfeed-dashboard-mode . (lambda () (variable-pitch-mode -1))))
#+end_src
** Helper Functions
From: https://old.reddit.com/r/emacs/comments/hbdlv8/elfeed_mpv_youtube/fv9yhb2/
#+begin_src emacs-lisp
@ -1963,12 +1964,19 @@ From: https://old.reddit.com/r/emacs/comments/hbdlv8/elfeed_mpv_youtube/fv9yhb2/
I wrote that, neat isn't it? :P
#+begin_src emacs-lisp
(defun my/elfeed/toggle-read ()
(defun my/elfeed/toggle-search-tag (tag)
(interactive)
;example: tag = "unread"
(elfeed-search-set-filter
(if (s-contains? "+unread" elfeed-search-filter)
(s-replace-regexp " ?\\+unread" "" elfeed-search-filter)
(concat elfeed-search-filter " +unread"))))
;s-contains matches agains "+unread"; i.e (concat "+" tag) => "+unread"
(if (s-contains? (concat "+" tag) elfeed-search-filter)
;regex will be " ?\\+unread"
(s-replace-regexp (concat " ?\\+" tag) "" elfeed-search-filter)
;concat will be " +unread"
(concat elfeed-search-filter (concat " +" tag)))))
(defun my/elfeed/toggle-search-unread () (interactive) (my/elfeed/toggle-search-tag "unread" ))
(defun my/elfeed/toggle-search-to_read () (interactive) (my/elfeed/toggle-search-tag "to_read"))
#+end_src
** Visual and binds
@ -1987,7 +1995,9 @@ I wrote that, neat isn't it? :P
(evil-define-key 'normal elfeed-search-mode-map
"O" 'my/elfeed/visit-entry-dwim
"tr" 'my/elfeed/toggle-read)
;"tr" 'my/elfeed/toggle-read
"tr" 'my/elfeed/toggle-search-unread
"tt" 'my/elfeed/toggle-search-to_read)
:hook ;(elfeed-show-mode . my/elfeed/visual)
(elfeed-show-mode . olivetti-mode))