From 78ebe5843d5a0aeac0b5b6afd097bcc583201ff2 Mon Sep 17 00:00:00 2001 From: Franck Cuny Date: Sat, 2 Jul 2022 20:36:32 -0700 Subject: 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 --- emacs/custom/my-elfeed.el | 63 ----------------------------------------------- 1 file changed, 63 deletions(-) (limited to 'emacs/custom') 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 -- cgit 1.4.1