Status Line

parent 9f9ee1d6
Pipeline #1244 passed with stage
in 11 minutes
......@@ -22,11 +22,11 @@ blue >bg white >fg or bold or Value status-attr
: .status-line ( -- ) { | w^ status$ }
[: ." gforth 😷 | free: " unused u.
." | order: " order
." | base: " base ['] ? #10 base-execute
." | base: " base @ ['] . #10 base-execute
." | " depth 0= IF ." ∅" ELSE ['] ... #10 base-execute THEN ;]
[: ." gforth 😷 |f " unused u.
." |o " order
." |b " base ['] ? #10 base-execute
." |b " base @ ['] . #10 base-execute
." | " depth 0= IF ." ∅" ELSE ['] ... #10 base-execute THEN ;]
cols 100 > select
status$ $exec
......
Markdown is supported
0%
or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment