Add workspace support to rss/elfeed
I basically looked at the calendar app and copy/pasted the code into the rss app. I tested it on my machine and it worked.
This commit is contained in:
parent
0c9256411d
commit
50131ac995
1 changed files with 21 additions and 3 deletions
|
@ -1,8 +1,21 @@
|
||||||
;;; app/rss/autoload.el -*- lexical-binding: t; -*-
|
;;; app/rss/autoload.el -*- lexical-binding: t; -*-
|
||||||
|
|
||||||
|
(defvar +rss--wconf nil)
|
||||||
|
|
||||||
;;;###autoload
|
;;;###autoload
|
||||||
(defalias '=rss #'elfeed
|
(defun =rss ()
|
||||||
"Activate (or switch to) `elfeed' in its workspace.")
|
"Activate (or switch to) `elfeed' in its workspace."
|
||||||
|
(interactive)
|
||||||
|
(if (featurep! :ui workspaces)
|
||||||
|
(progn
|
||||||
|
(+workspace-switch "rss" t)
|
||||||
|
(doom/switch-to-scratch-buffer)
|
||||||
|
(elfeed)
|
||||||
|
(+workspace/display))
|
||||||
|
(setq +rss--wconf (current-window-configuration))
|
||||||
|
(delete-other-windows)
|
||||||
|
(switch-to-buffer (doom-fallback-buffer))
|
||||||
|
(elfeed)))
|
||||||
|
|
||||||
;;;###autoload
|
;;;###autoload
|
||||||
(defun +rss/delete-pane ()
|
(defun +rss/delete-pane ()
|
||||||
|
@ -77,7 +90,12 @@
|
||||||
(with-current-buffer b
|
(with-current-buffer b
|
||||||
(remove-hook 'kill-buffer-hook #'+rss-cleanup-h :local)
|
(remove-hook 'kill-buffer-hook #'+rss-cleanup-h :local)
|
||||||
(kill-buffer b)))
|
(kill-buffer b)))
|
||||||
(mapc #'kill-buffer show-buffers)))
|
(mapc #'kill-buffer show-buffers))
|
||||||
|
(if (featurep! :ui workspaces)
|
||||||
|
(+workspace/delete "rss")
|
||||||
|
(when (window-configuration-p +rss--wconf)
|
||||||
|
(set-window-configuration +rss--wconf))
|
||||||
|
(setq +rss--wconf nil)))
|
||||||
|
|
||||||
|
|
||||||
;;
|
;;
|
||||||
|
|
Loading…
Add table
Add a link
Reference in a new issue