1 files changed, 47 insertions, 14 deletions

@@ -4,7 +4,7 @@
 #+EXPORT_FILE_NAME: README.md
 #+OPTIONS: toc:nil
 #+BANKRUPTCY_COUNT: 3
-#+Time-stamp: <2020-12-11 18:29:59 acdw>
+#+Time-stamp: <2020-12-12 12:37:04 acdw>
 
 Let’s configure Emacs using Org mode, they said.  It’ll be fun, they said.
 
@@ -1119,23 +1119,56 @@ from [[https://github.com/alphapapa/unpackaged.el#ensure-blank-lines-between-hea
     (0x0-default-service 'ttm))
 #+end_src
 
-** Elfeed
-
-inspired by [[https://karthinks.com/software/lazy-elfeed/]["Lazy Elfeed"]].
+** RSS
 
 #+begin_src emacs-lisp
-  (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))
+#+end_src
 
-  (use-package elfeed-org
-    :custom
-    (rmh-elfeed-org-files
-     (list (expand-file-name "elfeed.org"
-                             user-emacs-directory)))
-    :init
-    (elfeed-org))
+** Web browsing
+
+*** Open youtube links in mpv
+
+from [[https://karthinks.com/software/more-batteries-included-with-emacs/#regexp-builder--m-x-re-builder][karthinks]].
+
+#+begin_src emacs-lisp
+  (require 'browse-url)
+
+  (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))))
 #+end_src
 
 * Appendices