emacs: Add elfeed mode.
This commit is contained in:
parent
af66caf14a
commit
51ecdd42c2
GPG key ID:
C0F1D326C7626543
1 changed files with 148 additions and 0 deletions
148
pkgsets/emacs/elfeed.nix
Normal file
148
pkgsets/emacs/elfeed.nix
Normal file
|
|
@ -0,0 +1,148 @@
|
|||
{ config, lib, pkgs, ... }:
|
||||
|
||||
with lib;
|
||||
|
||||
mkIf (elem "emacs::elfeed" config.machine.pkgs) {
|
||||
programs.emacs.init.usePackage = {
|
||||
elfeed = let
|
||||
pyEnv = pkgs.python3.withPackages (ps: with ps; [ beautifulsoup4 lxml requests ]);
|
||||
pyScript = pkgs.writeScript "elfeedFetcher.py" ''
|
||||
#!${pyEnv}/bin/python3
|
||||
import sys
|
||||
from requests import get
|
||||
from bs4 import BeautifulSoup
|
||||
|
||||
header_agent = {'User-Agent': 'Mozilla/5.0 (X11; Linux x86_64; rv:75.0) Gecko/20100101 Firefox/75.0'}
|
||||
with get(sys.argv[1], headers=header_agent) as r:
|
||||
soup = BeautifulSoup(r.text, 'lxml')
|
||||
abstract = soup.find('dd', {"id": "abstract"}).text.replace('"', '\\"')
|
||||
article = '\n\n'.join(
|
||||
[soup.find('p', {"id": "first"}, class_="lead").text] +
|
||||
[
|
||||
p.text for p in
|
||||
soup.find('div', {"id": "text"}).findAll('p')
|
||||
]).replace('"', '\\"')
|
||||
print(f"(setq abstract \"{abstract}\") (setq article \"{article}\")")
|
||||
'';
|
||||
in {
|
||||
enable = true;
|
||||
hook = [ ''(elfeed-new-entry . elfeed-content-fetcher)'' ];
|
||||
config = ''
|
||||
(load-file "~/.emacs.d/elfeed.el")
|
||||
|
||||
(defun elfeed-play-with-mpv (entry)
|
||||
"Play entry link with mpv."
|
||||
(interactive (elfeed-search-selected :single))
|
||||
(start-process "elfeed-mpv" nil "mpv" "--ytdl-format=[height<=1080]" (elfeed-entry-link entry)))
|
||||
|
||||
(defun elfeed-search-show-entry-custom (entry)
|
||||
"Custom actions for various sources."
|
||||
(interactive (list (elfeed-search-selected :ignore-region)))
|
||||
(if (equal (car (elfeed-entry-id entry)) "www.youtube.com") (elfeed-play-with-mpv entry)
|
||||
(elfeed-show-entry entry)))
|
||||
(define-key elfeed-search-mode-map [remap elfeed-search-show-entry] 'elfeed-search-show-entry-custom)
|
||||
|
||||
(defun elfeed-get-yt-description (url)
|
||||
(shell-command-to-string (format "${pkgs.youtube-dl}/bin/youtube-dl --get-description \"%s\" 2> /dev/null" url)))
|
||||
|
||||
(defun elfeed-get-sd-article (url)
|
||||
(eval-string (shell-command-to-string (format "${pyEnv}/bin/python3 ${pyScript} \"%s\" 2> /dev/null" url))))
|
||||
|
||||
(defun eval-string (string)
|
||||
(eval (car (read-from-string (format "(progn %s)" string)))))
|
||||
|
||||
(defun elfeed-content-fetcher (entry)
|
||||
"Fetches content for various entries (currently only sciencedaily)."
|
||||
(interactive (list (elfeed-search-selected :ignore-region)))
|
||||
|
||||
(let ((url (elfeed-entry-link entry))
|
||||
(feed-id (elfeed-deref (elfeed-entry-feed-id entry)))
|
||||
)
|
||||
(when (equal (car (elfeed-entry-id entry)) "www.sciencedaily.com")
|
||||
(elfeed-get-sd-article (cdr (elfeed-entry-id entry)))
|
||||
;; (setf (elfeed-entry-content entry) (elfeed-ref article))
|
||||
(setf (elfeed-meta entry :content) (elfeed-ref article))
|
||||
(setf (elfeed-meta entry :abstract) abstract)
|
||||
(makunbound 'abstract)
|
||||
(makunbound 'article))))
|
||||
|
||||
(defun elfeed-show-refresh--mail-style ()
|
||||
"Update the buffer to match the selected entry, using a mail-style."
|
||||
(interactive)
|
||||
(let* ((inhibit-read-only t)
|
||||
(title (elfeed-entry-title elfeed-show-entry))
|
||||
(date (seconds-to-time (elfeed-entry-date elfeed-show-entry)))
|
||||
(authors (elfeed-meta elfeed-show-entry :authors))
|
||||
(link (elfeed-entry-link elfeed-show-entry))
|
||||
(tags (elfeed-entry-tags elfeed-show-entry))
|
||||
(tagsstr (mapconcat #'symbol-name tags ", "))
|
||||
(nicedate (format-time-string "%a, %e %b %Y %T %Z" date))
|
||||
(content (if (elfeed-meta elfeed-show-entry :content) (elfeed-deref (elfeed-meta elfeed-show-entry :content)) (elfeed-deref (elfeed-entry-content elfeed-show-entry))))
|
||||
(type (elfeed-entry-content-type elfeed-show-entry))
|
||||
(feed (elfeed-entry-feed elfeed-show-entry))
|
||||
(feed-title (elfeed-feed-title feed))
|
||||
(base (and feed (elfeed-compute-base (elfeed-feed-url feed)))))
|
||||
(erase-buffer)
|
||||
(insert (format (propertize "Title: %s\n" 'face 'message-header-name)
|
||||
(propertize title 'face 'message-header-subject)))
|
||||
(when elfeed-show-entry-author
|
||||
(dolist (author authors)
|
||||
(let ((formatted (elfeed--show-format-author author)))
|
||||
(insert
|
||||
(format (propertize "Author: %s\n" 'face 'message-header-name)
|
||||
(propertize formatted 'face 'message-header-to))))))
|
||||
(insert (format (propertize "Date: %s\n" 'face 'message-header-name)
|
||||
(propertize nicedate 'face 'message-header-other)))
|
||||
(insert (format (propertize "Feed: %s\n" 'face 'message-header-name)
|
||||
(propertize feed-title 'face 'message-header-other)))
|
||||
(when tags
|
||||
(insert (format (propertize "Tags: %s\n" 'face 'message-header-name)
|
||||
(propertize tagsstr 'face 'message-header-other))))
|
||||
(insert (propertize "Link: " 'face 'message-header-name))
|
||||
(elfeed-insert-link link link)
|
||||
(insert "\n")
|
||||
(cl-loop for enclosure in (elfeed-entry-enclosures elfeed-show-entry)
|
||||
do (insert (propertize "Enclosure: " 'face 'message-header-name))
|
||||
do (elfeed-insert-link (car enclosure))
|
||||
do (insert "\n"))
|
||||
(insert "\n")
|
||||
(if content
|
||||
(if (eq type 'html)
|
||||
(elfeed-insert-html content base)
|
||||
(insert content))
|
||||
(insert (propertize "(empty)\n" 'face 'italic)))
|
||||
(goto-char (point-min))))
|
||||
|
||||
|
||||
(defun elfeed-db-gc (&optional stats-p)
|
||||
"Clean up unused content from the content database.
|
||||
If STATS is true, return the space cleared in bytes."
|
||||
(elfeed-db-gc-empty-feeds)
|
||||
(let* ((data (expand-file-name "data" elfeed-db-directory))
|
||||
(dirs (directory-files data t "^[0-9a-z]\\{2\\}$"))
|
||||
(ids (cl-mapcan (lambda (d) (directory-files d nil nil t)) dirs))
|
||||
(table (make-hash-table :test 'equal)))
|
||||
(dolist (id ids)
|
||||
(setf (gethash id table) nil))
|
||||
(with-elfeed-db-visit (entry _)
|
||||
(let ((content (elfeed-entry-content entry))
|
||||
(meta-content (elfeed-meta entry :content)))
|
||||
(when (elfeed-ref-p content)
|
||||
(setf (gethash (elfeed-ref-id content) table) t))
|
||||
(when (elfeed-ref-p (meta-content))
|
||||
(setf (gethash (elfeed-ref-id meta-content) table) t))))
|
||||
(cl-loop for id hash-keys of table using (hash-value used)
|
||||
for used-p = (or used (member id '("." "..")))
|
||||
when (and (not used-p) stats-p)
|
||||
sum (let* ((ref (elfeed-ref--create :id id))
|
||||
(file (elfeed-ref--file ref)))
|
||||
(* 1.0 (nth 7 (file-attributes file))))
|
||||
unless used-p
|
||||
do (elfeed-ref-delete (elfeed-ref--create :id id))
|
||||
finally (cl-loop for dir in dirs
|
||||
when (elfeed-directory-empty-p dir)
|
||||
do (delete-directory dir)))))
|
||||
'';
|
||||
};
|
||||
};
|
||||
}
|
||||
Loading…
Reference in a new issue