diff options
author | Thanos Apollo <[email protected]> | 2023-03-01 05:15:10 +0200 |
---|---|---|
committer | Thanos Apollo <[email protected]> | 2023-03-01 05:15:10 +0200 |
commit | fd3965b997a2f89c2079f2e89f8ecd4ae19a421e (patch) | |
tree | b3969d82d2d5e70cfc2173cbe69e0ad56383d5b1 /emacs.org | |
parent | 7582c959ab3205a1bcdad70fd53ba653ab6dbd8b (diff) |
emacs: update elfeed headings and keybindings
Diffstat (limited to 'emacs.org')
-rw-r--r-- | emacs.org | 18 |
1 files changed, 12 insertions, 6 deletions
@@ -41,6 +41,7 @@ - [[#javascript][Javascript]] - [[#elfeed][Elfeed]] - [[#feeds][Feeds]] + - [[#settings--keys][Settings & Keys]] - [[#pdf][PDF]] - [[#telega][Telega]] - [[#mu4e--email-configuration][mu4e | Email Configuration]] @@ -1046,7 +1047,9 @@ Hook with ~dired-mode~ ("https://www.youtube.com/feeds/videos.xml?channel_id=UCq6VFHwMzcMXbuKyG7SQYIg" youtube moist)))) - +#+end_src +** Settings & Keys +#+begin_src emacs-lisp (defun elfeed-v-mpv (url) "Watch a video from URL in MPV" (async-shell-command (format "mpv %s" url))) @@ -1056,18 +1059,21 @@ Hook with ~dired-mode~ (interactive "P") (let ((entries (elfeed-search-selected))) (cl-loop for entry in entries - do (elfeed-untag entry 'unread) - when (elfeed-entry-link entry) - do (elfeed-v-mpv it)) - (mapc #'elfeed-search-update-entry entries) - (unless (use-region-p) (forward-line)))) + do (elfeed-untag entry 'unread) + when (elfeed-entry-link entry) + do (elfeed-v-mpv it)) + (mapc #'elfeed-search-update-entry entries) + (unless (use-region-p) (forward-line)))) (define-key elfeed-search-mode-map (kbd "v") 'elfeed-view-mpv) + (define-key elfeed-search-mode-map (kbd "U") 'elfeed-update) (setq elfeed-goodies/entry-pane-size 0.65) (elfeed-goodies/setup) #+end_src + + * PDF #+begin_src emacs-lisp |