;;; -*- lexical-binding: t -*-
;;
;; this file:
;;   https://dataswamp.org/~incal/emacs-init/w3m/w3m-keys.el

(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

  (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-dwim)
  (keymap-set kmap "m" #'w3m-dl-magnet)

  ;; kill data
  (keymap-set kmap "s" #'w3m-kill-url-dwim)
  (keymap-set kmap "u" #'w3m-kill-url-dwim)
  (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-dwim)

  ;; hard-coded bookmarks
  (keymap-set kmap "1" #'localhost)
  (keymap-set kmap "S" #'browse-swamp)

  ;; 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)
  )

(provide 'w3m-keys)