Rename black-colors in dark-mode

ansi.fs

@@ -165,13 +165,13 @@ $0 Value default-bg
 : auto-color ( -- )
     is-terminal? is-color-terminal? and 0= if
         \ TODO: no terminal - switch to other output class
-	no-colors  EXIT
+	default-mode  EXIT
     then
     is-xterm? if term-bg? else default-bg then
     rgb-split + + $17F u> IF
-	white-colors
+	light-mode
     ELSE
-	black-colors
+	dark-mode
     THEN ;
 
 :noname auto-color defers 'cold ; is 'cold

kernel/errore.fs

@@ -99,7 +99,7 @@ has? OS [IF]
     \G color mod for error highlight inverse
     true Value white?
     \G reset to current colors
-    : white-colors ( -- ) \ gforth
+    : light-mode ( -- ) \ gforth
 	\G color theme for white background
 	true to white?
 	$6600 to default-color
@@ -110,7 +110,7 @@ has? OS [IF]
 	$6601 to input-color
 	2 to error-hl-ul
 	8 to error-hl-inv ;
-    : black-colors ( -- ) \ gforth
+    : dark-mode ( -- ) \ gforth
 	\G color theme for black background
 	false to white?
 	$6600 to default-color
@@ -121,7 +121,7 @@ has? OS [IF]
 	$6601 to input-color
 	2 to error-hl-ul
 	8 to error-hl-inv ;
-    : no-colors ( -- ) \ gforth
+    : default-mode ( -- ) \ gforth
 	\G use the default color
 	false to white?
 	$6600 to default-color \ reset colors even in no-color mode

minos2/gl-helper.fs

@@ -837,9 +837,9 @@ color-w color-h * sfloats allocate throw to color-pal
     Saturate  1 saturate% glUniform1fv
     LightPos  1 lightpos-xyz glUniform3fv ;
 
-: day-mode    ( -- )  0 to color-theme 0.5e ColorMode! ;
+: light-gui    ( -- )  0 to color-theme 0.5e ColorMode! ;
 color-h 1 > [IF]
-    : night-mode  ( -- )  1 to color-theme 1.5e ColorMode! ;
+    : dark-gui  ( -- )  1 to color-theme 1.5e ColorMode! ;
 [THEN]
 
 tex: palette-tex

minos2/gl-terminal.fs

@@ -169,13 +169,13 @@ $8F00 Value gl-default-color \ real default color
 : std-bg! ( index -- )  dup bg! dup std-bg ! bg>clear ;
 Black White white? [IF] swap [THEN] fg! bg!
 
-: >white white-colors White std-bg! White err-bg! Black fg! Red err-fg!
+: >light light-mode White std-bg! White err-bg! Black fg! Red err-fg!
     White >bg Black >fg or to gl-default-color
     $70004000 dup color-index ! error-color-index ! ;
-: >black black-colors Black std-bg! Black err-bg! White fg! Red err-fg!
+: >dark dark-mode Black std-bg! Black err-bg! White fg! Red err-fg!
     Black >bg White >fg or to gl-default-color
     $704000 dup color-index ! error-color-index ! ;
-[IFDEF] android >black [THEN]
+[IFDEF] android >dark [THEN]
 
 256 Value videocols
 0   Value videorows
@@ -545,7 +545,7 @@ default-out op-vector !
 : >screen ( -- )
     ctx 0= IF  window-init  [IFDEF] map-win map-win [THEN] config-changer  THEN
     err>screen op-vector @ debug-vector ! out>screen
-    white? IF  >white  ELSE  >black  THEN ;
+    white? IF  >light  ELSE  >dark  THEN ;
 
 \ initialize
 

minos2/presentation-support.fs

@@ -212,7 +212,7 @@ glue-left  @ >o 1glue vglue-c glue! 1glue dglue-c glue! o>
 glue-right @ >o 1glue vglue-c glue! 1glue dglue-c glue! o>
 
 : pres-frame ( colorday colornight -- o1 o2 )
-    day-mode new-color, night-mode -1 +to color,# new-color, fdrop day-mode
+    light-gui new-color, dark-gui -1 +to color,# new-color, fdrop light-gui
     glue*wh slide-frame dup .button1 simple[] ;
 
 $10 stack: vp-tops

minos2/presentation.fs

@@ -50,7 +50,7 @@ tex: minos2
 
 \ page 0
 {{
-    $FFFFFFFF dup pres-frame
+    $000000FF $FFFFFFFF pres-frame
     {{
 	glue*l }}glue \ ) $CCDDDD3F color, 4e }}frame dup .button1
 	l" ΜΙΝΩΣ2 GUI" /title
@@ -64,7 +64,7 @@ tex: minos2
 
 \ page 6
 {{
-    $FFBFFFFF dup pres-frame
+    $440044FF $FFBFFFFF pres-frame
     {{
 	l" ΜΙΝΩΣ2 Widgets" /title
 	l" Design principle is a Lego–style combination of many extremely simple objects" \\
@@ -95,7 +95,7 @@ tex: minos2
 
 \ page 7
 {{
-$BFFFFFFF dup pres-frame
+$004444FF $BFFFFFFF pres-frame
 {{
     l" ΜΙΝΩΣ2 Boxes" /title
     {{
@@ -121,7 +121,7 @@ $BFFFFFFF dup pres-frame
 
 \ page 8
 {{
-    $FFFFBFFF dup pres-frame
+    $444400FF $FFFFBFFF pres-frame
     {{
 	l" ΜΙΝΩΣ2 Displays" /title
 	l" Render into different kinds of displays" \\
@@ -136,7 +136,7 @@ $BFFFFFFF dup pres-frame
 
 \ page 9
 {{
-    $BFDFFFFF dup pres-frame
+    $002244FF $BFDFFFFF pres-frame
     {{
 	l" Minimize Draw Calls" /title
 	l" OpenGL wants as few draw–calls per frame, so different contexts are drawn in stacks with a draw–call each" p\\
@@ -153,7 +153,7 @@ $BFFFFFFF dup pres-frame
 
 \ page 17
 {{
-    $FFFFFFFF dup pres-frame
+    $000000FF $FFFFFFFF pres-frame
     {{
 	l" Literatur & Links" /title
 	vt{{

minos2/text-style.fs

@@ -29,13 +29,13 @@ $000000FF $000000FF $40C0FFFF $FFFFFFFF text-emoji-fade-color: toggle-color
 \ night mode colors
 color-h 1 > [IF]
     1 new-theme
-    night-mode
+    dark-gui
     $FFFFFFFF re-text-color blackish
     $FFFFBBFF re-text-color dark-blue
     $000000FF re-text-color whitish
     $40C0FFFF $000000FF $000000FF $FFFFFFFF re-text-emoji-fade-color toggle-color
     $1F3F7F7F re-text-color selection-color
-    day-mode
+    light-gui
 [THEN]
 
 blackish