1 files changed, 99 insertions, 0 deletions
diff --git a/.config/nyxt/search-engines.lisp b/.config/nyxt/search-engines.lisp
new file mode 100644
index 0000000..9ff81b2
--- /dev/null
+++ b/.config/nyxt/search-engines.lisp
@@ -0,0 +1,99 @@
+(in-package #:nyxt-user)
+
+;;;; This is a file with settings for my nx-search-engines extension.
+;;;; You can find it at https://github.com/aartaka/nx-search-engines
+
+(defvar *duckduckgo-keywords*
+  '(:theme :dark
+    :help-improve-duckduckgo nil
+    :homepage-privacy-tips nil
+    :privacy-newsletter nil
+    :newsletter-reminders nil
+    :install-reminders nil
+    :install-duckduckgo nil
+    :units-of-measure :metric
+    :keyboard-shortcuts t
+    :advertisements nil
+    :open-in-new-tab nil
+    :infinite-scroll t
+    :safe-search :off
+    :font-size :medium
+    :header-behavior :on-fixed
+    :font :jetbrains-mono
+    :background-color "000000"
+    :center-alignment t)
+  "My DDG settings, shared between the usual, image-search and other
+types of DuckDuckGo.")
+
+(define-configuration :context-buffer
+  ((search-engines (list
+                    ;; engines: is a prefix for `nx-search-engines',
+                    ;; it only works if you load nx-search-engines.
+                    (engines:google :shortcut "gmaps"
+                                    :object :maps)
+                    (make-instance 'search-engine
+                                   :shortcut "osm"
+                                   :search-url "https://www.openstreetmap.org/search?query=~a"
+                                   :fallback-url (quri:uri "https://www.openstreetmap.org/"))
+                    (make-instance 'search-engine
+                                   :shortcut "golang"
+                                   :search-url "https://golang.org/pkg/~a/"
+                                   :fallback-url (quri:uri "https://golang.org/pkg/")
+                                   ;; A good example of a custom
+                                   ;; completion function. You can do
+                                   ;; crazy stuff in completion
+                                   ;; function (like reading shell
+                                   ;; commands or files).
+                                   :completion-function
+                                   (let ((installed-packages
+                                           (str:split nyxt::+newline+
+                                                      (ignore-errors
+                                                       (uiop:run-program
+                                                        "go list all"
+                                                        :output '(:string :stripped t))))))
+                                     (lambda (input)
+                                       (sort
+                                        (serapeum:filter (alexandria:curry #'str:containsp input)
+                                                         installed-packages)
+                                        #'> :key (alexandria:curry
+                                                  #'prompter::score-suggestion-string input)))))
+                    (engines:wikipedia :shortcut "w")
+                    (make-instance 'search-engine
+                                   :shortcut "yi"
+                                   :search-url "https://yandex.ru/images/search?text=~a"
+                                   :fallback-url (quri:uri "https://yandex.ru/images/"))
+                    (make-instance 'search-engine
+                                   :shortcut "y"
+                                   :search-url "https://yandex.com/search/?text=~a"
+                                   :fallback-url (quri:uri "https://yandex.com/search/"))
+                    (engines:google :shortcut "g"
+                                    :safe-search nil)
+                    (engines:google-scholar :shortcut "gs")
+                    (engines:google-scholar :shortcut "scholar-new"
+                                            :starting-time 2015)
+                    (engines:startpage
+                     :shortcut "sp"
+                     :family-filter nil
+                     :settings-string "806f879950cd466952c5379f2307693b30b87ef2da8e631a6b9c190cf0251f48de50be0202b48b0fa76beefe9b7427b693baeb77c4d24660dc6799469afc24785a974987168e79ce297ca202ad28")
+                    (apply #'engines:duckduckgo-images
+                           :shortcut "i" *duckduckgo-keywords*)
+                    (engines:duckduckgo-html-only :shortcut "dho")
+                    (engines:github :shortcut "git")
+                    (engines:brave :shortcut "b")
+                    (engines:teddit :shortcut "red")
+                    (engines:libgen :shortcut "l")
+                    (engines:invidious :shortcut "yt")
+                    (engines:hacker-news :shortcut "hn")
+                    (engines:wordnet :shortcut "wn" :show-word-frequencies t)
+                    (apply #'engines:duckduckgo
+                           :shortcut "d" *duckduckgo-keywords*)
+                    (engines:searx
+                     :shortcut "a"
+                     :base-search-url "https://search.atlas.engineer/searxng/search?q=~a"
+                     :fallback-url (quri:uri "https://search.atlas.engineer")
+                     :completion-function (engines:make-duckduckgo-completion)
+                     :auto-complete :yandex
+                     :style :dark
+                     :safe-search :none
+                     :request-method :post)
+		    (gloabl-history-p nil)))))