tui: move System block above Tools so CPU/MEM/GPU stay on-screen

ober

c14b8ac8caab55241ec5ab80c8e9b72d6ee064c2

diff --git a/src/jcode/ui/tui-sidebar.ss b/src/jcode/ui/tui-sidebar.ss
index 23599ec..78aec3f 100644
--- a/src/jcode/ui/tui-sidebar.ss
+++ b/src/jcode/ui/tui-sidebar.ss
@@ -55,29 +55,28 @@
         (tb-change-cell! x row (char->integer #\│) dfg bg)
         (dloop (+ row 1))))
 
-    (let ((cx (+ x 2))         ;; content start x (past divider + padding)
-          (cw (- width 3))     ;; content width
-          (max-row (+ y height)))
-      (let ((row y))
-        ;; Sessions section
-        (let ((row (render-section! "Sessions" cx row cw max-row tfg tbg)))
-          (let ((row (render-sessions! sidebar cx row cw max-row fg bg)))
-            ;; Files section
-            (let ((row (+ row 1)))
-              (let ((row (render-section! "Files Changed" cx row cw max-row tfg tbg)))
-                (let ((row (render-files! sidebar cx row cw max-row fg bg)))
-                  ;; Tools section
-                  (let ((row (+ row 1)))
-                    (let ((row (render-section! "Tools" cx row cw max-row tfg tbg)))
-                      (let ((row (render-tools! sidebar cx row cw max-row fg bg)))
-                        ;; Connections section
-                        (let ((row (+ row 1)))
-                          (let ((row (render-section! "Connections" cx row cw max-row tfg tbg)))
-                            (let ((row (render-connections! sidebar cx row cw max-row fg bg)))
-                              ;; System section
-                              (let ((row (+ row 1)))
-                                (let ((row (render-section! "System" cx row cw max-row tfg tbg)))
-                                  (render-system! sysmon memstats cx row cw max-row fg bg))))))))))))))))))
+    (let* ((cx (+ x 2))         ;; content start x (past divider + padding)
+           (cw (- width 3))     ;; content width
+           (max-row (+ y height))
+           ;; Sessions section
+           (row (render-section! "Sessions" cx y cw max-row tfg tbg))
+           (row (render-sessions! sidebar cx row cw max-row fg bg))
+           ;; Files section
+           (row (+ row 1))
+           (row (render-section! "Files Changed" cx row cw max-row tfg tbg))
+           (row (render-files! sidebar cx row cw max-row fg bg))
+           ;; System section (above Tools so CPU/MEM/GPU stay visible)
+           (row (+ row 1))
+           (row (render-section! "System" cx row cw max-row tfg tbg))
+           (row (render-system! sysmon memstats cx row cw max-row fg bg))
+           ;; Tools section
+           (row (+ row 1))
+           (row (render-section! "Tools" cx row cw max-row tfg tbg))
+           (row (render-tools! sidebar cx row cw max-row fg bg))
+           ;; Connections section
+           (row (+ row 1))
+           (row (render-section! "Connections" cx row cw max-row tfg tbg)))
+      (render-connections! sidebar cx row cw max-row fg bg))))
 
 (def (render-section! title x row width max-row tfg tbg)
   (when (< row max-row)