summaryrefslogtreecommitdiff
path: root/modules/elfeed-config.el
diff options
context:
space:
mode:
authorCraig Jennings <c@cjennings.net>2024-04-08 17:16:29 -0500
committerCraig Jennings <c@cjennings.net>2024-04-08 17:16:29 -0500
commita55a5248bd2dae5f849476d0f7b5dcd8d91cf929 (patch)
tree834a7b012f6823b53ee2f516384b7bc4c4ec819b /modules/elfeed-config.el
parent754bbf7a25a8dda49b5d08ef0d0443bbf5af0e36 (diff)
fit and finish work
- gptel: added gptel-send-region with global keybinding - projectile: made project-switch-actions more efficient with regexp - prog-go: removed disabled code - mu4e: capture template captures region if selected - system utils: merged bury alive with other killing buffer code - org-capture: renamed *website-clipper to org-webpage-clipper - rg: auto switch to ripgrep-results window when ripgrep search completes - dashboard: remove dashboard banner custom face General - moved abbrev_defs to assets - removed gitmodules file - updated packages - fixed docstring and formatting throughout Custom-Functions - move cj/merge-list-to-list to custom-functions - add remove leading trailing whitespace function - corrected arrayify prompt Font-Config - added font point sizes in fontaine menu - make default font point size 11 Python - adding back python poetry support - added cj/python-setup method - merge python and python-mode configurations (they are the same built-in package) Show-Kill-Ring - show-kill-ring displays in another read-only buffer - show-kill-ring exits with q Elfeed - moved elfeed-feeds.org to assets - removed Wired from elfeed feeds - moved ElfeedDB to user-emacs-directory/.elfeed-db - moved elfeed-dashboard.org to assets
Diffstat (limited to 'modules/elfeed-config.el')
-rw-r--r--modules/elfeed-config.el31
1 files changed, 15 insertions, 16 deletions
diff --git a/modules/elfeed-config.el b/modules/elfeed-config.el
index 37a0e12f..901ae0b1 100644
--- a/modules/elfeed-config.el
+++ b/modules/elfeed-config.el
@@ -13,13 +13,13 @@
("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
- ("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
+ ("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
+ ("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 "~/sync/org/ElfeedDB")
+ (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"))
@@ -30,7 +30,8 @@
:defer .5
:after elfeed
:config
- (setq rmh-elfeed-org-files (list (concat sync-dir "elfeed-feeds.org")))
+ (setq rmh-elfeed-org-files
+ (list (concat user-emacs-directory "assets/elfeed-feeds.org")))
(elfeed-org))
;; ------------------------------ Elfeed Dashboard -----------------------------
@@ -40,7 +41,7 @@
:bind
("M-R" . elfeed-dashboard)
:config
- (setq elfeed-dashboard-file (concat user-emacs-directory "elfeed-dashboard.org"))
+ (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))
@@ -87,16 +88,16 @@
(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))))
+ (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)))
+ (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)
@@ -126,8 +127,8 @@
(defun cj/yt-dl-it (url)
"Downloads the URL in an async shell."
(let ((default-directory "~/videos"))
- (save-window-excursion
- (async-shell-command (format "tsp yt-dlp --add-metadata -ic -o '%%(channel)s-%%(title)s.%%(ext)s' '%s'" url)))))
+ (save-window-excursion
+ (async-shell-command (format "tsp yt-dlp --add-metadata -ic -o '%%(channel)s-%%(title)s.%%(ext)s' '%s'" url)))))
(defun cj/play-with-mpv (&optional use-generic-p)
"MPV link."
@@ -144,7 +145,5 @@
"Play the URL with mpv in an async shell."
(async-shell-command (format "mpv '%s'" url)))
-
-
(provide 'elfeed-config)
;;; elfeed-config.el ends here