diff options
| author | Craig Jennings <c@cjennings.net> | 2024-04-08 17:16:29 -0500 | 
|---|---|---|
| committer | Craig Jennings <c@cjennings.net> | 2024-04-08 17:16:29 -0500 | 
| commit | a55a5248bd2dae5f849476d0f7b5dcd8d91cf929 (patch) | |
| tree | 834a7b012f6823b53ee2f516384b7bc4c4ec819b /modules/elfeed-config.el | |
| parent | 754bbf7a25a8dda49b5d08ef0d0443bbf5af0e36 (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.el | 31 | 
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 | 
