swrup/geochan
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

def_visibility + reactive map buttons

Browse source
This commit is contained in:
Swrup 2025-04-15 06:41:50 +02:00
parent 49b7a37597
commit 14b8c5a999
7 changed files with 52 additions and 46 deletions
Download patch file Download diff file Expand all files Collapse all files

7
src/client/util.ml
View file

@ -63,9 +63,10 @@ let clamp ~min ~max x = Float.max (Float.min max x) min
open Note
open Note_brr
let def_off b_s el = Elr.def_class (str "off") b_s el
let def_on b_s el = Elr.def_class (str "off") (S.map not b_s) el
let def_visibility (visibility : [ `On | `Off ]) b_s el =
match visibility with
| `On -> Elr.def_class (str "off") (S.map not b_s) el
| `Off -> Elr.def_class (str "off") b_s el
let def_disabled b_s el =
Elr.def_at At.Name.disabled