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 ()))
(loop for line in lines do
(cond
((or (string-empty-p line)
(string= line (format nil "~%")))
((string-empty-p (trim-blanks line))
(push (funcall empty-line-transform-fn) res))
(t
(loop for fitted-line
in (flush-left-mono-text (split-words line) width)
do
(push fitted-line res)))))
(loop for fitted-line in (flush-left-mono-text (split-words line) width) do
(push fitted-line res)))))
(reverse res)))
(defgeneric text->line (object))