blob: 001bb546227e2f4b64b11af560e782abeb9357d4 (
about) (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
|
;; 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*)))))
|
