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

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

(-> 'll-edit)
(-> 'll-search-string)
(-> 'll-w3m-tabs)
(-> 'w3m)
(-> 'w3m-search)

(defun web-search () (i)
  (let* ((search-engine (or w3m-search-default-engine "google-en"))
         (search        (get-search-string search-engine)))
    (when (su search)
      (let ((tab-label (@f "%s: %s" search-engine search)))
        (switch-to-buffer (w3m-new-tab tab-label))
        (w3m-search w3m-search-default-engine search)))))

(defun wiki-search (&optional lang)
  (interactive "P")
  (or lang (setf lang "en"))
  (w3m-web-search
    (@f "https://%s.wikipedia.org/w/index.php?title=%%s" lang)
    (get-search-string (@f "wiki [%s]" lang))))

(defun w3m-web-search (pat key)
  (w3m (@f pat key) t))

(<- 'll-w3m-unisearch)
;;; ll-w3m-unisearch ends here