diff options
| -rw-r--r-- | custom/jao-custom-gnus.el | 2 | ||||
| -rw-r--r-- | lib/eos/jao-afio.el | 21 |
2 files changed, 6 insertions, 17 deletions
diff --git a/custom/jao-custom-gnus.el b/custom/jao-custom-gnus.el index 0a015bc..f24d20a 100644 --- a/custom/jao-custom-gnus.el +++ b/custom/jao-custom-gnus.el @@ -38,7 +38,7 @@ ;;; Looks ;;;; geometry -(defvar jao-gnus-use-three-panes (not jao-notmuch-enabled)) +(defvar jao-gnus-use-three-panes t) (defvar jao-gnus-groups-width 50) (defvar jao-gnus-wide-width 190) diff --git a/lib/eos/jao-afio.el b/lib/eos/jao-afio.el index d022ef1..dcaa833 100644 --- a/lib/eos/jao-afio.el +++ b/lib/eos/jao-afio.el @@ -140,31 +140,20 @@ (set-window-dedicated-p nil t) (other-window 1)) -;;;###autoload -(defun jao-afio-open-notmuch () - (interactive) +(defun jao-afio--open-mail (fun) + (unless (get-buffer "*Calendar*") (calendar)) (delete-other-windows) (split-window-horizontally -80) - (notmuch) + (funcall fun) (set-window-dedicated-p nil t) (jao-afio--mail-sidebar)) -(defun jao-afio-open-mail-function () - (interactive) - (jao-trisect) - (other-window 2) - (delete-window) - (other-window 1) - (funcall jao-afio-mail-function) - (jao-afio--mail-sidebar)) - ;;;###autoload (defun jao-afio-open-mail () (interactive) - (unless (get-buffer "*Calendar*") (calendar)) (cond ((eq 'gnus jao-afio-mail-function) (jao-afio-open-gnus)) - ((eq 'notmuch jao-afio-mail-function) (jao-afio-open-notmuch)) - (jao-afio-open-mail-function (jao-afio-open-mail-function)))) + ((eq 'notmuch jao-afio-mail-function) (jao-afio--open-mail 'notmuch)) + (t (jao-afio-trisect)))) ;;;###autoload (defun jao-afio-reset () |