The Lambda Lab
/
projects
/
elpher.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Updated link to gemini gopher page in README.
[elpher.git]
/
elpher.el
diff --git
a/elpher.el
b/elpher.el
index
c529e74
..
474eee1
100644
(file)
--- a/
elpher.el
+++ b/
elpher.el
@@
-4,7
+4,7
@@
;; Author: Tim Vaughan <timv@ughan.xyz>
;; Created: 11 April 2019
;; Author: Tim Vaughan <timv@ughan.xyz>
;; Created: 11 April 2019
-;; Version: 2.5.
1
+;; Version: 2.5.
2
;; Keywords: comm gopher
;; Homepage: http://thelambdalab.xyz/elpher
;; Package-Requires: ((emacs "26"))
;; Keywords: comm gopher
;; Homepage: http://thelambdalab.xyz/elpher
;; Package-Requires: ((emacs "26"))
@@
-68,7
+68,7
@@
;;; Global constants
;;
;;; Global constants
;;
-(defconst elpher-version "2.5.
1
"
+(defconst elpher-version "2.5.
2
"
"Current version of elpher.")
(defconst elpher-margin-width 6
"Current version of elpher.")
(defconst elpher-margin-width 6
@@
-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))
(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)
(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
'face face
'elpher-page page
'action #'elpher-click-link