blob: c774f208ea9529685becf479752eca26605e535d (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
|
;;; my-elfeed.el --- Configure elfeed -*- lexical-binding: t -*-
;;; Commentary:
;;; Code:
(require 'use-package)
(use-package elfeed
:ensure t
:init
(setq elfeed-db-directory (expand-file-name "var/elfeed" user-emacs-directory))
:config
(eval-after-load 'elfeed-search
'(define-key elfeed-search-mode-map (kbd "*") 'elfeed-toggle-star)))
(use-package elfeed-org
:ensure t
:config
(elfeed-org)
(setq rmh-elfeed-org-files (list (expand-file-name "etc/elfeed.org" user-emacs-directory))))
(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))))
(defalias 'elfeed-toggle-star
(elfeed-expose #'elfeed-search-toggle-all 'star))
(defface elfeed-search-mustread-title-face
'((t :foreground "red"))
"Marks a mustread Elfeed entry.")
(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))))
(define-key elfeed-search-mode-map (kbd "d") 'my/elfeed-youtube-dl)
(define-key elfeed-search-mode-map (kbd "t") 'my/elfeed-eww-open)
(push '(mustread elfeed-search-must-read-title-face) elfeed-search-face-alist)
(provide 'my-elfeed)
;;; my-elfeed.el ends here
|
