blob: aa0e1c2f8f45014accbdaea5f1ccfbf3ecc82df1 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
|
;;; elfeed-config --- Settings and Enhancements to the Elfeed RSS Feed Reader -*- lexical-binding: t; -*-
;; author Craig Jennings <c@cjennings.net>
;;; Commentary:
;;; Code:
;; ------------------------------- Elfeed Config -------------------------------
(use-package elfeed
:bind
(:map elfeed-show-mode-map
("w" . eww-open-in-new-buffer))
(:map elfeed-search-mode-map
("w" . cj/elfeed-eww-open) ;; opens in eww
("b" . cj/elfeed-browser-open) ;; opens in external browser
("d" . cj/elfeed-youtube-dl) ;; async download with yt-dlp and tsp
("p" . cj/play-with-mpv) ;; async play with mpv
("v" . cj/play-with-mpv) ;; async play with mpv
("R" . cj/elfeed-mark-all-as-read) ;; capital marks all as read, since upper case marks one as read
("U" . cj/elfeed-mark-all-as-unread)) ;; capital marks all as unread, since lower case marks one as unread
:config
(setq elfeed-db-directory (concat user-emacs-directory ".elfeed-db"))
(setq-default elfeed-search-title-max-width 150)
(setq-default elfeed-search-title-min-width 80)
(setq-default elfeed-search-filter "+mustread +unread"))
;; ---------------------------- Elfeed Org Feed List ---------------------------
(use-package elfeed-org
:defer .5
:after elfeed
:config
(setq rmh-elfeed-org-files
(list (concat user-emacs-directory "assets/elfeed-feeds.org")))
(elfeed-org))
;; ------------------------------ Elfeed Dashboard -----------------------------
(use-package elfeed-dashboard
:defer .5
:bind
("M-R" . elfeed-dashboard)
:config
(setq elfeed-dashboard-file (concat user-emacs-directory "assets/elfeed-dashboard.org"))
;; update feed counts on elfeed-quit
(advice-add 'elfeed-search-quit-window :after #'elfeed-dashboard-update-links))
;; ------------------------------ Elfeed Functions -----------------------------
(defun cj/elfeed-open ()
"Open Elfeed, update all feeds, then move to the first entry."
(interactive)
(elfeed)
(elfeed-update)
(elfeed-search-update--force))
;; -------------------------- Elfeed Filter Functions --------------------------
(defun cj/elfeed-mark-all-as-read ()
"Remove the 'unread' tag from all elfeed entries visible in the elfeed search buffer."
(interactive)
(mark-whole-buffer)
(elfeed-search-untag-all-unread))
(defun cj/elfeed-mark-all-as-unread ()
"Add the 'unread' tag from all elfeed entries visible in the elfeed search buffer."
(interactive)
(mark-whole-buffer)
(elfeed-search-tag-all 'unread))
(defun cj/elfeed-set-filter-and-update(filterstring)
"Set the Elfeed filter to 'FILTERSTRING' and update the the buffer."
(interactive "P")
(setq elfeed-search-filter filterstring)
(elfeed-search-update--force)
(elfeed-search-first-entry))
;; -------------------------- Elfeed Browser Functions -------------------------
(defun cj/elfeed-eww-open (&optional use-generic-p)
"Opens the links of the currently selected Elfeed entries with EWW.
If USE-GENERIC-P is non-nil, uses the generic method instead.
Applies cj/eww-readable-nonce hook after EWW rendering. Updates the
Elfeed search entries as read and moves to the next line."
(interactive "P")
(let ((entries (elfeed-search-selected)))
(cl-loop for entry in entries
do (elfeed-untag entry 'unread)
when (elfeed-entry-link entry)
do
(add-hook 'eww-after-render-hook #'cj/eww-readable-nonce)
(eww-browse-url it))
(mapc #'elfeed-search-update-entry entries)
(unless (use-region-p) (forward-line))))
;; hook for cj/elfeed-eww-open to open entry in eww readable mode
;; https://emacs.stackexchange.com/questions/36284/how-to-open-eww-in-readable-mode/47757
(defun cj/eww-readable-nonce ()
"Once-off call to eww-readable after EWW is done rendering."
(unwind-protect
(progn
(eww-readable)
(goto-char (point-min)))
(remove-hook 'eww-after-render-hook #'cj/eww-readable-nonce)))
(defun cj/elfeed-browser-open (&optional use-generic-p)
"Opens the link of the selected Elfeed entries in the default browser.
If USE-GENERIC-P is non-nil, uses the generic method instead. Updates
the Elfeed search entries as read and advances to the next line."
(interactive "P")
(let ((entries (elfeed-search-selected)))
(cl-loop for entry in entries
do (elfeed-untag entry 'unread)
when (elfeed-entry-link entry)
do (browse-url-default-browser it))
(mapc #'elfeed-search-update-entry entries)
(unless (use-region-p) (forward-line))))
;; --------------------- Elfeed Plan And Download Functions --------------------
(defun cj/yt-dl-it (url)
"Downloads the URL in an async shell."
(let ((default-directory videos-dir))
(save-window-excursion
(async-shell-command (format "tsp yt-dlp --add-metadata -ic -o '%%(channel)s-%%(title)s.%%(ext)s' '%s'" url)))))
(defun cj/mpv-play-it (url)
"Play the URL with mpv in an async shell."
(async-shell-command (format "mpv '%s'" url)))
(defun cj/elfeed-youtube-dl (&optional use-generic-p)
"Downloads the selected Elfeed entries' links with youtube-dl.
If USE-GENERIC-P is non-nil, uses the generic download method
instead. Updates the Elfeed search entries as read and moves to
the next line."
(interactive "P")
(let ((entries (elfeed-search-selected)))
(cl-loop for entry in entries
do (elfeed-untag entry 'unread)
when (elfeed-entry-link entry)
do (cj/yt-dl-it it))
(mapc #'elfeed-search-update-entry entries)
(unless (use-region-p) (forward-line))))
(defun cj/play-with-mpv (&optional use-generic-p)
"Plays the selected Elfeed entries' links with MPV.
If USE-GENERIC-P is non-nil, uses the generic player instead. Updates
the Elfeed search entries as read and focuses on the next line."
(interactive "P")
(let ((entries (elfeed-search-selected)))
(cl-loop for entry in entries
do (elfeed-untag entry 'unread)
when (elfeed-entry-link entry)
do (cj/mpv-play-it it))
(mapc #'elfeed-search-update-entry entries)
(unless (use-region-p) (forward-line))))
(provide 'elfeed-config)
;;; elfeed-config.el ends here
|
