Commit b18144dc4b58

@@ -1,122 +0,0 @@
-;;; config-elfeed.el --- -*- lexical-binding: t -*-
-;;; Commentary:
-;;; Elfeed configuration
-;;; Code:
-
-(use-package elfeed
-  :commands (elfeed)
-  :bind (("C-c x e" . elfeed)
-         :map elfeed-show-mode-map
-         ("q" . 'vde/elfeed-show-quit-window))
-  :init
-  ;; (bind-keys
-  ;;  :map elfeed-show-mode-map
-  ;;  ([remap elfeed-search-quit-window] 'vde/elfeed-show-quit-window))
-  :config
-  (setq-default elfeed-log-level 'debug
-                elfeed-use-curl 't
-                elfeed-db-directory "~/sync/elfeed/db/"
-                elfeed-db-index "~/sync/elfeed/index")
-
-  (setq elfeed-show-entry-switch #'pop-to-buffer
-        elfeed-show-entry-delete #'delete-window
-        elfeed-show-unique-buffers t)
-
-  (defun vde/elfeed-show-quit-window ()
-    (interactive)
-    (if (window-live-p (get-buffer-window "*elfeed-search*"))
-        (progn
-          (kill-buffer-and-window)      ;Don't use quit-window for this
-          (select-window (get-buffer-window "*elfeed-search*")))
-      (kill-buffer (current-buffer))))
-  ;; TODO define what we want for this..
-  ;; TODO also probably handle "quit", on "next", … (if tab)
-  ;; (add-to-list 'display-buffer-alist
-  ;;              '("^\\*elfeed-entry-"
-  ;;                (display-buffer-below-selected)
-  ;;                (direction . bottom)
-  ;;                (window-height . 0.70)))
-  
-  ;; (add-to-list 'display-buffer-alist
-  ;;              `("^\\*elfeed-entry-"
-  ;;                (display-buffer-in-tab)
-  ;;                (dedicated . t)
-  ;;                (tab-name . (lambda (buffer alist)
-  ;;                              (with-current-buffer buffer
-  ;;                                (concat "🚀 " (elfeed-feed-title (elfeed-entry-feed elfeed-show-entry))))))
-  ;;                (tab-group . "📻 Elfeed")))
-  ;; 
-  ;; (add-to-list 'display-buffer-alist
-  ;;              `("\\*elfeed-search\\*"
-  ;;                (display-buffer-in-tab)
-  ;;                (dedicated . t)
-  ;;                (tab-name . "📣 Entries")
-  ;;                (tab-group . "📻 Elfeed")))
-
-  (elfeed-org)
-  (defun vde/org-elfeed-entry-store-link ()
-    (when elfeed-show-entry
-      (let* ((link (elfeed-entry-link elfeed-show-entry))
-             (title (elfeed-entry-title elfeed-show-entry)))
-        (org-store-link-props
-         :link link
-         :description title)
-        )))
-  (add-hook 'org-store-link-functions
-            'vde/org-elfeed-entry-store-link)
-
-  (defun elfeed-link-title (entry)
-    "Copy the entry title and URL as org link to the clipboard."
-    (interactive)
-    (let* ((link (elfeed-entry-link entry))
-           (title (elfeed-entry-title entry))
-           (titlelink (org-make-link-string link title))))
-    (when titlelink
-      (kill-new titlelink)
-      (x-set-selection 'PRIMARY titlelink)
-      (message "Yanked: %s" titlelink)))
-  (defun elfeed-show-link-title ()
-    "Copy the current entry title and URL as org link to the clipboard."
-    (interactive)
-    (elfeed-link-title elfeed-show-entry))
-
-  (defun elfeed-show-quick-url-note ()
-    "Fastest way to capture entry link to org agenda from elfeed show mode"
-    (interactive)
-    (elfeed-link-title elfeed-show-entry)
-    (org-capture nil "n")
-    (yank)
-    (org-capture-finalize))
-  
-  (defface elfeed-face-tag-reddit
-    '((t :foreground "#ffb9a0"))
-    "This is a custom font face for the F1 tag in Elfeed.")
-  
-  (push '(f1 elfeed-face-tag-reddit)
-        elfeed-search-face-alist)
-
-  (defun yt-dl-it (url)
-    "Downloads the URL in an async shell"
-    (let ((default-directory "~/desktop/videos"))
-      (async-shell-command (format "yt-dlp \"%s\"" url))))
-
-  (defun elfeed-youtube-dl (&optional use-generic-p)
-    "Youtube-DL link"
-    (interactive "P")
-    (let ((entries (elfeed-search-selected)))
-      (cl-loop for entry in entries
-               do (elfeed-untag entry 'unread)
-               when (elfeed-entry-link entry)
-               do (yt-dl-it it))
-      (mapc #'elfeed-search-update-entry entries)
-      (unless (use-region-p) (forward-line))))
-
-  (define-key elfeed-search-mode-map (kbd "d") 'elfeed-youtube-dl)
-  
-  (use-package elfeed-org
-    :commands (elfeed-org)
-    :config
-    (setq-default rmh-elfeed-org-files (list (expand-file-name "feeds.org" org-private-notes-dir)))))
-
-(provide 'config-elfeed)
-;;; config-elfeed.el ends here