;;; -*- lexical-binding: t -*- ;; ;; this file: ;; https://dataswamp.org/~incal/emacs-init/w3m/w3m-keys.el (require 'keys) (require 'mail-to-many) (require 'scroll) (require 'super) (require 'w3m) (require 'w3m-bookmark-more) (require 'w3m-download) (require 'w3m-incal) (require 'w3m-swamp) (require 'w3m-tabs) (require 'w3m-url) (let ((kmap w3m-mode-map)) (disable-super-global-keys kmap) (set-scroll-keys kmap t) ; HORIZONTALLY (define-key kmap "g" #'w3m-goto-url-kill-current) ;; point (define-key kmap "p" #'previous-line) (define-key kmap "n" #'forward-line) ;; download (define-key kmap "d" #'w3m-dl-dwim) (define-key kmap "m" #'w3m-dl-magnet) ;; kill data (define-keys kmap #'w3m-kill-url-dwim "s" "u") (define-key kmap "T" #'w3m-kill-url-and-title) ;; page (define-key kmap "e" #'w3m-edit-url-or-bookmarks) (define-key kmap "p" #'w3m-cat-source) (define-key kmap "r" #'w3m-reload-this-page) ;; history (define-key kmap "b" #'w3m-view-previous-page) (define-key kmap "f" #'w3m-view-next-page) ;; bookmarks (define-key kmap "a" #'w3m-show-bookmarks) (define-key kmap "L" #'w3m-bookmark-dwim) ;; hard-coded bookmarks (define-key kmap "1" #'localhost) (define-key kmap "S" #'browse-swamp) ;; tabs (tab = w3m buffer) (define-key kmap "j" #'w3m-previous-buffer) (define-key kmap "l" #'w3m-next-buffer) (define-key kmap "t" #'w3m-new-tab) (define-key kmap "w" #'w3m-delete-buffer) ;; imgs (define-key kmap "U" #'w3m-previous-image) (define-keys kmap #'w3m-next-image "o" "O") ;; links (define-key kmap "\M-\r" #'w3m-view-this-url-new-tab) (define-key kmap "\r" #'w3m-view-this-url) (define-key kmap "\t" #'w3m-next-anchor) (define-key kmap [backtab] #'w3m-previous-anchor) ) (provide 'w3m-keys)