(require 'w3m)
(require 'w3m-tabs)
(require 'w3m-session)

(defun w3m-cat-source ()
  (interactive)
  (w3m-pipe-source w3m-current-url "/bin/cat") )

;; where did this go? commented-out on the Pi
;; (setq w3m-clear-display-while-reading nil)

(defun unwrap ()
  (interactive)
  (toggle-truncate-lines 1) )

(setq w3m-session-crash-recovery nil)

(setq w3m-verbose nil)
(setq use-dialog-box nil)

(setq browse-url-browser-function #'w3m-browse-url)

(setq w3m-default-directory       (getenv "HOME"))
(setq w3m-default-save-directory  w3m-default-directory)

(defun w3m-kill-url-dwim ()
  (interactive)
  (let ((anchor-url (w3m-anchor)))
    (if anchor-url (kill-new anchor-url)
      (let ((literal-url (thing-at-point 'url)))
        (if literal-url (kill-new literal-url)
          (kill-new w3m-current-url) ))))
  (message "killed: %s" (current-kill 0)) )

(defun w3m-goto-url-kill-current ()
  (interactive)
  (when w3m-current-url (kill-new w3m-current-url))
  (call-interactively #'w3m-goto-url) )

(defun rfc (page)
  (interactive "s number: ")
  (w3m-browse-url
   (format "http://tools.ietf.org/html/rfc%s" page) ))

(defun w3m-view ()
  (interactive)
  (w3m (buffer-file-name)) )

(defun w3m-browse-url-at-point ()
  (interactive)
  (w3m (thing-at-point 'url)) )

(defun no-confirm-w3m-quit ()
  (interactive)
  (w3m-quit t) ) ; FORCE
(define-key (current-global-map) [remap w3m-quit] #'no-confirm-w3m-quit)

(defun w3m-view-html ()
  (interactive)
  (w3m-find-file (buffer-file-name)) )

(defun dired-view-in-w3m ()
  (interactive)
  (w3m-find-file (dired-get-filename) ))

(provide 'w3m-my)