From a55a5248bd2dae5f849476d0f7b5dcd8d91cf929 Mon Sep 17 00:00:00 2001
From: Craig Jennings <c@cjennings.net>
Date: Mon, 8 Apr 2024 17:16:29 -0500
Subject: fit and finish work

- gptel: added gptel-send-region with global keybinding
- projectile: made project-switch-actions more efficient with regexp
- prog-go: removed disabled code
- mu4e: capture template captures region if selected
- system utils: merged bury alive with other killing buffer code
- org-capture: renamed *website-clipper to org-webpage-clipper
- rg: auto switch to ripgrep-results window when ripgrep search completes
- dashboard: remove dashboard banner custom face

General
- moved abbrev_defs to assets
- removed gitmodules file
- updated packages
- fixed docstring and formatting throughout

Custom-Functions
- move cj/merge-list-to-list to custom-functions
- add remove leading trailing whitespace function
- corrected arrayify prompt

Font-Config
- added font point sizes in fontaine menu
- make default font point size 11

Python
- adding back python poetry support
- added cj/python-setup method
- merge python and python-mode configurations
  (they are the same built-in package)

Show-Kill-Ring
- show-kill-ring displays in another read-only buffer
- show-kill-ring exits with q

Elfeed
- moved elfeed-feeds.org to assets
- removed Wired from elfeed feeds
- moved ElfeedDB to user-emacs-directory/.elfeed-db
- moved elfeed-dashboard.org to assets
---
 modules/elfeed-config.el | 31 +++++++++++++++----------------
 1 file changed, 15 insertions(+), 16 deletions(-)

(limited to 'modules/elfeed-config.el')

diff --git a/modules/elfeed-config.el b/modules/elfeed-config.el
index 37a0e12f..901ae0b1 100644
--- a/modules/elfeed-config.el
+++ b/modules/elfeed-config.el
@@ -13,13 +13,13 @@
         ("w"  . eww-open-in-new-buffer))
   (:map elfeed-search-mode-map
         ("w"   . cj/elfeed-eww-open)                ;; opens in eww
-		("b"   . cj/elfeed-browser-open)            ;; opens in external browser
-		("d"   . cj/elfeed-youtube-dl)              ;; async download with yt-dlp and tsp
-		("p"   . cj/play-with-mpv)                  ;; async play with mpv
-		("R"   . cj/elfeed-mark-all-as-read)        ;; capital marks all as read, since upper case marks one as read
-		("U"   . cj/elfeed-mark-all-as-unread))     ;; capital marks all as unread, since lower case marks one as unread
+        ("b"   . cj/elfeed-browser-open)            ;; opens in external browser
+        ("d"   . cj/elfeed-youtube-dl)              ;; async download with yt-dlp and tsp
+        ("p"   . cj/play-with-mpv)                  ;; async play with mpv
+        ("R"   . cj/elfeed-mark-all-as-read)        ;; capital marks all as read, since upper case marks one as read
+        ("U"   . cj/elfeed-mark-all-as-unread))     ;; capital marks all as unread, since lower case marks one as unread
   :config
-  (setq elfeed-db-directory "~/sync/org/ElfeedDB")
+  (setq elfeed-db-directory (concat user-emacs-directory ".elfeed-db"))
   (setq-default elfeed-search-title-max-width 150)
   (setq-default elfeed-search-title-min-width 80)
   (setq-default elfeed-search-filter "+mustread +unread"))
@@ -30,7 +30,8 @@
   :defer .5
   :after elfeed
   :config
-  (setq rmh-elfeed-org-files (list (concat sync-dir "elfeed-feeds.org")))
+  (setq rmh-elfeed-org-files
+        (list (concat user-emacs-directory "assets/elfeed-feeds.org")))
   (elfeed-org))
 
 ;; ------------------------------ Elfeed Dashboard -----------------------------
@@ -40,7 +41,7 @@
   :bind
   ("M-R" . elfeed-dashboard)
   :config
-  (setq elfeed-dashboard-file (concat user-emacs-directory "elfeed-dashboard.org"))
+  (setq elfeed-dashboard-file (concat user-emacs-directory "assets/elfeed-dashboard.org"))
   ;; update feed counts on elfeed-quit
   (advice-add 'elfeed-search-quit-window :after #'elfeed-dashboard-update-links))
 
@@ -87,16 +88,16 @@
              (add-hook 'eww-after-render-hook #'cj/eww-readable-nonce)
              (eww-browse-url it))
     (mapc #'elfeed-search-update-entry entries)
-	(unless (use-region-p) (forward-line))))
+    (unless (use-region-p) (forward-line))))
 
 ;; hook for cj/elfeed-eww-open to open entry in eww readable mode
 ;; https://emacs.stackexchange.com/questions/36284/how-to-open-eww-in-readable-mode/47757
 (defun cj/eww-readable-nonce ()
   "Once-off call to eww-readable after EWW is done rendering."
   (unwind-protect
-	  (progn
-		(eww-readable)
-		(goto-char (point-min)))
+      (progn
+        (eww-readable)
+        (goto-char (point-min)))
     (remove-hook 'eww-after-render-hook #'cj/eww-readable-nonce)))
 
 (defun cj/elfeed-browser-open (&optional use-generic-p)
@@ -126,8 +127,8 @@
 (defun cj/yt-dl-it (url)
   "Downloads the URL in an async shell."
   (let ((default-directory "~/videos"))
-	(save-window-excursion
-	  (async-shell-command (format "tsp yt-dlp --add-metadata -ic -o '%%(channel)s-%%(title)s.%%(ext)s' '%s'" url)))))
+    (save-window-excursion
+      (async-shell-command (format "tsp yt-dlp --add-metadata -ic -o '%%(channel)s-%%(title)s.%%(ext)s' '%s'" url)))))
 
 (defun cj/play-with-mpv (&optional use-generic-p)
   "MPV link."
@@ -144,7 +145,5 @@
   "Play the URL with mpv in an async shell."
   (async-shell-command  (format "mpv '%s'" url)))
 
-
-
 (provide 'elfeed-config)
 ;;; elfeed-config.el ends here
-- 
cgit v1.2.3