The Lambda Lab
/
projects
/
elpher.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
fd2db28
)
Gave preformatted text its own configurable face.
author
Tim Vaughan
<plugd@thelambdalab.xyz>
Fri, 22 May 2020 15:44:09 +0000
(17:44 +0200)
committer
Tim Vaughan
<plugd@thelambdalab.xyz>
Fri, 22 May 2020 15:44:09 +0000
(17:44 +0200)
elpher.el
patch
|
blob
|
history
diff --git
a/elpher.el
b/elpher.el
index
034618a
..
ca076d0
100644
(file)
--- a/
elpher.el
+++ b/
elpher.el
@@
-222,6
+222,10
@@
the time when the text is rendered."
'((t :inherit bold :height 1.2))
"Face used for gemini heading level 3.")
'((t :inherit bold :height 1.2))
"Face used for gemini heading level 3.")
+(defface elpher-gemini-preformatted
+ '((t :inherit fixed-pitch))
+ "Face used for pre-formatted gemini text blocks.")
+
;;; Model
;;
;;; Model
;;
@@
-1151,7
+1155,9
@@
by HEADER-LINE."
(dolist (line (split-string data "\n"))
(cond
((string-prefix-p "```" line) (setq preformatted (not preformatted)))
(dolist (line (split-string data "\n"))
(cond
((string-prefix-p "```" line) (setq preformatted (not preformatted)))
- (preformatted (insert (elpher-process-text-for-display line) "\n"))
+ (preformatted (insert (elpher-process-text-for-display
+ (propertize line 'face 'elpher-gemini-preformatted))
+ "\n"))
((string-prefix-p "=>" line) (elpher-gemini-insert-link line))
((string-prefix-p "#" line) (elpher-gemini-insert-header line))
(t (insert (elpher-process-text-for-display line)) (newline)))))
((string-prefix-p "=>" line) (elpher-gemini-insert-link line))
((string-prefix-p "#" line) (elpher-gemini-insert-header line))
(t (insert (elpher-process-text-for-display line)) (newline)))))