Commit 73291f62 authored by Bernd Paysan's avatar Bernd Paysan

Rename black-colors in dark-mode

parent 4f86cdd3
Pipeline #1120 failed with stage
in 8 minutes and 46 seconds
......@@ -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
......@@ -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
......
......@@ -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
......
......@@ -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
......
......@@ -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
......
......@@ -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{{
......
......@@ -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
......
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