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

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

(-> 'w3m)
(-> 'w3m-form)
(-> 'w3m-search)
(-> 'w3m-session)

(setq browse-url-browser-function #'w3m-browse-url)
(setq use-dialog-box nil)
(setq w3m-confirm-leaving-secure-page nil)
(setq w3m-default-directory (getenv "HOME"))
(setq w3m-default-save-directory w3m-default-directory)
(setq w3m-form-use-textarea-backup nil)
(setq w3m-home-page "about:blank")
(setq w3m-safe-url-regexp nil)
(setq w3m-search-default-engine "duckduckgo")
(setq w3m-session-crash-recovery nil)
(setq w3m-tab-width 16)
(setq w3m-use-cookies nil)
(setq w3m-use-header-line nil)
(setq w3m-use-refresh nil)
(setq w3m-use-tab-menubar nil)
(setq w3m-user-agent "Mozilla/5.0 (Windows NT 10.0; WOW64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/51.0.2704.103 Safari/537.36")
(setq w3m-verbose nil)

(fset 'w3m-display-progress-message #'ignore)
(add-to-list 'w3m-content-type-alist '("unknown" nil nil "text/plain"))

(defun no-confirm-w3m-quit () (i) (w3m-quit 'forcet))
(defun w3m-list-history    () (i) (w3m-history    1))
(keymap-global-set "<remap> <w3m-quit>" #'no-confirm-w3m-quit)

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