;;; -*- lexical-binding: t -*-
;;;
;;; this file:
;;;   http://user.it.uu.se/~embe8573/emacs-init/w3m/w3m-incal-bookmark.el
;;;   https://dataswamp.org/~incal/emacs-init/w3m/w3m-incal-bookmark.el

(require 'thingatpt)
(require 'w3m-bookmark)
(require 'w3m-tabs)

(defun localhost ()
  (interactive)
  (w3m-browse-url-new-tab "http://localhost") )

(defun w3m-show-bookmarks ()
  (interactive)
  (switch-to-buffer (w3m-new-tab "bookmarks"))
  (w3m-bookmark-view t) )

(defun w3m-bookmark-dwim (url &optional title)
  (interactive
   (if (use-region-p)
       `(,w3m-current-url ,(buffer-substring (region-beginning) (region-end)))
     (let ((url-at-point (thing-at-point 'url)))
       (if url-at-point
           (list url-at-point)
         (let ((link-url (w3m-url-valid (w3m-anchor))))
           (if link-url
               (list link-url) ; (w3m-anchor-title) here DNC
             (list w3m-current-url w3m-current-title) ))))))
  (w3m-bookmark-add url title) )

(defun w3m-edit-url-or-bookmarks ()
  (interactive)
  (if (string= w3m-current-url "about://bookmark/")
      (w3m-bookmark-edit)
    (w3m-edit-current-url) ))

(provide 'w3m-incal-bookmark)