;;; ll-w3m-keys --- ll w3m keys -*- lexical-binding: t -*-
;;; Commentary:
;;; Code:

(require 'cl-lib)
(cl-pushnew "." load-path :test #'string=)
(require 'll)

(-> 'll-scroll)
(-> 'll-w3m)
(-> 'll-w3m-bookmark-more)
(-> 'll-w3m-download)
(-> 'll-w3m-url)
(-> 'w3m)

(let ((kmap w3m-mode-map))
  (set-scroll-keys kmap t)
  (keymap-set kmap "g" #'w3m-goto-url-kill-current)
  ;; point
  (keymap-set kmap "p" #'previous-line)
  (keymap-set kmap "n" #'forward-line)
  ;; download
  (keymap-set kmap "d" #'w3m-dl)
  (keymap-set kmap "m" #'w3m-dl-magnet)
  ;; kill
  (keymap-set kmap "u" #'w3m-kill-url)
  (keymap-set kmap "T" #'w3m-kill-url-and-title)
  ;; page
  (keymap-set kmap "e" #'w3m-edit-url-or-bookmarks)
  (keymap-set kmap "p" #'w3m-cat-source)
  (keymap-set kmap "r" #'w3m-reload-this-page)
  ;; history
  (keymap-set kmap "b" #'w3m-view-previous-page)
  (keymap-set kmap "f" #'w3m-view-next-page)
  ;; bookmarks
  (keymap-set kmap "a" #'w3m-show-bookmarks)
  (keymap-set kmap "L" #'w3m-bookmark)
  ;; hard-coded
  (keymap-set kmap "1" #'localhost)
  (keymap-set kmap "S" #'browse-swamp)
  (keymap-set kmap "s" #'w3m-search)
  ;; tabs (tab = w3m buffer)
  (keymap-set kmap "j" #'w3m-previous-buffer)
  (keymap-set kmap "l" #'w3m-next-buffer)
  (keymap-set kmap "t" #'w3m-new-tab)
  (keymap-set kmap "w" #'w3m-delete-buffer)
  ;; imgs
  (keymap-set kmap "U" #'w3m-previous-image)
  (keymap-set kmap "o" #'w3m-next-image)
  (keymap-set kmap "O" #'w3m-next-image)
  ;; links
  (keymap-set kmap "M-RET"   #'w3m-view-this-url-new-tab)
  (keymap-set kmap "RET"     #'w3m-view-this-url)
  (keymap-set kmap "TAB"     #'w3m-next-anchor)
  (define-key kmap [backtab] #'w3m-previous-anchor))

(<- 'll-w3m-keys)
;;; ll-w3m-keys.el ends here