diff options
author | jao <jao@gnu.org> | 2022-08-13 19:45:50 +0100 |
---|---|---|
committer | jao <jao@gnu.org> | 2022-08-13 19:45:50 +0100 |
commit | 98e34ab0fa5e460da866d37ecccb66d8ebd75321 (patch) | |
tree | 4c18127544cde76491f29826a6c26bee8284e1b4 /init.el | |
parent | 2e5cd6256d0dba3e57d433f5d873ab961a50a343 (diff) | |
download | elibs-98e34ab0fa5e460da866d37ecccb66d8ebd75321.tar.gz elibs-98e34ab0fa5e460da866d37ecccb66d8ebd75321.tar.bz2 |
emacs-w3m compatibility
Diffstat (limited to 'init.el')
-rw-r--r-- | init.el | 8 |
1 files changed, 4 insertions, 4 deletions
@@ -955,7 +955,7 @@ (if (string-match-p "\.epub\\'" file) (find-file file) (jao-afio--goto-www) - (eww-open-file file))) + (if jao-afio-use-w3m (w3m-find-file file) (eww-open-file file)))) (defun jao-recoll-open-pdf (file &optional page) (if (string-match-p "/gnus/Mail/" file) @@ -1443,7 +1443,8 @@ ;;;; downloads using wget (defun jao-wget--get-title (filename) - (or (plist-get eww-data :title) + (or (and (derived-mode-p 'w3m-mode) (w3m-current-title)) + (plist-get eww-data :title) (and (not (string-blank-p (or filename ""))) (subst-char-in-string ?- ? (capitalize (file-name-base filename)))))) @@ -1520,8 +1521,7 @@ (with-current-buffer b (or (derived-mode-p 'w3m-mode 'eww-mode) (and (boundp 'exwm-class-name) - (member (buffer-local-value 'exwm-class-name b) - '("vlc" "mpv")))))) + (member exwm-class-name '("vlc" "mpv")))))) ;; (require 'jao-custom-eww) (require 'jao-custom-w3m) |