app/twitter: refactor +twitter/quit commands
This commit is contained in:
parent
ac101e3af6
commit
4eeb562bc1
1 changed files with 7 additions and 7 deletions
|
@ -15,17 +15,17 @@
|
||||||
;;;###autoload
|
;;;###autoload
|
||||||
(defun +twitter/quit ()
|
(defun +twitter/quit ()
|
||||||
(interactive)
|
(interactive)
|
||||||
(call-interactively 'twittering-kill-buffer)
|
(when (eq major-mode 'twittering-mode)
|
||||||
(+workspace/close-window-or-workspace))
|
(twittering-kill-buffer)
|
||||||
|
(+workspace/close-window-or-workspace)))
|
||||||
|
|
||||||
;;;###autoload
|
;;;###autoload
|
||||||
(defun +twitter/quit-all ()
|
(defun +twitter/quit-all ()
|
||||||
(interactive)
|
(interactive)
|
||||||
(if (equal (+workspace-current-name) "Twitter")
|
|
||||||
(+workspace/delete "Twitter")
|
(+workspace/delete "Twitter")
|
||||||
(dolist (buf (doom-buffers-in-mode 'twittering-mode))
|
(dolist (buf (doom-buffers-in-mode 'twittering-mode))
|
||||||
(with-current-buffer buf
|
(with-current-buffer buf
|
||||||
(twittering-kill-buffer)))))
|
(twittering-kill-buffer))))
|
||||||
|
|
||||||
;;;###autoload
|
;;;###autoload
|
||||||
(defun +twitter/rerender-all ()
|
(defun +twitter/rerender-all ()
|
||||||
|
|
Loading…
Add table
Add a link
Reference in a new issue