cage
/
tinmop
mirror of https://codeberg.org/cage/tinmop/
1
0
Fork 0
Code Issues

- removed trim in preformatted text.

This commit is contained in:
cage 2020-06-23 16:21:26 +02:00
parent f523047e81
commit d8ea5093f7
1 changed files with 1 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/gemini/gemini-parser.lisp
View File

@ -51,7 +51,6 @@
(list :pre
(list (list :alt (coerce (second a) 'string)))))))
(defrule link-prefix (and "=>"
(* space))
(:constant :a))
@ -314,8 +313,7 @@
+quote-line-prefix+
(text-value node)))
((html-utils:tag= :pre node)
(princ (text-value node)
stream))
(write-sequence (text-value node :trim nil) stream))
((html-utils:tag= :a node)
(let ((link-name (text-value node :trim nil))
(link-value (html-utils:attribute-value (html-utils:find-attribute :href