summaryrefslogtreecommitdiffhomepage
diff options
context:
space:
mode:
-rw-r--r--custom/jao-custom-completion.el2
-rw-r--r--custom/jao-custom-email.el2
-rw-r--r--custom/jao-custom-eww.el6
-rw-r--r--custom/jao-custom-exwm.el16
-rw-r--r--custom/jao-custom-org.el2
-rw-r--r--custom/jao-custom-w3m.el4
-rw-r--r--init.el18
-rw-r--r--lib/doc/jao-pdf.el2
-rw-r--r--lib/eos/jao-afio.el72
9 files changed, 64 insertions, 60 deletions
diff --git a/custom/jao-custom-completion.el b/custom/jao-custom-completion.el
index 0682b44..3977167 100644
--- a/custom/jao-custom-completion.el
+++ b/custom/jao-custom-completion.el
@@ -427,7 +427,7 @@
(defun jao-embark-targets--play-video (player url)
(interactive "sURL: ")
(let ((cmd (format "%s %s" player (shell-quote-argument url))))
- (jao-afio--goto-www)
+ (jao-afio-goto-www)
(start-process-shell-command player nil cmd)))
(defun jao-embark-targets-mpv (&optional url)
diff --git a/custom/jao-custom-email.el b/custom/jao-custom-email.el
index f35925b..83707ee 100644
--- a/custom/jao-custom-email.el
+++ b/custom/jao-custom-email.el
@@ -293,7 +293,7 @@
:history 'jao-mail-consult-buffer-history
:action (lambda (b)
(when (not (string-blank-p (or b "")))
- (jao-afio--goto-mail)
+ (jao-afio-goto-mail)
(if (get-buffer-window b)
(pop-to-buffer b)
(pop-to-buffer-same-window b))))
diff --git a/custom/jao-custom-eww.el b/custom/jao-custom-eww.el
index dbe147f..ae486fb 100644
--- a/custom/jao-custom-eww.el
+++ b/custom/jao-custom-eww.el
@@ -5,7 +5,7 @@
"Browse URL using eww."
(if (derived-mode-p 'eww-mode)
(eww url)
- (jao-afio--goto-www)
+ (jao-afio-goto-www)
(select-window (frame-first-window))
(let* ((url (url-encode-url url))
(bf (seq-find `(lambda (b)
@@ -66,7 +66,7 @@
:annotate (lambda (c) (get-text-property 0 'url c))
:history 'jao-eww-consult-history
:action (lambda (b)
- (jao-afio--goto-www)
+ (jao-afio-goto-www)
(switch-to-buffer (get-text-property 0 'buffer b)))
:items
(lambda ()
@@ -100,7 +100,7 @@
(interactive "P")
(if (> (length jao-eww--closed-urls) 0)
(let ((url (completing-read "URL: " jao-eww--closed-urls)))
- (jao-afio--goto-www)
+ (jao-afio-goto-www)
(setq jao-eww--closed-urls (remove url jao-eww--closed-urls))
(eww url (when arg 4)))
(message "No previously closed URLs.")))
diff --git a/custom/jao-custom-exwm.el b/custom/jao-custom-exwm.el
index 842fd1a..d40b297 100644
--- a/custom/jao-custom-exwm.el
+++ b/custom/jao-custom-exwm.el
@@ -238,7 +238,7 @@
(defun ,toggler (,arg)
(interactive "P")
(if (and (not ,arg) (equal exwm-class-name ,class))
- (jao-afio--goto-main)
+ (jao-afio-goto-main)
(,name))))))
(defun jao-exwm--send-str (str)
@@ -309,7 +309,7 @@
(car (jao-zathura--file-info b))))
(jao-zathura--buffers)))
(page-no (or page-no (jao-doc-view-current-page))))
- (if jao-exwm--use-afio (jao-afio--goto-docs) (jao-exwm--goto-docs))
+ (if jao-exwm--use-afio (jao-afio-goto-docs) (jao-exwm--goto-docs))
(if (not buffer)
(jao-exwm-run (if page-no
(format "zathura -P %s '%s'" page-no file-name)
@@ -395,7 +395,7 @@
(or (jao-zathura--buffer-p b)
(member (buffer-local-value 'major-mode b)
'(pdf-view-mode doc-view-mode))))))))
- (jao-afio--goto-docs)
+ (jao-afio-goto-docs)
(pop-to-buffer b)))
@@ -482,11 +482,11 @@
(setq
exwm-input-global-keys
- '(([?\s-0] . jao-afio--goto-scratch)
- ([?\s-1] . jao-afio--goto-main)
- ([?\s-2] . jao-afio--goto-mail)
- ([?\s-3] . jao-afio--goto-www)
- ([?\s-4] . jao-afio--goto-docs)
+ '(([?\s-0] . jao-afio-goto-scratch)
+ ([?\s-1] . jao-afio-goto-main)
+ ([?\s-2] . jao-afio-goto-mail)
+ ([?\s-3] . jao-afio-goto-www)
+ ([?\s-4] . jao-afio-goto-docs)
([?\s-A] . org-agenda-list)
([?\s-a] . jao-first-window)
([?\s-b] . jao-transient-org-blog)
diff --git a/custom/jao-custom-org.el b/custom/jao-custom-org.el
index f46b9ee..b98f665 100644
--- a/custom/jao-custom-org.el
+++ b/custom/jao-custom-org.el
@@ -5,7 +5,7 @@
:ensure t
:custom ((org-export-backends '(ascii html latex texinfo)))
:init
- (defalias 'jao-open-gnus-frame 'jao-afio--goto-mail)
+ (defalias 'jao-open-gnus-frame 'jao-afio-goto-mail)
(setq org-adapt-indentation t
org-catch-invisible-edits 'smart
diff --git a/custom/jao-custom-w3m.el b/custom/jao-custom-w3m.el
index 0ccd37c..0edac5e 100644
--- a/custom/jao-custom-w3m.el
+++ b/custom/jao-custom-w3m.el
@@ -10,7 +10,7 @@
(pop-to-buffer b))))
(defun jao-w3m-browse-url (url &rest r)
- (jao-afio--goto-www)
+ (jao-afio-goto-www)
(select-window (frame-first-window))
(unless (jao-w3m-find-url url)
(w3m-goto-url-new-session url)))
@@ -122,7 +122,7 @@
(seq-map #'jao-www--item
(seq-filter #'jao-www--buffer-p (buffer-list))))
:action (lambda (b)
- (jao-afio--goto-www)
+ (jao-afio-goto-www)
(switch-to-buffer (get-text-property 0 'buffer b)))))
(jao-consult-add-buffer-source 'jao-consult-w3m-source "Web" ?w)))
diff --git a/init.el b/init.el
index 4eb3986..38013e6 100644
--- a/init.el
+++ b/init.el
@@ -916,7 +916,7 @@
(message "%s"
(jao-shell-string "curl -s"
"https://wttr.in/?format=%l++%m++%C+%c+%t+%w++%p"))
- (jao-afio--goto-scratch)
+ (jao-afio-goto-scratch)
(if-let ((b (get-buffer "*wttr*")))
(progn (pop-to-buffer b)
(term-send-string "clear;curl wttr.in\n"))
@@ -1068,7 +1068,7 @@
(defun jao-recoll-open-html (file &optional page)
(if (string-match-p "\.epub\\'" file)
(find-file file)
- (jao-afio--goto-www)
+ (jao-afio-goto-www)
(if jao-afio-use-w3m (w3m-find-file file) (eww-open-file file))))
(defun jao-recoll-open-pdf (file &optional page)
@@ -1886,7 +1886,7 @@
(when (string-equal (buffer-file-name (car buffs)) file)
(throw 'done (car buffs)))
(setq buffs (cdr buffs))))))
- (jao-afio--goto-docs)
+ (jao-afio-goto-docs)
(if b (pop-to-buffer b) (find-file file))
(when page (jao-doc-view-goto-page page height))))
(jao-river-enabled (jao-river-open-with-zathura file page))
@@ -1903,7 +1903,7 @@
(defun jao-select-pdf ()
(interactive)
(jao-buffer-same-mode '(pdf-view-mode doc-view-mode)
- #'jao-afio--goto-docs))
+ #'jao-afio-goto-docs))
;; doc:// links for browse-url
(defun jao-open-doc-url (url &rest _)
@@ -3001,7 +3001,7 @@
(defun jao-telega ()
(interactive)
- (when jao-tracking-use-scratch (jao-afio--goto-scratch))
+ (when jao-tracking-use-scratch (jao-afio-goto-scratch))
(if (get-buffer telega-root-buffer-name)
(pop-to-buffer telega-root-buffer-name)
(telega)))
@@ -3020,7 +3020,7 @@
(defun jao-all-chats ()
(interactive)
(when jao-tracking-use-scratch
- (jao-afio--goto-scratch)
+ (jao-afio-goto-scratch)
(delete-other-windows))
(jao-chats t))
@@ -3260,8 +3260,8 @@
(use-package jao-random-album :demand t)
-(jao-def-exec-in-term "aptitude" "aptitude" (jao-afio--goto-scratch))
-(jao-def-exec-in-term "htop" "htop" (jao-afio--goto-scratch))
+(jao-def-exec-in-term "aptitude" "aptitude" (jao-afio-goto-scratch))
+(jao-def-exec-in-term "htop" "htop" (jao-afio-goto-scratch))
(transient-define-prefix jao-transient-streaming ()
[:description
@@ -3334,7 +3334,7 @@
;;; Global transients
(defun jao-list-packages ()
(interactive)
- (jao-afio--goto-scratch)
+ (jao-afio-goto-scratch)
(package-list-packages))
(defun jao-window-system-p ()
diff --git a/lib/doc/jao-pdf.el b/lib/doc/jao-pdf.el
index 6274cbb..184bb95 100644
--- a/lib/doc/jao-pdf.el
+++ b/lib/doc/jao-pdf.el
@@ -105,7 +105,7 @@ The result is cached as a local buffer variable."
(file (jao-org-pdf-to-org-file pdf-file))
(page (cadr info))
(pageno (or (car (last info)) page)))
- (ignore-errors (jao-afio--goto-docs))
+ (ignore-errors (jao-afio-goto-docs))
(let ((exists (file-exists-p file)))
(find-file file)
(unless exists (jao-org-insert-doc-skeleton))
diff --git a/lib/eos/jao-afio.el b/lib/eos/jao-afio.el
index 4000eca..7bb85a0 100644
--- a/lib/eos/jao-afio.el
+++ b/lib/eos/jao-afio.el
@@ -30,14 +30,12 @@
(defvar jao-afio-switch-hook nil)
(defvar jao-afio--configs '(?c ?w ?g ?p ?s))
+(defvar jao-afio--previous-config (car jao-afio--configs))
(defun jao-afio--current-config (&optional c f)
(when c (modify-frame-parameters f `((afio . ,c))))
(frame-parameter f 'afio))
-(defun jao-afio--check-frame-p ()
- (assoc 'afio (frame-parameters)))
-
(defun jao-afio--init (&optional f)
(interactive)
(jao-afio--current-config ?c)
@@ -170,60 +168,66 @@
(defun jao-afio--goto-frame (next &optional reset)
(jao-afio--check-frame)
- (when (or reset (not (eq next (jao-afio--current-config))))
- (if jao-afio-use-frames
- (let ((f (jao-afio--find-frame next)))
- (select-frame-set-input-focus (or f (make-frame)))
- (when (setq reset (or reset (not f)))
- (set-frame-name (format "W%s" (or (jao-afio-frame-no next) next)))))
- (window-configuration-to-register (jao-afio--current-config))
- (when (and (not reset) (get-register next)) (jump-to-register next)))
- (jao-afio--current-config next)
- (when reset (jao-afio-reset))
- (run-hooks 'jao-afio-switch-hook)))
-
-(defun jao-afio--goto-main (&optional reset)
+ (let ((current (jao-afio--current-config)))
+ (if (and (eq next current)
+ (not reset)
+ (not (eq current jao-afio--previous-config)))
+ (jao-afio--goto-frame jao-afio--previous-config)
+ (when (or reset (not (eq next current)))
+ (if jao-afio-use-frames
+ (let ((f (jao-afio--find-frame next)))
+ (select-frame-set-input-focus (or f (make-frame)))
+ (when (setq reset (or reset (not f)))
+ (set-frame-name (format "W%s" (or (jao-afio-frame-no next) next)))))
+ (window-configuration-to-register (jao-afio--current-config))
+ (when (and (not reset) (get-register next)) (jump-to-register next)))
+ (jao-afio--current-config next)
+ (unless (eq current next) (setq jao-afio--previous-config current))
+ (when reset (jao-afio-reset))
+ (run-hooks 'jao-afio-switch-hook)))))
+
+(defun jao-afio-goto-main (&optional reset)
(interactive "P")
(jao-afio--goto-frame ?c reset))
-(defun jao-afio--goto-scratch (&optional reset)
- (interactive "P")
- (jao-afio--goto-frame ?s reset))
-
-(defun jao-afio--goto-mail (&optional reset)
+(defun jao-afio-goto-mail (&optional reset)
(interactive "P")
(jao-afio--goto-frame ?g reset))
-(defun jao-afio--goto-docs (&optional reset)
+(defun jao-afio-goto-docs (&optional reset)
(interactive "P")
(jao-afio--goto-frame ?p reset))
-(defun jao-afio--goto-www (&optional reset)
+(defun jao-afio-goto-www (&optional reset)
(interactive "P")
(jao-afio--goto-frame ?w reset))
+(defun jao-afio-toggle ()
+ (interactive)
+ (jao-afio--goto-frame jao-afio--previous-config))
+
(defun jao-afio-goto-scratch (&optional one-win)
(interactive "P")
- (jao-afio--goto-scratch)
+ (jao-afio--goto-frame ?s nil)
(when one-win (delete-other-windows)))
;;;###autoload
(defun jao-afio-goto-nth (n)
(cl-case n
- ((1) (jao-afio--goto-main))
- ((2) (jao-afio--goto-mail))
- ((3) (jao-afio--goto-www))
- ((4) (jao-afio--goto-docs))
- ((5) (jao-afio--goto-scratch t))
- ((0) (jao-afio--goto-scratch))))
+ ((1) (jao-afio-goto-main))
+ ((2) (jao-afio-goto-mail))
+ ((3) (jao-afio-goto-www))
+ ((4) (jao-afio-goto-docs))
+ ((5) (jao-afio-goto-scratch t))
+ ((0) (jao-afio-goto-scratch))))
;;; setup
;;;###autoload
(defun jao-afio-setup (&optional use-frames)
- (global-set-key "\C-cf" 'jao-afio--goto-main)
- (global-set-key "\C-cg" 'jao-afio--goto-mail)
- (global-set-key "\C-cw" 'jao-afio--goto-www)
- (global-set-key "\C-cz" 'jao-afio--goto-docs)
+ (global-set-key "\C-cf" 'jao-afio-goto-main)
+ (global-set-key "\C-cg" 'jao-afio-goto-mail)
+ (global-set-key "\C-cw" 'jao-afio-goto-www)
+ (global-set-key "\C-cz" 'jao-afio-goto-docs)
(setq jao-afio-use-frames use-frames)
(jao-afio--init))