fscotto/infra
1
0
Fork 0
mirror of https://github.com/fscotto/infra.git synced 2026-09-28 03:03:49 +00:00
Code Issues Packages Projects Releases Wiki Activity

Refactor Emacs for authoring workflows

Browse Source
This commit is contained in:
Fabio Scotto di Santolo
2026-08-20 15:35:38 +02:00
parent 6589b25f95
commit 474f0082bb
172 changed files with 881 additions and 3134 deletions
Download Patch File Download Diff File Expand all files Collapse all files

56
dotfiles/desktop/.emacs.d/lisp/misc/rss.el
View File

@@ -1,10 +1,14 @@
;;; rss.el -*-
;;; rss.el --- Elfeed configuration -*- lexical-binding: t; -*-
(require 'use-package)
(use-package elfeed
:ensure t
:commands elfeed
:bind ("C-c r" . elfeed)
:config
(defun elfeed-play-with-mpv ()
"Open the current elfeed entry link with mpv."
"Open the current Elfeed entry link with mpv."
(interactive)
(let* ((entry (if (eq major-mode 'elfeed-show-mode)
elfeed-show-entry
@@ -14,44 +18,26 @@
(progn
(message "Opening with mpv: %s" url)
(start-process "mpv" nil "mpv" url))
(message "No URL found"))))
(define-key elfeed-search-mode-map (kbd "v") #'elfeed-play-with-mpv)
(define-key elfeed-show-mode-map (kbd "v") #'elfeed-play-with-mpv)
:custom
(elfeed-enclosure-default-dir "~/Downloads/")
(elfeed-search-remain-on-entry t)
(elfeed-search-title-max-width 100)
(elfeed-search-title-min-width 30)
(elfeed-search-trailing-width 25)
(elfeed-show-truncate-long-urls t)
(elfeed-sort-order 'descending)
(elfeed-search-filter "+unread")
:hook
(elfeed-show-mode . visual-line-mode))
(message "No URL found"))))
(use-package evil-collection
:ensure t
:after (evil elfeed)
:config
;; Enable Vim-style keybindings only for elfeed (search + entry views),
;; leaving the rest of the configuration on evil's defaults.
(evil-collection-init (list 'elfeed))
;; Restore the custom "v" -> mpv binding, which evil's normal-state visual
;; selection would otherwise shadow inside elfeed buffers.
(evil-collection-define-key 'normal 'elfeed-search-mode-map
"v" #'elfeed-play-with-mpv)
(evil-collection-define-key 'normal 'elfeed-show-mode-map
"v" #'elfeed-play-with-mpv))
(setq elfeed-enclosure-default-dir "~/Downloads/"
elfeed-search-remain-on-entry t
elfeed-search-title-max-width 100
elfeed-search-title-min-width 30
elfeed-search-trailing-width 25
elfeed-show-truncate-long-urls t
elfeed-sort-order 'descending
elfeed-search-filter "+unread")
(define-key elfeed-search-mode-map (kbd "v") #'elfeed-play-with-mpv)
(define-key elfeed-show-mode-map (kbd "v") #'elfeed-play-with-mpv)
(add-hook 'elfeed-show-mode-hook #'visual-line-mode))
(use-package elfeed-org
:ensure t
:after elfeed
:custom
;; Optionally specify a number of files containing elfeed
;; configuration. If not set then the location below is used.
;; Note: The customize interface is also supported.
(rmh-elfeed-org-files (list "~/.emacs.d/elfeed.org")))
(with-eval-after-load 'elfeed
(rmh-elfeed-org-files (list (expand-file-name "elfeed.org" user-emacs-directory)))
:config
(elfeed-org))
(provide 'misc/rss)