dotfiles

commit e95a5c6673fc7c29fb39cdd233c547c95253ab2c
parent 85d87489cbb851c4a9422b9ffba6ba57602b7be2
Author: Yuval Langer <yuval.langer@gmail.com>
Date:   Thu, 22 Aug 2024 02:49:37 +0300

Update Emacs dotfiles and elfeed-feeds.

Diffstat:
M
config/emacs/elfeed-feeds.el
 | 
1
+
M
config/emacs/init.el
 | 
1
+
M
config/emacs/local-packages/emacs-kakafarm/kakafarm.el
 | 
7
+++++++

3 files changed, 9 insertions(+), 0 deletions(-)
diff --git a/config/emacs/elfeed-feeds.el b/config/emacs/elfeed-feeds.el
@@ -86,6 +86,7 @@
                        ("https://whatsup.org.il/backend.php?utf8=1" israel linux whatsup)
                        ("https://www.accursedfarms.com/rss/3-accursed-farms.xml/" accursedfarms blog)
                        ("https://www.andrewgoldheretics.com/feed" andrewgold blog csj)
+                       ("https://www.astralcodexten.com/feed" astralcodexten blog csj)
                        ("https://www.blipanika.co.il/?feed=rss2" israel scifi)
                        ("https://www.debian.org/News/news" debian linux news)
                        ("https://www.goominet.com/unspeakable-vault/?type=103" comics)
diff --git a/config/emacs/init.el b/config/emacs/init.el
@@ -500,3 +500,4 @@
 (put 'narrow-to-region 'disabled nil)
 (put 'upcase-region 'disabled nil)
 (put 'narrow-to-page 'disabled nil)
+(put 'scroll-left 'disabled nil)
diff --git a/config/emacs/local-packages/emacs-kakafarm/kakafarm.el b/config/emacs/local-packages/emacs-kakafarm/kakafarm.el
@@ -73,6 +73,13 @@
 ;;                                                   "-n"
 ;;                                                   "echo echo echo"))
 
+(defun kakafarm/copy-elfeed-links ()
+  (interactive)
+
+  (message (string-trim (apply 'concat (mapcar (lambda (entry)
+                                                 (concat (elfeed-entry-link entry) "\n"))
+                                               (elfeed-search-selected))))))
+
 ;;;###autoload
 (defun kakafarm/drop-while (lst predp)
   (named-let loop ((lst lst))