diff options
| -rw-r--r-- | emacs/custom/my-elfeed.el | 20 |
1 files changed, 18 insertions, 2 deletions
diff --git a/emacs/custom/my-elfeed.el b/emacs/custom/my-elfeed.el index 9d4125e..d1ace62 100644 --- a/emacs/custom/my-elfeed.el +++ b/emacs/custom/my-elfeed.el @@ -18,13 +18,29 @@ (defalias 'elfeed-toggle-star (elfeed-expose #'elfeed-search-toggle-all 'star)) +;; set colors for some specific tags (defface elfeed-face-tag-mustread '((t :foreground "#f00")) "This is a custom font face for the `mustread' tag in Elfeed." :group 'elfeed) -(push '(mustread elfeed-face-tag-mustread) - elfeed-search-face-alist) +(with-eval-after-load 'elfeed + (setq elfeed-search-face-alist + '((mustread elfeed-face-tag-mustread)))) + +(defun my/elfeed-show-visit-eww () + "Visit the current entry in eww." + (interactive) + (let ((link (elfeed-entry-link elfeed-show-entry))) + (when link + (eww link)))) + +;; disable proportional fonts when displaying HTML content. +(advice-add #'elfeed-insert-html + :around + (lambda (fun &rest r) + (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." |