From 3edd12a6507007cb57433f83265bfa99fcf183c6 Mon Sep 17 00:00:00 2001 From: Henrik Lissner Date: Tue, 11 Apr 2017 18:48:35 -0400 Subject: [PATCH] app/twitter: error handling for =twitter --- modules/app/twitter/autoload.el | 18 ++++++++++++------ 1 file changed, 12 insertions(+), 6 deletions(-) diff --git a/modules/app/twitter/autoload.el b/modules/app/twitter/autoload.el index 08edbf6ad..62625f61a 100644 --- a/modules/app/twitter/autoload.el +++ b/modules/app/twitter/autoload.el @@ -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 ()