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

- [GUI] prevented wrapping of preformatted lines.

This commit is contained in:
cage 2023-03-16 14:11:05 +01:00
parent 67d2a06630
commit a896c5642e
1 changed files with 10 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
src/gui/client/main-window.lisp
View File

@ -337,7 +337,7 @@
:leave-callback
(lambda () (print-info-message "")))
(gui:append-line gemtext-widget "")))))
(render-line (key text line-number)
(render-line (key text line-number &key (wrap :word))
(let ((font (key->font key))
(justification (key->justification key))
(start-index `(:line ,line-number :char 0)))
@ -351,6 +351,7 @@
(gui:make-indices-end))))
(gui:tag-configure gemtext-widget
tag
:wrap wrap
:font font
:foreground foreground
:background background
@ -371,7 +372,10 @@
(:as-is
(vector-push-extend (ir-line line) ir-rendered-lines)
(incf render-line-count)
(render-line :as-is (a:last-elt ir-rendered-lines) render-line-count))
(render-line :as-is
(a:last-elt ir-rendered-lines)
render-line-count
:wrap :none))
(:text
(vector-push-extend (ir-line line) ir-rendered-lines)
(incf render-line-count)
@ -401,7 +405,10 @@
(incf render-line-count)
(setf starting-pre-block-line (1+ render-line-count))
(setf current-pre-block-alt-text (ir-pre-alt-text line))
(render-line :pre (a:last-elt ir-rendered-lines) render-line-count))
(render-line :pre
(a:last-elt ir-rendered-lines)
render-line-count
:wrap :none))
(:pre-end
(vector-push-extend (format nil "") ir-rendered-lines)
(setf ending-pre-block-line (1+ render-line-count))