- [gemini] prevented sending fragment part of the IRI to server;

- chaged prefix for links in gemini streams.

etc/default-theme.conf

@@ -522,9 +522,9 @@ gemini.link.foreground                               = magenta
 
 gemini.link.attribute                                = bold
 
-gemini.link.scheme.gemini.prefix                     = "→ "
+gemini.link.scheme.gemini.prefix                     = "→♊ "
 
-gemini.link.scheme.other.prefix                      = "➶ "
+gemini.link.scheme.other.prefix                      = "→🕸 "
 
 gemini.quote.prefix                                  = "🞂 "
 

etc/shared.conf

@@ -202,12 +202,12 @@ open "^((gemini://)|(\\.)|(/)).+txt$"  with "tinmop"
 open "^((gemini://)|(\\.)|(/)).+sh$"   with "tinmop"
 open ".gpub$"                          with "tinmop"
 
-######################
-# EXPERIMENTAL ZONE  #
-######################
+#########################
+# ⚠ EXPERIMENTAL ZONE ⚠ #
+#########################
 
 # use fragment of a gemini IRI/URI as a searching criteria for the downloaded page
-# E.g. gemini://foo/bar.gmi#baz will jump to the first occurence of "baz"
-# the fragment is used as a regular expressions
+# E.g. gemini://foo/bar.gmi#baz will jump to the first occurence of "baz".
+# The fragment is used as a, perl compatible, regular expression
 
 experimental.gemini.iri.fragment.regex = no

src/gemini/client.lisp

@@ -395,7 +395,7 @@
 
 (defun request-dispatch (url manage-functions &key (certificate nil) (certificate-key nil))
   (let ((parsed-iri (iri:iri-parse url)))
-    (multiple-value-bind (actual-iri host path query port fragment)
+    (multiple-value-bind (actual-iri host path query port)
         (displace-iri parsed-iri)
       (multiple-value-bind (status code-description meta response socket)
           (gemini-client:request host
@@ -404,7 +404,7 @@
                                  :client-certificate certificate
                                  :query              query
                                  :port               port
-                                 :fragment           fragment)
+                                 :fragment           nil)
         (flet ((call-appropriate-function (response-type)
                  (funcall (getf manage-functions
                                 response-type