From 7d8344ac8af19d7a88c3547fa0ab8ced01135e86 Mon Sep 17 00:00:00 2001 From: jao Date: Sun, 18 Apr 2021 02:55:22 +0100 Subject: email.org, with some notmuch fine-tuning --- lib/eos/jao-afio.el | 21 ++++++++++----------- 1 file changed, 10 insertions(+), 11 deletions(-) (limited to 'lib/eos') diff --git a/lib/eos/jao-afio.el b/lib/eos/jao-afio.el index 1410b80..e6f1e72 100644 --- a/lib/eos/jao-afio.el +++ b/lib/eos/jao-afio.el @@ -20,6 +20,12 @@ ;;; Code: +(defvar jao-open-doc-fun 'find-file) +(defvar jao-afio-mail-function 'gnus) +(defvar jao-afio-use-w3m nil) +(defvar jao-afio-notmuch-in-web t) +(defvar jao-afio-switch-hook nil) + (defvar jao-afio--configs '(?c ?w ?g ?p ?s)) (defvar jao-afio--current-config (car jao-afio--configs)) (defvar jao-afio--locker nil) @@ -63,9 +69,6 @@ (next (or (cadr cur) (car jao-afio--configs)))) (jao-afio--goto-frame next))) -;;;###autoload -(defvar jao-open-doc-fun 'find-file) - ;;;###autoload (defun jao-afio-open-pdf-session () (interactive) @@ -86,10 +89,6 @@ (when (and (jao-doc-view-session) (y-or-n-p "Load saved session? ")) (jao-afio-open-pdf-session))))) -(defvar jao-afio-mail-function 'gnus) -(defvar jao-afio-use-w3m nil) -(defvar jao-afio-notmuch-in-web t) - (declare w3m "w3m") (declare w3m-alive-p "w3m") (declare w3m-previous-buffer "w3m") @@ -128,9 +127,11 @@ (interactive) (if (or (null jao-afio-mail-function) (eq 'gnus jao-afio-mail-function)) (jao-afio-open-gnus) - (delete-other-windows) + (jao-trisect) + (other-window 2) + (delete-window) + (other-window 1) (funcall jao-afio-mail-function) - (jao-bisect) (other-window 1) (find-file (expand-file-name "inbox.org" org-directory)) (split-window-below (/ (window-height) 3)) @@ -141,8 +142,6 @@ (switch-to-buffer "*Calendar*") (other-window 1))) -(defvar jao-afio-switch-hook nil) - (defun jao-afio--goto-frame (next &optional reset) (when (or reset (not (eq next jao-afio--current-config))) (let ((next-cfg (when (not reset) (get-register next)))) -- cgit v1.2.3