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

(require 'string)
(require 'w3m)

(defun w3m-view-this-url-new-tab ()
  (interactive)
  (w3m-view-this-url nil t) )

(defun w3m-new-tab (&optional name)
  (interactive)
  (or name (setq name "w3m buffer"))
  (switch-to-buffer
    (w3m-copy-buffer nil (or name "w3m buffer") nil t) ))

(defun w3m-browse-url-new-tab (&optional url)
  (interactive
   (list
    (let ((uap (thing-at-point 'url)))
      (read-string (format "URL: [%s] " uap) nil nil uap) )))
  (let ((u (if (string-data-p url)
               url
             (thing-at-point 'url))))
    (w3m-new-tab u)
    (w3m-browse-url u) ))
;; test URL:
;;   https://dataswamp.org/~incal

(provide 'w3m-tabs)