diff options
author | Aryadev Chavali <aryadev@aryadevchavali.com> | 2024-05-31 16:02:21 +0100 |
---|---|---|
committer | Aryadev Chavali <aryadev@aryadevchavali.com> | 2024-05-31 16:02:21 +0100 |
commit | 17348abe78e05702acaff25d6abefa96ff87b43d (patch) | |
tree | 041a980f534cbe7a10e352612f3e540417cc4280 /Doom/.config/doom/modules | |
parent | 046e0b9f0123a3c4bd8aa32431b72de486c60671 (diff) | |
parent | fdef946d6555b01b33fe496cdcd6fb293ae11eab (diff) | |
download | dotfiles-17348abe78e05702acaff25d6abefa96ff87b43d.tar.gz dotfiles-17348abe78e05702acaff25d6abefa96ff87b43d.tar.bz2 dotfiles-17348abe78e05702acaff25d6abefa96ff87b43d.zip |
Merge remote-tracking branch 'origin/master'
For desktop
Diffstat (limited to 'Doom/.config/doom/modules')
19 files changed, 0 insertions, 578 deletions
diff --git a/Doom/.config/doom/modules/private/bindings/README.org b/Doom/.config/doom/modules/private/bindings/README.org deleted file mode 100644 index 6bc6f68..0000000 --- a/Doom/.config/doom/modules/private/bindings/README.org +++ /dev/null @@ -1,188 +0,0 @@ -#+TITLE: private/bindings Literate configuration - -* Introduction -This is the main document for this module (=private/bindings=). -To compile, simply execute the source code block below -#+BEGIN_SRC elisp :tangle no -(org-babel-tangle-file "README.org" "config.el") -#+END_SRC -* Initial -Set the localleader to "SPC ," -#+BEGIN_SRC elisp -;;; private/bindings/config.el -*- lexical-binding: t; -*- -(setq doom-leader-key "SPC") -(setq doom-localleader-key "SPC ,") -#+END_SRC -* Leader -Bindings for the leader map -** Single binds -These are immediate bindings to the leader map that instantly launch functions when pressed. -This binding space is reserved for stuff I use quite often. -#+BEGIN_SRC elisp -(map! - :leader - "SPC" #'execute-extended-command - "!" #'async-shell-command - "T" #'eshell - "C" #'calc - "-" #'dired-jump - "_" #'dired-jump-other-window - ";" #'eval-expression - "h" #'help-command - "w" #'ace-window) -#+END_SRC -** Files -#+BEGIN_SRC elisp -(map! - :leader - :prefix "f" - "r" #'recentf-open-files - (:after projectile - "p" #'(lambda () (interactive) (doom-project-find-file "~/Dotfiles"))) - "f" #'find-file - "s" #'save-buffer - "d" #'dired) -#+END_SRC -** Buffers -#+BEGIN_SRC elisp -(map! - :leader - :prefix "b" - "n" #'next-buffer - "p" #'previous-buffer - "d" #'kill-current-buffer - "b" #'switch-to-buffer - "i" #'ibuffer) -#+END_SRC -** Search -#+BEGIN_SRC elisp -(map! - :leader - :prefix "s" - "i" #'imenu - "o" #'+lookup/online - (:after counsel - "s" #'swiper - "r" #'counsel-rg) - (:after counsel-etags - "t" #'counsel-etags-find-tag)) -#+END_SRC -** Projectile -#+BEGIN_SRC elisp -(map! - :leader - :after projectile - ">" #'projectile-switch-to-buffer - (:prefix ("p" . "project") - "p" #'projectile-switch-project - "g" #'projectile-regenerate-tags - "f" #'projectile-find-file - "i" #'projectile-invalidate-cache)) -#+END_SRC -** Code -#+BEGIN_SRC elisp -(map! - :leader - :prefix ("c" . "code") ; Code - :desc "Compile" "c" #'compile - :desc "Compile via make" "m" #'+make/run - :desc "Flycheck" "v" #'flycheck-list-errors - :desc "Undo tree" "u" #'undo-tree-visualize - (:after lsp - :desc "Format code lsp" "f" #'+default/lsp-format-region-or-buffer - :desc "Execute action" "a" #'lsp-execute-code-action)) -#+END_SRC -** Magit and VC -#+BEGIN_SRC elisp -(map! - :leader - :after magit - :prefix "g" - "g" #'magit-status - "c" #'magit-clone - "f" #'magit-fetch - "p" #'magit-pull) -#+END_SRC -** Notes -#+BEGIN_SRC elisp -(map! - :leader - :prefix ("n" . "notes") - :desc "Open notes in dired" "-" #'(lambda () (interactive) (dired org-directory)) - :desc "Open quicknotes" "q" #'(lambda () (interactive) (find-file (format "%s/qnotes.org" org-directory)))) -#+END_SRC -** Frames -#+BEGIN_SRC elisp -(map! - :leader - :prefix "F" - "d" #'delete-frame) -#+END_SRC -** Toggle -Bindings that usually toggle stuff based bindings -#+BEGIN_SRC elisp -(map! - :leader - :prefix "t" - "s" #'flyspell-mode - "f" #'flycheck-mode - "t" #'toggle-truncate-lines - "l" #'doom/toggle-line-numbers - "F" #'toggle-frame-fullscreen) -#+END_SRC -** Quit -Quit Emacs or restart it -#+BEGIN_SRC elisp -(map! - :leader - :prefix "q" - "q" #'save-buffers-kill-terminal - "r" #'doom/restart) -#+END_SRC -* Ivy -Bindings for ivy based functions -#+BEGIN_SRC elisp -(map! - :after ivy - :map ivy-minibuffer-map - "C-j" #'ivy-next-line-or-history - "C-k" #'ivy-previous-line-or-history) -#+END_SRC -* Company -#+BEGIN_SRC elisp -(map! - :i "C-SPC" #'company-complete-common - :map company-active-map - "C-j" #'company-select-next-or-abort - "C-k" #'company-select-previous-or-abort) -#+END_SRC -* Multi cursors -Setup bindings for multi cursors. -As it's a motion based system, use the "gz" namespace. -#+BEGIN_SRC elisp -(map! - :after evil - :m "gzm" #'evil-mc-resume-cursors - :m "gzp" #'evil-mc-pause-cursors - :m "gzd" #'evil-mc-make-all-cursors - :m "gzj" #'evil-mc-make-cursor-move-next-line - :m "gzk" #'evil-mc-make-cursor-move-prev-line - :m "gzz" #'evil-mc-make-cursor-here) -#+END_SRC -* Remaps -Remap certain functions to more useful counterparts -#+BEGIN_SRC elisp -(after! org - (define-key! - [remap org-goto] #'imenu)) -#+END_SRC -* Misc -Misc bindings that don't fit to any other category. -#+BEGIN_SRC elisp -(map! - "C-x C-z" #'text-scale-adjust - (:after evil - "TAB" #'evil-jump-item) - "M-c" #'count-words-region - "M-s" #'occur) -#+END_SRC diff --git a/Doom/.config/doom/modules/private/completion/config.el b/Doom/.config/doom/modules/private/completion/config.el deleted file mode 100644 index 633ac96..0000000 --- a/Doom/.config/doom/modules/private/completion/config.el +++ /dev/null @@ -1,49 +0,0 @@ -;;; private/completion/config.el -*- lexical-binding: t; -*- - -(use-package! ido - :hook (doom-first-input . ido-mode) - :hook (ido-mode . recentf-mode) - :hook (ido-mode . ido-everywhere) - :hook (ido-mode . ido-ubiquitous-mode) - - :preface - (defadvice! +ido-run-hooks-a (&rest _) - :after #'ido-mode - (run-hooks 'ido-mode-hook)) - - :init - (setq ido-save-directory-list-file nil) - (setq ido-save-directory-list-file nil) - (setq ido-ignore-buffers '("\\` " "^\\*ESS\\*" "^\\*[Hh]elp" "^\\*.*Completions\\*$" "^\\*tramp" "^\\*cvs-" "^*Ido")) - (setq ido-separator "\n") - - :config - (defun +completion/recentf() - (interactive) - (find-file (completing-read "Recentf: " recentf-list))) - - (define-key! - [remap recentf-open-files] #'+completion/recentf - [remap completing-read] #'ido-completing-read) - - (map! - :map (ido-common-completion-map ido-file-completion-map ido-buffer-completion-map) - "C-k" #'ido-prev-match - "C-j" #'ido-next-match - "TAB" #'ido-exit-minibuffer - :map ido-file-completion-map - "~" (cmd! (if (looking-back "/" (point-min)) - (insert "~/") - (call-interactively #'self-insert-command))))) - - -(use-package! ido-sort-mtime - :hook (ido-mode . ido-sort-mtime-mode)) - - -(use-package! crm-custom - :hook (ido-mode . crm-custom-mode)) - - -(use-package! flx-ido - :hook (ido-mode . flx-ido-mode)) diff --git a/Doom/.config/doom/modules/private/completion/packages.el b/Doom/.config/doom/modules/private/completion/packages.el deleted file mode 100644 index 39f4472..0000000 --- a/Doom/.config/doom/modules/private/completion/packages.el +++ /dev/null @@ -1,8 +0,0 @@ -;; -*- no-byte-compile: t; -*- -;;; private/completion/packages.el - - -(package! flx-ido) -(package! ido-completing-read+) -(package! ido-sort-mtime) -(package! crm-custom) diff --git a/Doom/.config/doom/modules/private/gentemplate/README.org b/Doom/.config/doom/modules/private/gentemplate/README.org deleted file mode 100644 index c09f20e..0000000 --- a/Doom/.config/doom/modules/private/gentemplate/README.org +++ /dev/null @@ -1,19 +0,0 @@ -#+TITLE: private/gentemplate -#+DATE: March 17, 2020 - -* Description -This module allows users to clone templates from my Github to specific machines. -These templates allow for quick and easy setup for languages or frameworks where -this sort of thing isn't very nice to do (for example C++). - -This module is used through the main function =+gentemplate/generate-template=. -It will ask what template you want to use then where to put it, finally doing -the necessary work to get you that template. You may mutate the variables -=+gentemplate/template-list= and =+gentemplate/profile-url= to customise your -templates. -* Prerequisites -- git -* Requirements -- ivy -- magit -- cl diff --git a/Doom/.config/doom/modules/private/gentemplate/config.el b/Doom/.config/doom/modules/private/gentemplate/config.el deleted file mode 100644 index 55caa75..0000000 --- a/Doom/.config/doom/modules/private/gentemplate/config.el +++ /dev/null @@ -1,35 +0,0 @@ -;;; private/gentemplate/config.el -*- lexical-binding: t; -*- - -(require 'cl-lib) - -(defconst +gentemplate/repo-url - "https://github.com/oreodave/" - "Repository url to download templates") - -(defconst +gentemplate/template-list - (list "CTemplate" "CPPTemplate" "PythonTemplate" "NodeTemplate" "ArduinoTemplate" "JavaTemplate") - "List of templates to use, relative to the repo-url") - -(defun +gentemplate/offline () - "Check if user is offline" - (eq (cl-list-length (network-interface-list)) 1)) - -(defun +gentemplate/copy-template (template-name dest) - "Copy a template project via it's `template-name' to a folder called `dest'" - (copy-directory (expand-file-name (concat "~/Code/Templates/" template-name)) dest)) - -(after! magit - (defun +gentemplate/download-template (template-name dest) - "Download a given template via its `template-name' to the `dest' folder" - (magit-clone-regular (concat +gentemplate/repo-url template-name) dest nil)) - - (defun +gentemplate/generate-template () - (interactive) - (let ((template-name (completing-read - "Enter template: " - +gentemplate/template-list)) - (dir (read-directory-name "Enter directory to download to: ")) - (offline (+gentemplate/offline))) - (if offline - (+gentemplate/copy-template template-name dir) - (+gentemplate/download-template template-name dir))))) diff --git a/Doom/.config/doom/modules/private/mail/autoload.el b/Doom/.config/doom/modules/private/mail/autoload.el deleted file mode 100644 index 13a79f9..0000000 --- a/Doom/.config/doom/modules/private/mail/autoload.el +++ /dev/null @@ -1,19 +0,0 @@ -;;; private/mail/autoload.el -*- lexical-binding: t; -*- - -;;;###autoload -(defun +mail/open-mail () - "Activate (or switch to) `notmuch' in its workspace." - (interactive) - (unless (featurep! :ui workspaces) - (user-error ":ui workspaces is required, but disabled")) - (condition-case-unless-debug e - (progn - (+workspace-switch "*MAIL*" t) - (if-let* ((buf (cl-find-if (lambda (it) (string-match-p "^\\*notmuch" (buffer-name (window-buffer it)))) - (doom-visible-windows)))) - (select-window (get-buffer-window buf)) - (notmuch-search "tag:inbox")) - (+workspace/display)) - ('error - (+notmuch/quit) - (signal (car e) (cdr e))))) diff --git a/Doom/.config/doom/modules/private/mail/config.el b/Doom/.config/doom/modules/private/mail/config.el deleted file mode 100644 index 25c9102..0000000 --- a/Doom/.config/doom/modules/private/mail/config.el +++ /dev/null @@ -1,33 +0,0 @@ -;;; private/mail/config.el -*- lexical-binding: t; -*- -(defconst +mail/signature - "--------------- -Aryadev Chavali") - -(use-package notmuch - :commands notmuch - :config - (setq notmuch-show-logo nil - message-signature +mail/signature - mail-signature +mail/signature) - - (defun +mail/sync-mail() - (interactive) - (start-process "imap-call" "*offlineimap*" "offlineimap" '("-oq"))) - - (map! - (:leader - "om" #'+mail/open-mail) - :map (notmuch-hello-mode-map notmuch-tree-mode-map notmuch-show-mode-map) - "u" #'notmuch-poll-and-refresh-this-buffer - "gS" #'+mail/sync-mail)) - -(use-package smtpmail - :commands mail-send - :after notmuch - :init - (setq smtpmail-smtp-server "mail.aryadevchavali.com" - send-mail-function 'smtpmail-send-it - message-send-mail-function 'smtpmail-send-it - smtpmail-smtp-user "aryadev" - smtpmail-smtp-service 587 - smtpmail-stream-type 'starttls)) diff --git a/Doom/.config/doom/modules/private/mail/packages.el b/Doom/.config/doom/modules/private/mail/packages.el deleted file mode 100644 index e084e30..0000000 --- a/Doom/.config/doom/modules/private/mail/packages.el +++ /dev/null @@ -1,4 +0,0 @@ -;; -*- no-byte-compile: t; -*- -;;; private/mail/packages.el - -(package! notmuch) diff --git a/Doom/.config/doom/modules/private/narrow/README.org b/Doom/.config/doom/modules/private/narrow/README.org deleted file mode 100644 index c767cb8..0000000 --- a/Doom/.config/doom/modules/private/narrow/README.org +++ /dev/null @@ -1,7 +0,0 @@ -#+TITLE: private/narrow -#+DATE: May 10, 2020 - -* Description -Minimal configuration for narrowing to function. -* Prerequisites -* Requirements diff --git a/Doom/.config/doom/modules/private/narrow/config.el b/Doom/.config/doom/modules/private/narrow/config.el deleted file mode 100644 index 9afd513..0000000 --- a/Doom/.config/doom/modules/private/narrow/config.el +++ /dev/null @@ -1,14 +0,0 @@ -;;; private/narrow/config.el -*- lexical-binding: t; -*- - -(defvar +narrow/narrow-state 't "To narrow or not to narrow. Flips between t and nil") - -(defun +narrow/toggle-narrow-state () - "Toggle the state of +narrow/narrow-state between 't and 'nil" - (if (= +narrow/narrow-state 't) - (setq +narrow/narrow-state nil) - (setq +narrow/narrow-state 't))) - -(defun +narrow/toggle-narrow () - (interactive) - (cond ((+narrow/narrow-state) (narrow-to-defun) (+narrow/toggle-narrow-state)) - (t (widen)))) diff --git a/Doom/.config/doom/modules/private/ocaml/README.org b/Doom/.config/doom/modules/private/ocaml/README.org deleted file mode 100644 index de29e59..0000000 --- a/Doom/.config/doom/modules/private/ocaml/README.org +++ /dev/null @@ -1,16 +0,0 @@ -#+TITLE: private/ocaml -#+DATE: March 29, 2020 - -* Description -My own ocaml module. Has LSP support, which is well defined. - -Pretty minimalist and allows for quick coding. Uses the terminal a lot so I'd -suggest using vterm as well for quick access to the terminal. -* Prerequisites -- ocaml compiler -- opam -- ocamllsp (from opam) (if LSP) -* Requirements -- lsp -- tuareg -- utop diff --git a/Doom/.config/doom/modules/private/ocaml/config.el b/Doom/.config/doom/modules/private/ocaml/config.el deleted file mode 100644 index df138ad..0000000 --- a/Doom/.config/doom/modules/private/ocaml/config.el +++ /dev/null @@ -1,20 +0,0 @@ -;;; private/ocaml/config.el -*- lexical-binding: t; -*- - -(use-package! utop - :config - (map! - :localleader - :map tuareg-mode-map - :desc "Repl" "c" #'utop - (:prefix ("e" . "eval") - :desc "Buffer" "b" #'utop-eval-buffer - :desc "Region" "r" #'utop-eval-region))) - - -(when (featurep! +lsp) - (after! lsp - (lsp-register-client - (make-lsp-client :new-connection (lsp-stdio-connection "ocamllsp") - :major-modes '(tuareg-mode) - :server-id 'ocaml-lsp)) - (add-hook 'tuareg-mode-hook #'lsp!))) diff --git a/Doom/.config/doom/modules/private/ocaml/packages.el b/Doom/.config/doom/modules/private/ocaml/packages.el deleted file mode 100644 index 61f1c8d..0000000 --- a/Doom/.config/doom/modules/private/ocaml/packages.el +++ /dev/null @@ -1,6 +0,0 @@ -;; -*- no-byte-compile: t; -*- -;;; private/ocaml/packages.el - - -(package! tuareg) -(package! utop) diff --git a/Doom/.config/doom/modules/private/oreoline/README.org b/Doom/.config/doom/modules/private/oreoline/README.org deleted file mode 100644 index 57b24e9..0000000 --- a/Doom/.config/doom/modules/private/oreoline/README.org +++ /dev/null @@ -1,13 +0,0 @@ -#+TITLE: private/oreoline -#+DATE: March 29, 2020 - -* Description -My very own modeline. Minimalist, isn't particularly fancy but does the job. -Uses telephone line with some configuration. Has support for a light version as well. - -Has LSP support as well as evil support (can present evil modes and LSP mode). -* Prerequisites -None -* Requirements -- telephone line -- evil-anzu diff --git a/Doom/.config/doom/modules/private/oreoline/config.el b/Doom/.config/doom/modules/private/oreoline/config.el deleted file mode 100644 index 0bc3a41..0000000 --- a/Doom/.config/doom/modules/private/oreoline/config.el +++ /dev/null @@ -1,74 +0,0 @@ -;;; ui/telephone/config.el -*- lexical-binding: t; -*- - -(use-package! telephone-line - :hook (after-init . telephone-line-mode) - :init - ;; Faces - (defface +oreoline-accent-dark '((t (:foreground "black" :background "Cadet Blue" ))) "") - (defface +oreoline-evil-dark '((t (:foreground "white" :background "dark green" ))) "") - (defface +oreoline-evil-inactive '((t (:foreground "cornsilk" :background "gray26" ))) "") - - (defface +oreoline-accent-light '((t (:foreground "black" :background "Light Slate Grey"))) "") - (defface +oreoline-evil-light '((t (:foreground "black" :background "Sky Blue" ))) "") - - ;; Set telephone line faces - (setq telephone-line-faces - '((evil . (+oreoline-evil-dark . +oreoline-evil-inactive)) - (modal . telephone-line-modal-face) - (ryo . telephone-line-ryo-modal-face) - (accent . (+oreoline-accent-dark . telephone-line-accent-inactive)) - (nil mode-line . mode-line-inactive))) - (when (featurep! +light) - (setq telephone-line-faces - '((evil . (+oreoline-evil-light . +oreoline-evil-inactive)) - (modal . telephone-line-modal-face) - (ryo . telephone-line-ryo-modal-face) - (accent . (+oreoline-accent-light . telephone-line-accent-inactive)) - (nil mode-line . mode-line-inactive)))) - - ;; Seperators - (setq telephone-line-primary-left-separator 'telephone-line-abs-left - telephone-line-secondary-left-separator 'telephone-line-identity-hollow-left - telephone-line-primary-right-separator 'telephone-line-abs-right - telephone-line-secondary-right-separator 'telephone-line-identity-hollow-right) - - ;; LSP segment - (telephone-line-defsegment +oreoline-lsp-segment () - (if (bound-and-true-p lsp-mode) - (propertize "") - (propertize ""))) - - ;; Visual line check - (telephone-line-defsegment +oreoline-visual-segment () - (if mark-active - (let ((lines (count-lines (region-beginning) (region-end))) - (chars (- (region-end) (region-beginning)))) - (if (< lines 2) - (propertize (format "%sC" chars)) - (propertize (format "%sL %sC" lines chars)))) - (propertize "~"))) - - (setq - ;; LHS - telephone-line-lhs - '((evil . (telephone-line-evil-tag-segment - telephone-line-buffer-modified-segment)) - (accent . (telephone-line-filesize-segment - telephone-line-buffer-name-segment - telephone-line-erc-modified-channels-segment - telephone-line-process-segment)) - (nil . ())) - ;; RHS - telephone-line-rhs - '((nil . (telephone-line-misc-info-segment)) - (accent . (telephone-line-vc-segment - +oreoline-lsp-segment - telephone-line-major-mode-segment - telephone-line-flycheck-segment)) - (modal . (+oreoline-visual-segment)) - (evil . (telephone-line-airline-position-segment)))) - :config - (size-indication-mode +1)) - -(use-package! evil-anzu - :after-call evil-ex-start-search evil-ex-start-word-search evil-ex-search-activate-highlight) diff --git a/Doom/.config/doom/modules/private/oreoline/packages.el b/Doom/.config/doom/modules/private/oreoline/packages.el deleted file mode 100644 index 9479896..0000000 --- a/Doom/.config/doom/modules/private/oreoline/packages.el +++ /dev/null @@ -1,5 +0,0 @@ -;; -*- no-byte-compile: t; -*- -;;; ui/telephone/packages.el - -(package! telephone-line) -(package! evil-anzu) diff --git a/Doom/.config/doom/modules/private/rss/README.org b/Doom/.config/doom/modules/private/rss/README.org deleted file mode 100644 index 3a025d4..0000000 --- a/Doom/.config/doom/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/.config/doom/modules/private/rss/config.el b/Doom/.config/doom/modules/private/rss/config.el deleted file mode 100644 index 4d8468a..0000000 --- a/Doom/.config/doom/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/.config/doom/modules/private/rss/packages.el b/Doom/.config/doom/modules/private/rss/packages.el deleted file mode 100644 index 59d7afe..0000000 --- a/Doom/.config/doom/modules/private/rss/packages.el +++ /dev/null @@ -1,4 +0,0 @@ -;; -*- no-byte-compile: t; -*- -;;; private/rss/packages.el - -(package! elfeed) |