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