From fd3965b997a2f89c2079f2e89f8ecd4ae19a421e Mon Sep 17 00:00:00 2001
From: Thanos Apollo <public@thanosapollo.com>
Date: Wed, 1 Mar 2023 05:15:10 +0200
Subject: emacs: update elfeed headings and keybindings

---
 emacs.org | 18 ++++++++++++------
 1 file changed, 12 insertions(+), 6 deletions(-)

(limited to 'emacs.org')

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
 
-- 
cgit v1.2.3