;; -*- lexical-binding: t -*-

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

(-> 'w3m)
(-> 'w3m-bookmark-more)
(-> 'w3m-download)
(-> 'w3m-incal)
(-> 'w3m-swamp)
(-> 'w3m-tabs)

(let ((kmap w3m-mode-map))
  (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
  ;; NOTE: 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)
  )

(<- 'w3m-keys)