From 98e34ab0fa5e460da866d37ecccb66d8ebd75321 Mon Sep 17 00:00:00 2001 From: jao Date: Sat, 13 Aug 2022 19:45:50 +0100 Subject: emacs-w3m compatibility --- init.el | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'init.el') diff --git a/init.el b/init.el index 80df4cf..b70eac6 100644 --- a/init.el +++ b/init.el @@ -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) -- cgit v1.2.3