commit b18144dc4b582d2bc59caa65d4407a4fe097e42b parent d8e925b3deb41c480c65cfa30d8070ece30de814 Author: Vincent Demeester <vincent@sbr.pm> Date: Thu, 16 Nov 2023 18:17:43 +0100 tools/emacs: remove elfeed configuration Signed-off-by: Vincent Demeester <vincent@sbr.pm> Diffstat:
| D | tools/emacs/config/config-elfeed.el | | | 122 | ------------------------------------------------------------------------------- |
1 file changed, 0 insertions(+), 122 deletions(-)
diff --git a/tools/emacs/config/config-elfeed.el b/tools/emacs/config/config-elfeed.el @@ -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