From de6752858aa1355dda396256e1339d9f6bc51cae Mon Sep 17 00:00:00 2001 From: Case Duckworth Date: Sun, 13 Dec 2020 20:56:08 -0600 Subject: Update README --- README.md | 59 ++++++++++++++++++++++++++++++++++++++++++++++------------- 1 file changed, 46 insertions(+), 13 deletions(-) diff --git a/README.md b/README.md index a4edfdd..1a6f121 100644 --- a/README.md +++ b/README.md @@ -1022,22 +1022,55 @@ from [unpackaged.el](https://github.com/alphapapa/unpackaged.el#ensure-blank-lin (0x0-default-service 'ttm)) -## Elfeed +## RSS -inspired by ["Lazy Elfeed"](https://karthinks.com/software/lazy-elfeed/). - - (use-package elfeed - :when (executable-find "curl") + (use-package newsticker + :custom + (newsticker-url-list + ;; LABEL URL [START-TIME] [INERVAL] [WGET-ARGUMENTS] + '(("wsinatra" "http://lambdacreate.com/static/feed.rss") + ("elioat" "https://eli.li/feed.rss") + ("ACDW" "https://www.acdw.net/atom.xml") + ("june" "https://text.causal.agency/feed.atom") + ("kylie - notes" "https://www.somas.is/notes.atom") + ("kylie - rhizome" "https://www.somas.is/rhizome.atom") + ("brennan" "https://p1k3.com/all.xml") + ("Planet Emacs" "https://planet.emacslife.com/atom.xml") + ("nullprogram, Chris Wellons" "https://nullprogram.com/feed/") + ("Malleable Systems" "https://malleable.systems/blog/index.xml")) + ) :hook - (elfeed-show-mode-hook . visual-fill-column-mode)) + (newsticker-treeview-item-mode-hook . visual-fill-column-mode)) + + +## Web browsing + + +### Open youtube links in mpv + +from [karthinks](https://karthinks.com/software/more-batteries-included-with-emacs/#regexp-builder--m-x-re-builder). + + (require 'browse-url) - (use-package elfeed-org - :custom - (rmh-elfeed-org-files - (list (expand-file-name "elfeed.org" - user-emacs-directory))) - :init - (elfeed-org)) + (when (executable-find "mpv") + (defun browse-url-mpv (url &optional single) + (start-process "mpv" nil (if single "mpv" "umpv") + (shell-quote-wildcard-pattern url))) + + (defun browse-url-at-point-mpv (&optional single) + "Open a link in mpv." + (interactive "P") + (let ((browse-url-browser-function + (if single + (lambda + (url &optional _new-window) + (browse-url-mpv url t)) + #'browse-url-mpv))) + (browse-url-at-point))) + + (cuss browse-url-browser-function + '(("https?:\\/\\/www\\.youtu\\.*be." . browse-url-mpv) + ("." . browse-url-generic)))) # Appendices -- cgit 1.4.1-21-gabe81