dotfiles

commit 3208ef4f5d2d9f69c5cf9bfe64584d9a69d7ea46
parent e95a5c6673fc7c29fb39cdd233c547c95253ab2c
Author: Yuval Langer <yuval.langer@gmail.com>
Date:   Fri, 23 Aug 2024 20:38:47 +0300

Update emacs configuration.

Diffstat:
M
config/emacs/init.el
 | 
26
+++++++++++++++++++-------
M
config/emacs/local-packages/emacs-kakafarm/kakafarm.el
 | 
13
++++++++++---

2 files changed, 29 insertions(+), 10 deletions(-)
diff --git a/config/emacs/init.el b/config/emacs/init.el
@@ -21,6 +21,18 @@
 (setq package-archives '())
 (require 'use-package)
 
+(use-package casual-calc
+  :ensure nil
+  :bind (:map calc-mode-map ("C-o" . casual-calc-tmenu)))
+
+(use-package casual-dired
+  :ensure nil
+  :bind (:map dired-mode-map ("C-o" . casual-dired-tmenu)))
+
+(use-package casual-info
+  :ensure nil
+  :bind (:map Info-mode-map ("C-o" . casual-info-tmenu)))
+
 '(use-package company
    :defer t
    :init
@@ -56,7 +68,7 @@
                        (expand-file-name "~/.guix-profile/bin/curl"))
   :custom
   ;; (elfeed-curl-max-connections 10)
-  ;; (elfeed-search-filter "+unread")
+  (elfeed-search-filter "@1-week-ago +unread")
   (elfeed-curl-program-name (expand-file-name "~/.guix-profile/bin/curl"))
   )
 
@@ -220,7 +232,7 @@
   (menu-bar-mode nil)
   )
 
-(use-package mode-line
+'(use-package mode-line
   :custom
   (mode-line-percent-position '(6 "%q"))
   )
@@ -281,7 +293,7 @@
   :defer t
   :mode ("\\.epub\\'" . nov-mode))
 
-(use-package opml-to-elfeed-feeds
+'(use-package opml-to-elfeed-feeds
   :custom
   (opml-to-elfeed-feeds-elfeed-feeds nil t)
   )
@@ -422,10 +434,10 @@
   (vterm-environment '("LC_ALL=en_IL.utf8"))
   )
 
-(use-package whitespace-cleanup
-  :custom
-  (global-whitespace-cleanup-mode t)
-  )
+'(use-package whitespace-cleanup
+   :custom
+   (global-whitespace-cleanup-mode t)
+   )
 
 (use-package window
   :defer t
diff --git a/config/emacs/local-packages/emacs-kakafarm/kakafarm.el b/config/emacs/local-packages/emacs-kakafarm/kakafarm.el
@@ -73,12 +73,19 @@
 ;;                                                   "-n"
 ;;                                                   "echo echo echo"))
 
+;;;###autoload
 (defun kakafarm/copy-elfeed-links ()
   (interactive)
 
-  (message (string-trim (apply 'concat (mapcar (lambda (entry)
-                                                 (concat (elfeed-entry-link entry) "\n"))
-                                               (elfeed-search-selected))))))
+  (cl-letf* ((elfeed-entry-to-url-nl (lambda (entry)
+                                       (concat (elfeed-entry-link entry) "\n")))
+             (all-urls-string (apply 'concat
+                                     (mapcar elfeed-entry-to-url-nl
+                                             (elfeed-search-selected)))))
+    (with-temp-buffer
+      (insert all-urls-string)
+      (kill-region (point-min)
+                   (point-max)))))
 
 ;;;###autoload
 (defun kakafarm/drop-while (lst predp)