diff options
| -rw-r--r-- | .emacs.d/init.el | 12 | ||||
| -rw-r--r-- | emacs.org | 18 |
2 files changed, 18 insertions, 12 deletions
diff --git a/.emacs.d/init.el b/.emacs.d/init.el index 7cd1f9b..e4511b7 100644 --- a/.emacs.d/init.el +++ b/.emacs.d/init.el @@ -908,7 +908,6 @@ you have the correctly set the OPENAI_API_KEY variable" ("https://www.youtube.com/feeds/videos.xml?channel_id=UCq6VFHwMzcMXbuKyG7SQYIg" youtube moist)))) - (defun elfeed-v-mpv (url) "Watch a video from URL in MPV" (async-shell-command (format "mpv %s" url))) @@ -918,13 +917,14 @@ you have the correctly set the OPENAI_API_KEY variable" (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) @@ -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 |