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

(require 'cl-lib)
(require 'w3m-search)
(require 'w3m-tabs)

(defun w3m-sem (search hit &optional max)
  (switch-to-buffer (w3m-new-tab "SEM"))
  (w3m-search w3m-search-default-engine search)
  (let ((mx (or max 10))
        (slp 6) )
    (sleep-for slp)
    (cl-loop for i from 1 to mx do
      (if (search-forward hit (point-max) t)
          (progn
            (goto-char (match-beginning 0))
            (w3m-view-this-url)
            (cl-return (message "hit page %d" i)) )
        (if (search-forward ">" (point-max) t)
            (progn
              (goto-char (match-beginning 0))
              (w3m-view-this-url)
              (sleep-for slp) )
          (cl-return (message "no hit, can't continue from page %d" i)) )))))