diff options
author | jao <jao@gnu.org> | 2021-03-25 23:16:35 +0000 |
---|---|---|
committer | jao <jao@gnu.org> | 2021-03-25 23:16:35 +0000 |
commit | c760155d9eacb11c16cb7b601297791206e0e3b0 (patch) | |
tree | a763a161daf40fde460d4ce51e859c2ec4b6e7af | |
parent | 24dd1dfa89d1a133b0a6c2301bbde4524b3d4650 (diff) | |
download | elibs-c760155d9eacb11c16cb7b601297791206e0e3b0.tar.gz elibs-c760155d9eacb11c16cb7b601297791206e0e3b0.tar.bz2 |
afio-w3m -> afio-www
-rw-r--r-- | exwm.org | 12 | ||||
-rw-r--r-- | lib/eos/jao-afio.el | 26 | ||||
-rw-r--r-- | w3m.org | 2 |
3 files changed, 23 insertions, 17 deletions
@@ -36,11 +36,11 @@ (when (jao-exwm--mark-frame init) (jao-afio-open-gnus))) - (defun jao-exwm--goto-w3m (&optional init) + (defun jao-exwm--goto-www (&optional init) (interactive "P") (exwm-workspace-switch-create 5) (when (jao-exwm--mark-frame init) - (jao-afio-open-w3m) + (jao-afio-open-www) (let ((scroll-bar-mode 'left)) (toggle-scroll-bar 1) (set-frame-parameter (window-frame) 'scroll-bar-width 12)) @@ -59,12 +59,12 @@ (defun jao-exwm-no-afio-setup () (interactive) (defalias 'jao-open-gnus-frame 'jao-exwm--goto-mail) - (defalias 'jao-goto-w3m-frame 'jao-exwm--goto-w3m) + (defalias 'jao-goto-www-frame 'jao-exwm--goto-www) (setq jao-open-doc-fun #'jao-exwm-open-doc) (setq minibuffer-follows-selected-frame t) (global-set-key "\C-cf" 'jao-exwm--goto-main) (global-set-key "\C-cg" 'jao-exwm--goto-mail) - (global-set-key "\C-cw" 'jao-exwm--goto-w3m) + (global-set-key "\C-cw" 'jao-exwm--goto-www) (global-set-key "\C-cz" 'jao-exwm--goto-docs)) (if jao-exwm--use-afio @@ -214,7 +214,7 @@ (cl-case n ((1) (jao-afio--goto-main)) ((2) (jao-afio--goto-gnus)) - ((3) (jao-afio--goto-w3m)) + ((3) (jao-afio--goto-www)) ((4) (jao-afio--goto-docs)) ((5) (jao-afio--goto-scratch-1)) ((0) (jao-afio--goto-scratch))) @@ -467,7 +467,7 @@ '(([?\s-0] . jao-afio--goto-scratch) ([?\s-1] . jao-afio--goto-main) ([?\s-2] . jao-afio--goto-gnus) - ([?\s-3] . jao-afio--goto-w3m) + ([?\s-3] . jao-afio--goto-www) ([?\s-4] . jao-afio--goto-docs) ([?\s-A] . org-agenda-list) ([?\s-a] . jao-first-window) diff --git a/lib/eos/jao-afio.el b/lib/eos/jao-afio.el index 10ca474..ab5fd12 100644 --- a/lib/eos/jao-afio.el +++ b/lib/eos/jao-afio.el @@ -81,17 +81,23 @@ (when (and (file-exists-p doc) (y-or-n-p (format "Open %s? " doc))) (find-file doc))))))) +(defvar jao-afio-use-w3m nil) + ;;;###autoload -(defun jao-afio-open-w3m () +(defun jao-afio-open-www () (interactive) + (require 'jao-eww-session) (if (< (frame-width) 180) - (w3m) + (if jao-afio-use-w3m (w3m) (jao-eww-session-load)) (delete-other-windows) (split-window-right) - (w3m) + (if jao-afio-use-w3m (w3m) (jao-eww-session-load)) (other-window 1) - (switch-to-buffer "*w3m*") - (ignore-errors (w3m-previous-buffer 2)))) + (when jao-afio-use-w3m + (switch-to-buffer "*w3m*") + (ignore-errors (w3m-previous-buffer 2))) + (unless jao-afio-use-w3m + (switch-to-buffer (car (last (jao-eww-session--list-buffers))))))) ;;;###autoload (defun jao-afio-open-gnus () @@ -129,7 +135,7 @@ (jump-to-register next) (delete-other-windows) (cl-case next - (?w (jao-afio-open-w3m)) + (?w (jao-afio-open-www)) (?g (jao-afio-open-gnus)) (?p (jao-afio-open-doc)) (?s (delete-other-windows)))) @@ -155,7 +161,7 @@ (jao-afio--check-frame) (jao-afio--goto-frame ?p reset)) -(defun jao-afio--goto-w3m (&optional reset) +(defun jao-afio--goto-www (&optional reset) (interactive "P") (if (jao-afio--check-frame-p) (jao-afio--goto-frame ?w reset) @@ -166,8 +172,8 @@ (ignore-errors (jao-afio--init f)) t) -(defun jao-afio--goto-w3m-buffer (buf &rest _) - (jao-afio--goto-w3m) +(defun jao-afio--goto-www-buffer (buf &rest _) + (jao-afio--goto-www) (jao-first-window) (switch-to-buffer buf nil t)) @@ -202,7 +208,7 @@ (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-cw" 'jao-afio--goto-www) (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) @@ -37,7 +37,7 @@ w3m-use-header-line nil w3m-use-refresh nil) (setq jao-browse-url-function 'jao-w3m-browse-url) - :config (defalias 'jao-goto-w3m-frame 'jao-afio--goto-w3m) + :config (defalias 'jao-goto-w3m-frame 'jao-afio--goto-www) :bind (:map w3m-mode-map (("C-c C-@" . tracking-next-buffer) ("C-c C-SPC" . tracking-next-buffer)))) (require 'w3m) |