emacs: update elfeed headings and keybindings

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)
diff --git a/emacs.org b/emacs.org
index d7d2909..5882d3b 100644
--- a/emacs.org
+++ b/emacs.org
@@ -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