From 753056c2a33987fb834be545679607ad85884bcf Mon Sep 17 00:00:00 2001 From: Alex Schroeder Date: Tue, 3 Aug 2021 15:15:58 +0200 Subject: [PATCH 1/1] Fill links MIME-Version: 1.0 Content-Type: text/plain; charset=utf8 Content-Transfer-Encoding: 8bit Currently unhappy about it because fill-prefix is hard-coded to three spaces since that's the apparent width of "→ " (possibly font related?). --- elpher.el | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/elpher.el b/elpher.el index 1dfdded..568abb8 100644 --- a/elpher.el +++ b/elpher.el @@ -1495,7 +1495,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 " ")) (when display-string (insert elpher-gemini-link-string) (if type-map-entry @@ -1509,7 +1510,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.") -- 2.20.1