From d8ac8020cfac7b4c8e9cce6ab3988511611cff86 Mon Sep 17 00:00:00 2001
From: "Kartik K. Agaram" <vc@akkartik.com>
Date: Fri, 13 Aug 2021 06:38:03 -0700
Subject: [PATCH] .

---
 501draw-text.mu             |  6 +++---
 browse-slack/environment.mu | 42 +++++++++++++++++++++++++++++++------
 2 files changed, 39 insertions(+), 9 deletions(-)

diff --git a/501draw-text.mu b/501draw-text.mu
index 03fd6f13..d87fc04a 100644
--- a/501draw-text.mu
+++ b/501draw-text.mu
@@ -172,16 +172,16 @@ fn render-grapheme screen: (addr screen), g: grapheme, xmin: int, ymin: int, xma
 # that way the caller can draw more if given the same min and max bounding-box.
 # if there isn't enough space, truncate
 fn draw-text-wrapping-right-then-down screen: (addr screen), _text: (addr array byte), xmin: int, ymin: int, xmax: int, ymax: int, _x: int, _y: int, color: int, background-color: int -> _/eax: int, _/ecx: int {
-  var stream-storage: (stream byte 0x4000/print-buffer-size)
+  var stream-storage: (stream byte 0x200/print-buffer-size)
   var stream/edi: (addr stream byte) <- address stream-storage
   var text/esi: (addr array byte) <- copy _text
   var len/eax: int <- length text
-  compare len, 0x4000/print-buffer-size
+  compare len, 0x200/print-buffer-size
   {
     break-if-<
     write stream, "ERROR: stream too small in draw-text-wrapping-right-then-down"
   }
-  compare len, 0x4000/print-buffer-size
+  compare len, 0x200/print-buffer-size
   {
     break-if->=
     write stream, text
diff --git a/browse-slack/environment.mu b/browse-slack/environment.mu
index 0fdfc087..cb488453 100644
--- a/browse-slack/environment.mu
+++ b/browse-slack/environment.mu
@@ -160,12 +160,7 @@ fn render-item screen: (addr screen), _item: (addr item), _users: (addr array us
   var text-ah/eax: (addr handle array byte) <- get item, text
   var _text/eax: (addr array byte) <- lookup *text-ah
   var text/edx: (addr array byte) <- copy _text
-  var x/eax: int <- copy 0x20/main-panel-hor
-  x <- add 0x10/avatar-space-hor
-  var text-y/ecx: int <- copy y
-  text-y <- add 1/author-name-padding-ver
-  x, text-y <- draw-text-wrapping-right-then-down screen, text, x text-y, 0x70/xmax=post-right-coord screen-height, x text-y, 7/fg 0/bg
-  text-y <- add 2/item-padding-ver
+  var text-y/eax: int <- render-slack-message screen, text, y, screen-height
   # flush
   add-to y, 6/avatar-space-ver
   compare y, text-y
@@ -176,6 +171,41 @@ fn render-item screen: (addr screen), _item: (addr item), _users: (addr array us
   return text-y
 }
 
+fn render-slack-message screen: (addr screen), text: (addr array byte), ymin: int, ymax: int -> _/eax: int {
+  var x/eax: int <- copy 0x20/main-panel-hor
+  x <- add 0x10/avatar-space-hor
+  var y/ecx: int <- copy ymin
+  y <- add 1/author-name-padding-ver
+  x, y <- draw-json-text-wrapping-right-then-down screen, text, x y, 0x70/xmax=post-right-coord ymax, x y, 7/fg 0/bg
+  y <- add 2/item-padding-ver
+  return y
+}
+
+# draw text in the rectangle from (xmin, ymin) to (xmax, ymax), starting from (x, y), wrapping as necessary
+# return the next (x, y) coordinate in raster order where drawing stopped
+# that way the caller can draw more if given the same min and max bounding-box.
+# if there isn't enough space, truncate
+fn draw-json-text-wrapping-right-then-down screen: (addr screen), _text: (addr array byte), xmin: int, ymin: int, xmax: int, ymax: int, _x: int, _y: int, color: int, background-color: int -> _/eax: int, _/ecx: int {
+  var stream-storage: (stream byte 0x4000/print-buffer-size)
+  var stream/edi: (addr stream byte) <- address stream-storage
+  var text/esi: (addr array byte) <- copy _text
+  var len/eax: int <- length text
+  compare len, 0x4000/print-buffer-size
+  {
+    break-if-<
+    write stream, "ERROR: stream too small in draw-text-wrapping-right-then-down"
+  }
+  compare len, 0x4000/print-buffer-size
+  {
+    break-if->=
+    write stream, text
+  }
+  var x/eax: int <- copy _x
+  var y/ecx: int <- copy _y
+  x, y <- draw-stream-wrapping-right-then-down screen, stream, xmin, ymin, xmax, ymax, x, y, color, background-color
+  return x, y
+}
+
 fn update-environment env: (addr environment), key: byte, items: (addr item-list) {
   {
     compare key, 0xe/ctrl-n