awesome-emacs/doomemacs
1
0
Fork 0
mirror of https://github.com/doomemacs/doomemacs synced 2025-08-01 12:17:25 -05:00
Code Issues Packages Projects Releases Wiki Activity

app/twitter: error handling for =twitter

Browse Source
This commit is contained in:
Henrik Lissner
2017-04-11 18:48:35 -04:00
parent bdf84afe68
commit 3edd12a650
1 changed files with 12 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

18
modules/app/twitter/autoload.el
View File

@ -5,12 +5,18 @@
(interactive)
(+workspace-switch "Twitter" t)
(delete-other-windows)
(call-interactively 'twit)
(switch-to-buffer (car twittering-initial-timeline-spec-string))
(dolist (name (cdr twittering-initial-timeline-spec-string))
(split-window-horizontally)
(switch-to-buffer name))
(balance-windows))
(condition-case ex
(progn
(call-interactively 'twit)
(unless (get-buffer (car twittering-initial-timeline-spec-string))
(error "Failed to open twitter"))
(switch-to-buffer (car twittering-initial-timeline-spec-string))
(dolist (name (cdr twittering-initial-timeline-spec-string))
(split-window-horizontally)
(switch-to-buffer name))
(balance-windows))
('error
(+twitter/quit-all))))
;;;###autoload
(defun +twitter/quit ()