diff options
| author | jao <jao@gnu.org> | 2022-09-10 22:04:17 +0100 |
|---|---|---|
| committer | jao <jao@gnu.org> | 2022-09-10 22:05:46 +0100 |
| commit | 0b5e320d07f841d6eab9225cd1eac672ee70ecdc (patch) | |
| tree | 46a2cad70eec78b379bd449c58bbdb085886114c /lib/eos | |
| parent | 44a82900e4ee484f1e95e5a4ef4c97db30ccc98c (diff) | |
| download | elibs-0b5e320d07f841d6eab9225cd1eac672ee70ecdc.tar.gz elibs-0b5e320d07f841d6eab9225cd1eac672ee70ecdc.tar.bz2 | |
jao-afio: jao-trisect belongs there
Diffstat (limited to 'lib/eos')
| -rw-r--r-- | lib/eos/jao-afio.el | 20 |
1 files changed, 19 insertions, 1 deletions
diff --git a/lib/eos/jao-afio.el b/lib/eos/jao-afio.el index 6369697..be25d65 100644 --- a/lib/eos/jao-afio.el +++ b/lib/eos/jao-afio.el @@ -48,6 +48,24 @@ (unless (jao-afio--current-config) (jao-afio--init (window-frame (get-buffer-window (current-buffer)))))) +;;; utilities +(defun jao-afio-trisect (&optional force) + (interactive) + (let ((fw (frame-width))) + (cond ((or force (>= fw 240)) + (let ((b (current-buffer))) + (delete-other-windows) + (switch-to-buffer (other-buffer b)) + (split-window-horizontally) + (switch-to-buffer (other-buffer b)) + (split-window-horizontally) + (switch-to-buffer b) + (balance-windows))) + ((> fw 162) + (delete-other-windows) + (split-window-horizontally) + (switch-to-buffer (other-buffer)))))) + ;;; session openers ;;;###autoload (defun jao-afio-open-pdf-session (&optional docs) @@ -152,7 +170,7 @@ (?w (jao-afio-open-www)) (?g (jao-afio-open-mail)) (?p (jao-afio-open-doc)) - (?s (delete-other-windows)))) + (?s (jao-afio-trisect)))) ;;; go to frame (defsubst jao-afio--find-frame (c) |