blob: 32429ce77fe2f0e59cf04af24aa68fde1e6574dc (
about) (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
|
;; Search engines
(defvar *thanos/search-engines*
(list
'("aa" "https://annas-archive.org/search?q=~a" "https://annas-archive.org/")
'("ddh" "https://html.duckduckgo.com/html/?q=~a" "https://html.duckduckgo.com/")
'("ddg" "https://duckduckgo.com/?q=~a" "https://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*)))))
|
