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

- transform any line made from blank characters in vertical-space.

This commit is contained in:
cage 2021-10-27 14:24:46 +02:00
parent fe9792a576
commit dfdf303d1d
1 changed files with 3 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
src/message-window.lisp
View File

@ -424,14 +424,11 @@
(let ((res ())) (let ((res ()))
(loop for line in lines do (loop for line in lines do
(cond (cond
((or (string-empty-p line) ((string-empty-p (trim-blanks line))
(string= line (format nil "~%")))
(push (funcall empty-line-transform-fn) res)) (push (funcall empty-line-transform-fn) res))
(t (t
(loop for fitted-line (loop for fitted-line in (flush-left-mono-text (split-words line) width) do
in (flush-left-mono-text (split-words line) width) (push fitted-line res)))))
do
(push fitted-line res)))))
(reverse res))) (reverse res)))
(defgeneric text->line (object)) (defgeneric text->line (object))