From: plugd <plugd@thelambdalab.xyz>
Date: Tue, 10 Aug 2021 09:49:10 +0000 (+0200)
Subject: Merged Alex's gemini link line filling.
X-Git-Tag: v3.3.0~17
X-Git-Url: https://thelambdalab.xyz/gitweb/index.cgi?p=elpher.git;a=commitdiff_plain;h=11d905f730e73f72cc35bbdcb5989ead112b7c4a;hp=d4393d28309a732f0d9082a2670317f1194d055e

Merged Alex's gemini link line filling.
---

diff --git a/elpher.el b/elpher.el
index 80fb146..84dd7c1 100644
--- a/elpher.el
+++ b/elpher.el
@@ -1514,7 +1514,8 @@ treatment that a separate function is warranted."
          (display-string (elpher-gemini-get-link-display-string link-line))
          (address (elpher-address-from-gemini-url url))
          (type (if address (elpher-address-type address) nil))
-         (type-map-entry (cdr (assoc type elpher-type-map))))
+         (type-map-entry (cdr (assoc type elpher-type-map)))
+	 (fill-prefix (make-string (+ 1 (length elpher-gemini-link-string)) ?\s)))
     (when display-string
       (insert elpher-gemini-link-string)
       (if type-map-entry
@@ -1528,7 +1529,7 @@ treatment that a separate function is warranted."
                                 'follow-link t
                                 'help-echo #'elpher--page-button-help))
         (insert (propertize display-string 'face 'elpher-unknown)))
-      (insert "\n"))))
+      (newline))))
 
 (defvar elpher--gemini-page-headings nil
   "List of headings on the page.")