From a187752c824b47052d33d3bc12749b5a7d2e8191 Mon Sep 17 00:00:00 2001 From: Franck Cuny Date: Thu, 1 Jun 2023 19:35:59 -0700 Subject: 🤡 MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit Change-Id: I06b104d79deac199f9cd9cdae705e333d23cc852 --- emacs/custom/my-elfeed.el | 48 ----------------------------------------------- 1 file changed, 48 deletions(-) delete mode 100644 emacs/custom/my-elfeed.el (limited to 'emacs/custom/my-elfeed.el') diff --git a/emacs/custom/my-elfeed.el b/emacs/custom/my-elfeed.el deleted file mode 100644 index a9ce043..0000000 --- a/emacs/custom/my-elfeed.el +++ /dev/null @@ -1,48 +0,0 @@ -;;; my-elfeed.el --- Configure elfeed -*- lexical-binding: t -*- - -;;; Commentary: - -;;; Code: - -(require 'elfeed) -(require 'elfeed-org) - -(with-eval-after-load 'elfeed-search - '(define-key elfeed-search-mode-map (kbd "*") 'elfeed-toggle-star)) - -(add-hook 'after-init-hook 'elfeed-org) - -(customize-set-variable 'elfeed-search-filter "@1-month-ago +unread") -(customize-set-variable 'rmh-elfeed-org-files (list (expand-file-name "etc/elfeed.org" user-emacs-directory))) - -(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) - -(with-eval-after-load 'elfeed - (setq elfeed-search-face-alist - '((mustread elfeed-face-tag-mustread) - (unread elfeed-search-unread-title-face)))) - -(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)))) - -(provide 'my-elfeed) - -;;; my-elfeed.el ends here -- cgit 1.4.1