libs -> lib/

1 files changed, 212 insertions, 0 deletions

diff --git a/lib/eos/jao-afio.el b/lib/eos/jao-afio.el
new file mode 100644
index 0000000..10ca474
--- /dev/null
+++ b/lib/eos/jao-afio.el
@@ -0,0 +1,212 @@
+;;; jao-afio.el --- workspaces in just one frame  -*- lexical-binding: t; -*-
+
+;; Copyright (C) 2020, 2021  jao
+
+;; Author: jao <mail@jao.io>
+;; Keywords: frames
+
+;; This program is free software; you can redistribute it and/or modify
+;; it under the terms of the GNU General Public License as published by
+;; the Free Software Foundation, either version 3 of the License, or
+;; (at your option) any later version.
+
+;; This program is distributed in the hope that it will be useful,
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+;; GNU General Public License for more details.
+
+;; You should have received a copy of the GNU General Public License
+;; along with this program.  If not, see <https://www.gnu.org/licenses/>.
+
+;;; Code:
+
+(defvar jao-afio--configs '(?c ?w ?g ?p ?s))
+(defvar jao-afio--current-config (car jao-afio--configs))
+(defvar jao-afio--locker nil)
+(defvar jao-afio-fallback-fun nil)
+
+(defun jao-afio--check-frame-p ()
+  (assoc 'afio (frame-parameters)))
+
+(defun jao-afio--init (&optional f)
+  (interactive)
+  (when (and (frame-live-p jao-afio--locker)
+             (not (eql f jao-afio--locker)))
+    (if jao-afio-fallback-fun
+        (funcall jao-afio-fallback-fun)
+      (error "Another frame is using afio")))
+  (setq jao-afio--locker f)
+  (modify-frame-parameters f '((afio . t)))
+  (setq jao-afio--current-config ?c)
+  (mapc (lambda (r) (set-register r nil)) jao-afio--configs)
+  (window-configuration-to-register ?c))
+
+(defun jao-afio--steal ()
+  (interactive)
+  (setq jao-afio--locker nil)
+  (jao-afio--init (window-frame (get-buffer-window (current-buffer)))))
+
+(defun jao-afio--check-frame ()
+  (unless (jao-afio--check-frame-p)
+    (or (when jao-afio-fallback-fun
+          (funcall jao-afio-fallback-fun)
+          t)
+        (when (y-or-n-p "Another frame is using afio. Steal? ")
+          (jao-afio--steal)
+          t)
+        (error "Aborted"))))
+
+(defun jao-afio--next-frame ()
+  (interactive)
+  (jao-afio--check-frame)
+  (let* ((cur (member jao-afio--current-config jao-afio--configs))
+         (next (or (cadr cur) (car jao-afio--configs))))
+    (jao-afio--goto-frame next)))
+
+;;;###autoload
+(defun jao-afio-open-doc ()
+  (interactive)
+  (delete-other-windows)
+  (split-window-right)
+  (let ((docs (remove-if-not (lambda (b)
+                               (eq (buffer-local-value 'major-mode b)
+                                   'pdf-view-mode))
+                             (buffer-list))))
+    (if (car docs)
+        (progn (switch-to-buffer (car docs))
+               (switch-to-buffer-other-window (or (cadr docs) (car docs))))
+      (when (and (jao-doc-view-session)
+                 (y-or-n-p "Load saved session? "))
+        (dolist (doc (jao-doc-view-session))
+          (when (and (file-exists-p doc) (y-or-n-p (format "Open %s? " doc)))
+            (find-file doc)))))))
+
+;;;###autoload
+(defun jao-afio-open-w3m ()
+  (interactive)
+  (if (< (frame-width) 180)
+      (w3m)
+    (delete-other-windows)
+    (split-window-right)
+    (w3m)
+    (other-window 1)
+    (switch-to-buffer "*w3m*")
+    (ignore-errors (w3m-previous-buffer 2))))
+
+;;;###autoload
+(defun jao-afio-open-gnus ()
+  (interactive)
+  (delete-other-windows)
+  (org-agenda-list)
+  (calendar)
+  (find-file (expand-file-name "inbox.org" org-directory))
+  (gnus)
+  (jao-gnus--set-summary-line))
+
+;;;###autoload
+(defun jao-afio-open-mail (mail-func)
+  (interactive)
+  (delete-other-windows)
+  (funcall mail-func)
+  (jao-bisect)
+  (other-window 1)
+  (find-file (expand-file-name "inbox.org" org-directory))
+  (split-window-below (/ (window-height) 3))
+  (other-window 1)
+  (org-agenda-list)
+  (split-window-below -9)
+  (other-window 1)
+  (switch-to-buffer "*Calendar*")
+  (other-window 1))
+
+(defvar jao-afio-switch-hook nil)
+
+(defun jao-afio--goto-frame (next &optional reset)
+  (let ((next-cfg (when (not reset) (get-register next))))
+    (window-configuration-to-register jao-afio--current-config)
+    (setq jao-afio--current-config next)
+    (if next-cfg
+        (jump-to-register next)
+      (delete-other-windows)
+      (cl-case next
+        (?w (jao-afio-open-w3m))
+        (?g (jao-afio-open-gnus))
+        (?p (jao-afio-open-doc))
+        (?s (delete-other-windows))))
+    (run-hooks 'jao-afio-switch-hook)))
+
+(defun jao-afio--goto-main (&optional reset)
+  (interactive "P")
+  (jao-afio--check-frame)
+  (jao-afio--goto-frame ?c reset))
+
+(defun jao-afio--goto-scratch (&optional reset)
+  (interactive "P")
+  (jao-afio--check-frame)
+  (jao-afio--goto-frame ?s reset))
+
+(defun jao-afio--goto-gnus (&optional reset)
+  (interactive "P")
+  (jao-afio--check-frame)
+  (jao-afio--goto-frame ?g reset))
+
+(defun jao-afio--goto-docs (&optional reset)
+  (interactive "P")
+  (jao-afio--check-frame)
+  (jao-afio--goto-frame ?p reset))
+
+(defun jao-afio--goto-w3m (&optional reset)
+  (interactive "P")
+  (if (jao-afio--check-frame-p)
+      (jao-afio--goto-frame ?w reset)
+    (when (w3m-alive-p)
+      (pop-to-buffer (w3m-alive-p)))))
+
+(defun jao-afio--try-init (&optional f)
+  (ignore-errors (jao-afio--init f))
+  t)
+
+(defun jao-afio--goto-w3m-buffer (buf &rest _)
+  (jao-afio--goto-w3m)
+  (jao-first-window)
+  (switch-to-buffer buf nil t))
+
+(defun jao-afio--goto-pdf-buffer (buf &rest _)
+  (if (jao-afio--check-frame-p)
+      (progn (jao-afio--goto-docs)
+             (jao-first-window)
+             (switch-to-buffer buf nil t))
+    (pop-to-buffer buf)))
+
+(defun jao-afio-goto-scratch (&optional one-win)
+  (jao-afio--goto-scratch)
+  (when one-win (delete-other-windows)))
+
+(defun jao-afio-current-frame ()
+  (cl-case jao-afio--current-config
+    (?c "Main")
+    (?s "Scratch")
+    (?g "Gnus")
+    (?p "Docs")
+    (?w "Web")))
+
+(defun jao-afio-current-no ()
+  (cl-case jao-afio--current-config
+    (?c "1")
+    (?s "0")
+    (?g "2")
+    (?p "4")
+    (?w "3")))
+
+;;;###autoload
+(defun jao-afio-setup (&optional fallback-fun init-p)
+  (global-set-key "\C-cf" 'jao-afio--goto-main)
+  (global-set-key "\C-cg" 'jao-afio--goto-gnus)
+  (global-set-key "\C-cw" 'jao-afio--goto-w3m)
+  (global-set-key "\C-cz" 'jao-afio--goto-docs)
+  (setq jao-afio-fallback-fun fallback-fun)
+  (add-hook (if init-p 'after-init-hook 'after-make-frame-functions)
+            'jao-afio--try-init))
+
+(provide 'jao-afio)
+;;; jao-afio.el ends here