diff --git a/simalq/commands.hy b/simalq/commands.hy index ec2afe2..828ebe6 100644 --- a/simalq/commands.hy +++ b/simalq/commands.hy @@ -158,7 +158,7 @@ 0 (menu (len stack) :draw (fn [] (print-main-screen :target target - :status-bar F :tile-list 'pickable))))))) + :tile-list 'pickable))))))) (info-screen (get stack tile-ix))))) ShiftHistory (do @@ -336,7 +336,7 @@ (hy.I.simalq/main.io-mode :draw (fn [] (hy.I.simalq/main.print-main-screen - :target focus :status-bar F :tile-list 'nonpickable)) + :target focus :tile-list 'nonpickable)) :on-input (fn [key] (nonlocal focus) (setv dir-v (hy.I.simalq/keyboard.read-dir-key key)) diff --git a/simalq/display.hy b/simalq/display.hy index 9615b52..1f4cada 100644 --- a/simalq/display.hy +++ b/simalq/display.hy @@ -97,7 +97,6 @@ interface elements as lists of `ColorChar`s." [target None] ; An optional `Pos` to focus the map. Otherwise, we use the ; player's current position. - [status-bar T] [tile-list None] ; `None`, or the symbols `pickable` or `nonpickable` [inventory F] @@ -108,10 +107,9 @@ interface elements as lists of `ColorChar`s." (setv out []) ; The status bar is drawn first. - (when status-bar - (+= out (lfor - line (draw-status-bar) - (colorstr-to-width line width)))) + (+= out (lfor + line (draw-status-bar) + (colorstr-to-width line width))) (setv status-bar-lines (len out)) ; Then the map, including overmarks. (setv focus (or target G.player.pos)) diff --git a/simalq/util.hy b/simalq/util.hy index 66772a6..0d1c5ac 100644 --- a/simalq/util.hy +++ b/simalq/util.hy @@ -74,7 +74,6 @@ (return)) (print-main-screen - :status-bar T :messages message-queue :overmarks (dfor p ps p (lfor i (range 2) (ColorChar