From 3f56dde4342dcfecc2b8b4d1c6e07436d2ab9991 Mon Sep 17 00:00:00 2001
From: Tim Vaughan <timv@ughan.xyz>
Date: Thu, 12 Dec 2019 19:58:08 +0100
Subject: [PATCH] Filter ansi codes from gopher menu items.
---
elpher.el | 5 +++--
1 file changed, 3 insertions(+), 2 deletions(-)
diff --git a/elpher.el b/elpher.el
index 06c669e..474eee1 100644
--- a/elpher.el
+++ b/elpher.el
@@ -619,9 +619,10 @@ If ADDRESS is not supplied or nil the record is rendered as an
(if type-map-entry
(let* ((margin-code (elt type-map-entry 2))
(face (elt type-map-entry 3))
- (page (elpher-make-page display-string address)))
+ (filtered-display-string (ansi-color-filter-apply display-string))
+ (page (elpher-make-page filtered-display-string address)))
(elpher-insert-margin margin-code)
- (insert-text-button display-string
+ (insert-text-button filtered-display-string
'face face
'elpher-page page
'action #'elpher-click-link
--
2.20.1