[emacs-w3m:13873] Re: Need to update w3m-search-engine-alist for Wikipedia?

Michael Heerdegen wrote:

> seems the urls for searching Wikipedia changed? ...
> So I guess the URLs must be updated?

(Related, not and answer.)

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

(require 'edit)
(require 'get-search-string)
(require 'string)
(require 'w3m)
(require 'w3m-search)
(require 'w3m-tabs)

(defun web-search ()
  (interactive)
  (let*((search-engine (or w3m-search-default-engine "google-en"))
        (search        (get-search-string search-engine)))
    (when (string-data-p search)
      (let ((tab-label (format "%s: %s" search-engine search)))
        (switch-to-buffer (w3m-new-tab tab-label))
        (w3m-search w3m-search-default-engine search) ))))

(defun wiki-search (&optional swe)
  (interactive "P")
  (let ((lang (if swe "sv" "en")))
    (w3m-web-search
     (format "https://%s.wikipedia.org/w/index.php?title=%%s" lang)
     (get-search-string (format "wiki [%s]" lang)) )))

(defun w3m-web-search (pattern search)
  (w3m (format pattern search) t) )

(provide 'w3m-unisearch)

All Emacs-w3m:
  https://dataswamp.org/~incal/emacs-init/w3m/

-- 
underground experts united
https://dataswamp.org/~incal