;; Search engines
(defvar *thanos/search-engines*
  (list
   '("aa" "https://annas-archive.org/search?q=~a" "https://annas-archive.org/")
   '("duck" "https://html.duckduckgo.com/html/?q=~a" "https://html.duckduckgo.com/"))
  "List of search engines.")

(define-configuration context-buffer
  "Go through the search engines above and make-search-engine out of them."
  ((search-engines
    (append %slot-default%
            (mapcar
             (lambda (engine) (apply 'make-search-engine engine))
             *thanos/search-engines*)))))