summaryrefslogtreecommitdiffhomepage
path: root/lib/eos
diff options
context:
space:
mode:
authorjao <jao@gnu.org>2021-04-18 02:55:22 +0100
committerjao <jao@gnu.org>2021-04-18 02:56:13 +0100
commit7d8344ac8af19d7a88c3547fa0ab8ced01135e86 (patch)
tree490eb7b83a077b59ac51f3ca7c0e7245d7d17173 /lib/eos
parent8ea756c5d0ff541d33fb1be56d4c53a0b12f90e4 (diff)
downloadelibs-7d8344ac8af19d7a88c3547fa0ab8ced01135e86.tar.gz
elibs-7d8344ac8af19d7a88c3547fa0ab8ced01135e86.tar.bz2
email.org, with some notmuch fine-tuning
Diffstat (limited to 'lib/eos')
-rw-r--r--lib/eos/jao-afio.el21
1 files changed, 10 insertions, 11 deletions
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)
@@ -64,9 +70,6 @@
(jao-afio--goto-frame next)))
;;;###autoload
-(defvar jao-open-doc-fun 'find-file)
-
-;;;###autoload
(defun jao-afio-open-pdf-session ()
(interactive)
(dolist (doc (jao-doc-view-session))
@@ -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))))