(require 'w3m)
(require 'w3m-tabs)
(require 'super)
(require 'scroll)
(require 'dl)
(require 'bookmarks)
(require 'w3m-my)
(require 'keys)

(let ((the-map w3m-mode-map))
  (disable-super-global-keys the-map)
  (set-scroll-keys the-map t) ; HORIZONTALLY

  ;;; MISC
  (define-key  the-map "g" #'w3m-goto-url-kill-current)
  (define-keys the-map     #'w3m-kill-url-dwim "s" "u")
  (define-key  the-map "d" #'w3m-dl-dwim)
  ;; page
  (define-key the-map "e" #'w3m-edit-url-or-bookmarks)
  (define-key the-map "r" #'w3m-reload-this-page)
  (define-key the-map "p" #'w3m-cat-source)
  ;; history
  (define-key the-map "f" #'w3m-view-next-page)
  (define-key the-map "b" #'w3m-view-previous-page)

  ;;; BOOKMARKS
  (define-key the-map "L" #'w3m-bookmark-dwim)
  (define-key the-map "a" #'w3m-show-bookmarks)
  ;; hard-coded bookmarks
  (define-key the-map "1" #'localhost)
  (define-key the-map "2" #'localhost-blogomatic)
  (define-key the-map "B" #'browse-ebc-blogomatic)
  (define-key the-map "E" #'browse-ebc-conf-emacs)
  (define-key the-map "h" #'browse-ebc)
  (define-key the-map "H" #'browse-ebc-conf)
  (define-key the-map "z" #'browse-ebc-conf-zsh)
  (define-key the-map "P" #'browse-ebc-dumps)
  ;;; LINKS (imgs)
  ;; iterate imgs
  (define-key the-map "U" #'w3m-previous-image)
  (define-key the-map "O" #'w3m-next-image)
  ;; iterate links
  (define-key the-map [backtab] #'w3m-previous-anchor)
  (define-key the-map "\t"      #'w3m-next-anchor)
  ;; follow
  (define-key the-map "\r"    #'w3m-view-this-url)
  (define-key the-map "\M-\r" #'w3m-view-this-url-new-session)

  ;;; TABS (tab = w3m "buffer")
  ;; iterate
  (define-key the-map "j" #'w3m-previous-buffer)
  (define-key the-map "l" #'w3m-next-buffer)
  ;; new/close
  (define-key the-map "t" #'w3m-new-tab)
  (define-key the-map "n" #'w3m-new-tab)
  (define-key the-map "w" #'w3m-delete-buffer) )