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