blob: 9d47fc7a38345c6b97d52ad86d17b5778e675f68 (
about) (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
|
(defvar *my-search-engines*
(list
'("google" "https://google.com/search?q=~a" "https://google.com")
'("doi" "https://dx.doi.org/~a" "https://dx.doi.org/")
'("python3" "https://docs.python.org/3/search.html?q=~a"
"https://docs.python.org/3")
'("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*)))))
|
