mirrors
/
ambevar-dotfiles
mirror of https://gitlab.com/ambrevar/dotfiles/
1
0
Fork 0
Code Issues Releases Wiki Activity

elfeed: Add `-add-bookmark' function

master
Pierre Neidhardt 2018-07-28 13:01:40 +02:00
parent dbae48e80d
commit e0eccbc1f3
1 changed files with 9 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
.emacs.d/lisp/init-elfeed.el
View File

@ -3,6 +3,15 @@
(setq elfeed-db-directory (expand-file-name "elfeed" user-emacs-directory)
elfeed-search-title-max-width 100)
(defun ambrevar/elfeed-add-bookmark ()
"Add bookmark using `eww-add-bookmark'."
(interactive)
(let ((entry (if (eq major-mode 'elfeed-show-mode) elfeed-show-entry (elfeed-search-selected :single))))
(eww-add-bookmark (elfeed-entry-link entry)
(elfeed-entry-title entry))))
(define-key elfeed-search-mode-map "m" #'ambrevar/elfeed-add-bookmark)
(define-key elfeed-show-mode-map "m" #'ambrevar/elfeed-add-bookmark)
(defun ambrevar/elfeed-play-with-mpv ()
"Play entry link with mpv."
(interactive)
@ -47,8 +56,6 @@ visit otherwise."
(call-interactively 'elfeed-search-show-entry))
(t (elfeed-show-visit)))))
(define-key elfeed-search-mode-map "v" #'elfeed-play-in-mpv)
(defun ambrevar/elfeed-kill-entry ()
"Like `elfeed-kill-buffer' but pop elfeed search."
(interactive)