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

- [gemini/parsing] transformed to vertical space a text line made from blank characters only.

This commit is contained in:
cage 2021-10-26 20:05:12 +02:00
parent 02a277894a
commit fe9792a576
1 changed files with 9 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -562,13 +562,15 @@
:bgcolor (link-bg theme))))
(pre-alt-text (node)
(trim (html-utils:attribute-value (html-utils:find-attribute :alt node))))
(make-vertical-space ()
(make-instance 'vertical-space
:group-id (current-header-group-id)))
(build-rows ()
(loop for node in parsed-gemini
collect
(cond
((null node)
(make-instance 'vertical-space
:group-id (current-header-group-id))) ;(format nil "~%"))
(make-vertical-space))
((html-utils:tag= :as-is node)
(let* ((line (text-value node :trim nil))
(fg (preformatted-fg theme))
@ -579,9 +581,11 @@
(current-pre-group-id)
(current-pre-alt-text))))
((html-utils:tag= :text node)
(let ((text (text-value node)))
(make-simple-line (format nil "~a~%" text)
(current-header-group-id))))
(let ((text (text-value node :trim t)))
(if (string-not-empty-p text)
(make-simple-line (format nil "~a~%" text)
(current-header-group-id))
(make-vertical-space))))
((html-utils:tag= :h1 node)
(make-header 1
(header-prefix-h1 (text-value node))