Allow more control over cloud shadows

2025-11-14 11:19:34 +00:00
parent 0eb2fe50a6
commit 836fefb9a5
5 changed files with 22 additions and 16 deletions
@@ -5,12 +5,12 @@ import Control.Lens
 import Dodge.Data.Universe
 import Dodge.Menu.PushPop

-makeBoolOption lns t =
+boolOption lns t =
    Toggle
        (uvConfig . lns #%~ not)
        (\u -> MODStringOption t (show (u ^# uvConfig . lns)))

-makeEnumOption lns str sideeff =
+enumOption lns str sideeff =
    Toggle2
        (\u -> sideeff (u & uvConfig . lns #%~ cycleEnum))
        (\u -> sideeff (u & uvConfig . lns #%~ cycleDownEnum))