summary refs log tree commit diff
diff options
context:
space:
mode:
authorFranck Cuny <franck@fcuny.net>2022-07-02 20:36:32 -0700
committerFranck Cuny <franck@fcuny.net>2022-07-07 17:39:29 -0700
commit78ebe5843d5a0aeac0b5b6afd097bcc583201ff2 (patch)
treefd4df6eb276797b86201260524ef1d3eb3ec1d82
parentref(org): lower case for template menu (diff)
downloademacs.d-78ebe5843d5a0aeac0b5b6afd097bcc583201ff2.tar.gz
ref(elfeed): delete commented out code
Change-Id: I25e307b3019ddffcbe83f954effd60a8b6fa4057
Reviewed-on: https://cl.fcuny.net/c/emacs.d/+/610
Tested-by: CI
Reviewed-by: Franck Cuny <franck@fcuny.net>
-rw-r--r--emacs/custom/my-elfeed.el63
1 files changed, 0 insertions, 63 deletions
diff --git a/emacs/custom/my-elfeed.el b/emacs/custom/my-elfeed.el
index 92eacea..3387058 100644
--- a/emacs/custom/my-elfeed.el
+++ b/emacs/custom/my-elfeed.el
@@ -43,69 +43,6 @@
                 (let ((shr-use-fonts nil))
                   (apply fun r))))
 
-;; (defun copy-elfeed-link-title-to-org (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 (concat "[[" link "][" title "]]")))
-;;     (when titlelink
-;;       (kill-new titlelink)
-;;       (x-set-selection 'PRIMARY titlelink)
-;;       (message "Yanked: %s" titlelink))))
-
-;; (defun elfeed-show-quick-url-note ()
-;;   "Fastest way to capture entry link to org agenda from elfeed show mode"
-;;   (interactive)
-;;   (copy-elfeed-link-title-to-org elfeed-show-entry)
-;;   (org-capture nil "n")
-;;   (yank)
-;;   (org-capture-finalize))
-
-;; (defun elfeed-search-quick-url-note ()
-;;   "In search mode, capture the title and link for the selected
-;; entry or entries in org aganda."
-;;   (interactive)
-;;   (let ((entries (elfeed-search-selected)))
-;;     (cl-loop for entry in entries
-;;              do (elfeed-untag entry 'unread)
-;;              when (elfeed-entry-link entry)
-;;              do (copy-elfeed-link-title-to-org entry)
-;;              do (org-capture nil "f")
-;;              do (yank)
-;;              do (org-capture-finalize)
-;;              (mapc #'elfeed-search-update-entry entries))
-;;     (unless (use-region-p) (forward-line))))
-
-
-;; (defun my/elfeed-eww-open (&optional use-generic-p)
-;;   "open with eww"
-;;   (interactive "P")
-;;   (let ((entries (elfeed-search-selected)))
-;;     (cl-loop for entry in entries
-;;              do (elfeed-untag entry 'unread)
-;;              when (elfeed-entry-link entry)
-;;              do (eww-browse-url it))
-;;     (mapc #'elfeed-search-update-entry entries)
-;;     (unless (use-region-p) (forward-line))))
-
-
-;; (defun my/yt-dlp-it (url)
-;;   "Downloads the URL in an async shell."
-;;   (let ((default-directory "~/media/videos"))
-;;     (async-shell-command (format "yt-dlp %s" (shell-quote-argument url)))))
-
-;; (defun my/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 (my/yt-dlp-it it))
-;;     (mapc #'elfeed-search-update-entry entries)
-;;     (unless (use-region-p) (forward-line))))
-
 (provide 'my-elfeed)
 
 ;;; my-elfeed.el ends here