From 210553ac6803f278e4ec5f604133b3e1e2126276 Mon Sep 17 00:00:00 2001
From: "Kartik K. Agaram" <vc@akkartik.com>
Date: Sun, 23 May 2021 22:53:54 -0700
Subject: .

slightly improve colors
---
 shell/trace.mu | 14 +++++++++-----
 1 file changed, 9 insertions(+), 5 deletions(-)

(limited to 'shell')

diff --git a/shell/trace.mu b/shell/trace.mu
index c0d2ceb6..7100c59e 100644
--- a/shell/trace.mu
+++ b/shell/trace.mu
@@ -458,14 +458,18 @@ fn render-trace screen: (addr screen), _self: (addr trace), xmin: int, ymin: int
       var curr/ebx: (addr trace-line) <- index trace, offset
       var curr-label-ah/eax: (addr handle array byte) <- get curr, label
       var curr-label/eax: (addr array byte) <- lookup *curr-label-ah
-      var bg/edi: int <- copy 0xc5/bg=blue-bg
+      var bg: int
+      copy-to bg, 0xc5/bg=blue-bg
+      var fg: int
+      copy-to fg, 0x38/fg=trace
       compare show-cursor?, 0/false
       {
         break-if-=
         var cursor-y/eax: (addr int) <- get self, cursor-y
         compare *cursor-y, y
         break-if-!=
-        bg <- copy 7/cursor-line-bg
+        copy-to bg, 7/trace-cursor-line-bg
+        copy-to fg, 0x68/cursor-line-fg=sober-blue
         var cursor-line-index/eax: (addr int) <- get self, cursor-line-index
         copy-to *cursor-line-index, i
       }
@@ -483,9 +487,8 @@ fn render-trace screen: (addr screen), _self: (addr trace), xmin: int, ymin: int
       {
         compare display?, 0/false
         break-if-=
-        # if unclip? and i == *cursor-line-index, render unclipped
         var unclip-cursor-line?/eax: boolean <- unclip-cursor-line? self, i
-        y <- render-trace-line screen, curr, xmin, y, xmax, ymax, 0x38/fg=trace, bg, unclip-cursor-line?
+        y <- render-trace-line screen, curr, xmin, y, xmax, ymax, fg, bg, unclip-cursor-line?
         copy-to already-hiding-lines?, 0/false
         break $render-trace:iter
       }
@@ -494,7 +497,7 @@ fn render-trace screen: (addr screen), _self: (addr trace), xmin: int, ymin: int
       {
         break-if-!=
         var x/eax: int <- copy xmin
-        x, y <- draw-text-wrapping-right-then-down screen, "...", xmin, ymin, xmax, ymax, x, y, 9/fg=trace, bg
+        x, y <- draw-text-wrapping-right-then-down screen, "...", xmin, ymin, xmax, ymax, x, y, fg, bg
         y <- increment
         copy-to already-hiding-lines?, 1/true
       }
@@ -509,6 +512,7 @@ fn render-trace screen: (addr screen), _self: (addr trace), xmin: int, ymin: int
 }
 
 fn unclip-cursor-line? _self: (addr trace), _i: int -> _/eax: boolean {
+  # if unclip? and i == *cursor-line-index, render unclipped
   var self/esi: (addr trace) <- copy _self
   var unclip-cursor-line?/eax: (addr boolean) <- get self, unclip-cursor-line?
   compare *unclip-cursor-line?, 0/false
-- 
cgit 1.4.1-2-gfad0

0e48bba64fb'>recent.txt</a></div><div class='content'>blob: ba39c3ff5639e5259c2005f2eb024cebcb2776af (<a href='/tilde/site/plain/wiki/inc/lang/ia/recent.txt?id=bcb215c3a7e914d05f166846a33860e48bba64fb'>plain</a>) (<a href='/tilde/site/blame/wiki/inc/lang/ia/recent.txt?id=bcb215c3a7e914d05f166846a33860e48bba64fb'>blame</a>)
<table summary='blob content' class='blob'>
<tr><td class='linenumbers'><pre><a id='n1' href='#n1'>1</a>
<a id='n2' href='#n2'>2</a>
<a id='n3' href='#n3'>3</a>
</pre></td>
<td class='lines'><pre><code>