From c84e747868b547bc4a513730a3276339649eed80 Mon Sep 17 00:00:00 2001
From: cage <cage@invalid>
Date: Wed, 29 May 2024 16:38:40 +0200
Subject: [PATCH] - changed the address of the capsule used to perform search
 in gemspace.

---
 README.org         | 2 +-
 etc/init.lisp      | 4 ++--
 src/constants.lisp | 4 +++-
 src/package.lisp   | 1 +
 4 files changed, 7 insertions(+), 4 deletions(-)

diff --git a/README.org b/README.org
index dc6db25..8cb3137 100644
--- a/README.org
+++ b/README.org
@@ -237,7 +237,7 @@ Note that, at the moment, the ~quick_quicklisp.sh~ script will *not* install the
 
   Moreover launching ~quick_quicklisp.sh~ will contact [[https://www.quicklisp.org/]], check the [[https://beta.quicklisp.org/quicklisp.lisp][quicklisp sources]] for details.
 
-  By default, pressing "!" will contact the remote service located at: "gemini://geminispace.info/search".
+  By default, pressing "!" will contact the remote service located at: "gemini://kennedy.gemi.dev/search".
 
 * Contributing
 
diff --git a/etc/init.lisp b/etc/init.lisp
index ad21aca..988edeb 100644
--- a/etc/init.lisp
+++ b/etc/init.lisp
@@ -138,8 +138,8 @@
 
 (defun gemini-search ()
   "Search   the  geminispace   using  keyword   (note:  will   contact
-  \"gemini://geminispace.info/search\""
- (gemini-viewer:load-gemini-url "gemini://geminispace.info/search"))
+  \"gemini://kennedy.gemi.dev/search\""
+ (gemini-viewer:load-gemini-url +gemini-search-engine+))
 
 (defun open-gemini-links-and-ask-tour ()
   "Open the link window and ask for tour link indices"
diff --git a/src/constants.lisp b/src/constants.lisp
index 3203e5b..98e74d8 100644
--- a/src/constants.lisp
+++ b/src/constants.lisp
@@ -85,7 +85,7 @@ Some useful keycords to start (the man page contains the full list):
   - '>' open URL (also kami is supported)
   - 'l' open link window
   - 'b' go back in history of visited URLs
-  - '!' search geminispace (contacts gemini://geminispace.info/search)
+  - '!' search geminispace (contacts gemini://kennedy.gemi.dev/search)
 
 · pleroma
   - 'C-t u' update current timeline
@@ -185,6 +185,8 @@ General Public License for more details."
 
 (define-constant +fediverse-account-name-server-separator+ "@" :test #'string=)
 
+(define-constant +gemini-search-engine+ "gemini://kennedy.gemi.dev/search" :test #'string=)
+
 (define-constant +language-codes+ '("ab"
                                     "aar"
                                     "af"
diff --git a/src/package.lisp b/src/package.lisp
index f420b12..62934c3 100644
--- a/src/package.lisp
+++ b/src/package.lisp
@@ -81,6 +81,7 @@
    :+internal-scheme-local-posts+
    :+fediverse-account-name-server-separator+
    :+language-codes+
+   :+gemini-search-engine+
    ;; GUI
    :+minimum-padding+
    :+ps-file-dialog-filter+