(defvar *my-search-engines*
  (list
   '("g" "https://google.com/search?q=~a" "https://google.com")
   '("gh" "https://github.com/search?q=~a" "https://github.com")
   '("aa" "https://annas-archive.org/search?q=~a" "https://annas-archive.org/")
   '("duck" "https://duckduckgo.com/?q=~a" "https://duckduckgo.com/")
   '("thanos" "https://search.thanosapollo.org/search?q=~a" "https://search.thanosapollo.org"))
  "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))
             *my-search-engines*)))))