diff options
Diffstat (limited to 'Doom/.doom.d/modules/private/rss')
-rw-r--r-- | Doom/.doom.d/modules/private/rss/README.org | 13 | ||||
-rw-r--r-- | Doom/.doom.d/modules/private/rss/config.el | 51 | ||||
-rw-r--r-- | Doom/.doom.d/modules/private/rss/packages.el | 4 |
3 files changed, 0 insertions, 68 deletions
diff --git a/Doom/.doom.d/modules/private/rss/README.org b/Doom/.doom.d/modules/private/rss/README.org deleted file mode 100644 index 3a025d4..0000000 --- a/Doom/.doom.d/modules/private/rss/README.org +++ /dev/null @@ -1,13 +0,0 @@ -#+TITLE: private/rss -#+DATE: May 2, 2020 - -* Description -This module allows the manipulation and usage of the /newsticker/ system. This is a nice RSS reader inbuilt to Emacs. - -Use =+rss/set-feed-urls= to set the urls for use in newsticker. Bind -=+rss/open-newsticker= =+rss/close-newsticker= to appropriate bindings. -* Prerequisites -None -* Requirements -- cl-lib -- newsticker diff --git a/Doom/.doom.d/modules/private/rss/config.el b/Doom/.doom.d/modules/private/rss/config.el deleted file mode 100644 index 4d8468a..0000000 --- a/Doom/.doom.d/modules/private/rss/config.el +++ /dev/null @@ -1,51 +0,0 @@ -;;; private/rss/config.el -*- lexical-binding: t; -*- - -(require 'seq) -(require 'cl-lib) - -(defvar +rss/feed-urls '(("Arch Linux" "https://www.archlinux.org/feeds/news/" Linux) - ("LEMMiNO" "https://www.youtube.com/feeds/videos.xml?channel_id=UCRcgy6GzDeccI7dkbbBna3Q" YouTube) - ("Gamer from Mars" "https://www.youtube.com/feeds/videos.xml?channel_id=UCJ6z_yj_dDNrhn-c8ZyKV4g" YouTube) - ("Pop Culture Detective" "https://www.youtube.com/feeds/videos.xml?channel_id=UCHiwtz2tCEfS17N9A-WoSSw" YouTube) - ("Dark Sominium" "https://www.youtube.com/feeds/videos.xml?channel_id=UC_e39rWdkQqo5-LbiLiU10g" YouTube Stories) - ("Dark Sominium Music" "https://www.youtube.com/feeds/videos.xml?channel_id=UCkLiZ_zLynyNd5fd62hg1Kw" YouTube Music) - ("Nexpo" "https://www.youtube.com/feeds/videos.xml?channel_id=UCpFFItkfZz1qz5PpHpqzYBw" YouTube) - ("Techquickie" "https://www.youtube.com/feeds/videos.xml?channel_id=UC0vBXGSyV14uvJ4hECDOl0Q" YouTube) - ("3B1B" "https://www.youtube.com/feeds/videos.xml?channel_id=UCYO_jab_esuFRV4b17AJtAw" YouTube))) - - -(when (featurep! +elfeed) - (after! elfeed - (setq elfeed-feeds (cl-map 'list (lambda (item) (append (list (nth 1 item)) (cdr (cdr item)))) +rss/feed-urls)))) - -(when (featurep! +newsticker) - (defun +rss/set-feed-urls (LIST) - "Set the newsticker-url-list to LIST. LIST should have format =(TAG URL START_TIME INTERVAL)=" - (setq newsticker-url-list LIST)) - - (defun +rss/get-newsticker-buffers () - "Using seq, filter the buffer list for newsticker buffers" - (seq-remove (lambda (buffer) - (not (and (cl-search "*Newsticker" (buffer-name buffer)) - (= (cl-search "*Newsticker" (buffer-name buffer)))))) - (buffer-list))) - - (defun +rss/close-newsticker() - "Routine to close the newsticker system" - (interactive) - (newsticker-stop) - (dolist (buf (+rss/get-newsticker-buffers)) - (kill-buffer buf)) - (+workspace/delete "RSS")) - - (use-package! newsticker - :config - (+rss/set-feed-urls ; Format is =(TAG URL START_TIME INTERVAL)= - (cl-map 'list (lambda (item) (list (nth 0 item) (nth 1 item) nil 3600)) +rss/feed-urls)) - - (defun +rss/open-newsticker () - "Routine to start and open the newsticker" - (interactive) - (newsticker-start) - (+workspace/new "RSS") - (newsticker-treeview)))) diff --git a/Doom/.doom.d/modules/private/rss/packages.el b/Doom/.doom.d/modules/private/rss/packages.el deleted file mode 100644 index 59d7afe..0000000 --- a/Doom/.doom.d/modules/private/rss/packages.el +++ /dev/null @@ -1,4 +0,0 @@ -;; -*- no-byte-compile: t; -*- -;;; private/rss/packages.el - -(package! elfeed) |