;; -*- lexical-binding: t -*- ;;; browse-url and afio (defun jao-w3m-find-url (url) (let* ((url (w3m-canonicalize-url url)) (fn `(lambda (b) (with-current-buffer b (string= ,url (w3m-canonicalize-url w3m-current-url)))))) (when-let* ((b (seq-find fn (w3m-list-buffers)))) (pop-to-buffer b)))) (defun jao-w3m-browse-url (url &rest r) (jao-afio-goto-www) (select-window (frame-first-window)) (unless (jao-w3m-find-url url) (w3m-goto-url-new-session url))) (defun jao-w3m-download (arg) (interactive "P") (jao-download (w3m-anchor) arg)) (setq jao-afio-use-w3m t) (setq jao-browse-url-function 'jao-w3m-browse-url) ;;; multipart html renderer (defun jao-w3m-html-renderer (handle) (let ((w3m-message-silent t) (w3m-fill-column 120) (mm-w3m-safe-url-regexp nil) (mm-inline-text-html-with-w3m-keymap t)) (condition-case e (mm-inline-text-html-render-with-w3m handle) (error (message "Error rendering page with w3m: %s" e) (delete-region (point) (point-max)) (let ((shr-use-fonts nil)) (mm-shr handle)))))) (setq mm-text-html-renderer 'jao-w3m-html-renderer) ;;; notmuch integration (defvar-local jao-notmuch--showing-images nil) (defun jao-notmuch--setup-w3m-images (&optional activate) (setq-local w3m-ignored-image-url-regexp (unless jao-notmuch--showing-images notmuch-show-text/html-blocked-images)) (when activate (setq-local scroll-margin 0) (w3m-toggle-inline-images (if jao-notmuch--showing-images t 'turnoff)))) (defun jao-notmuch--w3m-toggle-images () (save-window-excursion (when (or (derived-mode-p 'notmuch-show-mode) (jao-notmuch-goto-message-buffer nil t)) (goto-char (point-min)) (when (re-search-forward "^\\[ text/html " nil t) (when (looking-at-p "(hidden)") (notmuch-show-toggle-part-invisibility)) (forward-line 1) (setq jao-notmuch--showing-images (not jao-notmuch--showing-images)) (jao-notmuch--setup-w3m-images t))))) (add-hook 'notmuch-show-mode-hook #'jao-notmuch--setup-w3m-images) ;;; org integration (defun jao-w3m-get-link () (let ((wb (w3m-alive-p))) (when wb (let ((url (with-current-buffer wb w3m-current-url)) (title (w3m-buffer-title wb))) (cons url title))))) (defun jao-insert-w3m-link () (interactive) (let ((link (jao-w3m-get-link))) (when link (insert "[[" (car link) "][" (cdr link) "]]")))) (with-eval-after-load "org" (require 'ol-w3m nil t) (define-key org-mode-map "\C-cW" 'jao-insert-w3m-link)) ;;; capture page (defun jao-w3m-capture-page () (interactive) (let* ((title (w3m-current-title)) (url w3m-current-url) (html (y-or-n-p "Save as HTML (y) or PS (n)? ")) (basename (concat (read-string "File name: ") (if html ".html" ".ps"))) (name (expand-file-name basename jao-sink-dir))) (if html (progn (w3m-view-source) (write-region (point-min) (point-max) name nil nil nil t) (w3m-view-source)) (progn (split-window-horizontally 85) (w3m-redisplay-this-page) (ps-print-buffer name) (delete-other-windows) (w3m-redisplay-this-page))) (kill-new (format "[[doc:%s][%s]] ([[%s][original]])" basename title url)))) ;;; consult narrowing (with-eval-after-load "w3m-util" (with-eval-after-load "consult" (defvar jao-consult-w3m-buffer-history nil) (defun jao-www--item (b) (with-current-buffer b (propertize (or w3m-current-title (buffer-name)) 'buffer b 'url (or w3m-current-url (buffer-name))))) (defvar jao-consult-w3m-source (list :name "www buffer" :category 'www-buffer :hidden t :narrow (cons ?w "www") :annotate (lambda (b) (when b (get-text-property 0 'url b))) :history 'jao-consult-w3m-buffer-history :items (lambda () (seq-map #'jao-www--item (seq-filter #'jao-www--buffer-p (buffer-list)))) :action (lambda (b) (jao-afio-goto-www) (switch-to-buffer (get-text-property 0 'buffer b))))) (jao-consult-add-buffer-source 'jao-consult-w3m-source))) ;;; package (use-package w3m :ensure t :demand t :custom ((w3m-key-binding 'info) (w3m-display-mode 'dual-pane)) :init (setq w3m-add-user-agent nil w3m-confirm-leaving-secure-page nil w3m-cookie-accept-bad-cookies t w3m-cookie-accept-domains '(".github.com" ".librarything.com" ".goodreads.com" ".sr.ht" ".gnu.org" ".codeberg.org" "codeberg.org" ".bookshop.org" ".reddit.com") w3m-cookie-reject-domains '(".") w3m-default-display-inline-images nil w3m-default-save-directory "~/doc/sink" w3m-do-cleanup-temp-files nil w3m-external-view-temp-directory "/tmp" w3m-fill-column 110 w3m-goto-article-function 'jao-w3m-browse-url w3m-form-input-textarea-buffer-lines 40 w3m-history-minimize-in-new-session t w3m-history-reuse-history-elements nil w3m-init-file nil w3m-image-no-idle-timer t w3m-make-new-session t w3m-profile-directory "~/.w3m" w3m-redisplay-pages-automatically-p nil w3m-resize-images t w3m-safe-url-regexp nil w3m-search-default-engine "duckduckgo" ; "google-en" w3m-select-buffer-horizontal-window nil w3m-select-buffer-window-ratio '(20 . 40) w3m-session-load-last-sessions t w3m-session-load-crashed-sessions 'ask w3m-show-graphic-icons-in-header-line nil w3m-show-graphic-icons-in-mode-line nil w3m-toggle-inline-images-permanently nil w3m-use-tab nil w3m-use-tab-line nil w3m-use-title-buffer-name t w3m-use-cookies t w3m-use-filter nil w3m-use-favicon nil w3m-use-header-line nil w3m-use-refresh nil w3m-use-symbol t) :config :bind (:map w3m-mode-map (("+" . w3m-zoom-in-image) ("-" . w3m-zoom-out-image) ("C-c C-@" . tracking-next-buffer) ("C-c C-SPC" . tracking-next-buffer) ("C-c C-b" . nil) ("C-l" . nil) ("C-c c" . jao-w3m-capture-page) ("b" . w3m-view-previous-page) ("B" . w3m-view-next-page) ("c" . w3m-print-this-url) ("d" . jao-w3m-download) ("D" . w3m-download) ("f" . w3m-lnum-follow) ("v" . jao-view-video) ("q" . w3m-delete-buffer) ("w" . org-w3m-copy-for-org-mode) ("x" . jao-rss-subscribe) ("y" . w3m-print-current-url)))) ;;; textsec ;; the way in which w3m constructs ALT text for links to images confuses ;; makes it suspicious under textsec link check. (with-eval-after-load "textsec" (advice-add 'textsec-link-suspicious-p :override #'ignore)) ;;; . (provide 'jao-custom-w3m)