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