Assorted changes, cleanup menu selection text

2022-04-25 23:27:39 +01:00
parent 67e6c4a5bd
commit fa8d8b5899
22 changed files with 217 additions and 108 deletions
@@ -7,12 +7,12 @@ import Control.Lens
 makeBoolOption scode lns t = Toggle
    scode 
    (return . Just . (config . lns #%~ not)) 
-    (\u -> t ++ ":" ++ show (u ^# config . lns))
+    (\u -> Right (t , show (u ^# config . lns)))

 makeEnumOption scode lns str sideeff = Toggle
    scode
    (\u -> Just <$> sideeff (u & config . lns #%~ cycleEnum) )
-    (\u -> str ++ ":" ++ show (u ^# config . lns))
+    (\u -> Right (str , show (u ^# config . lns)) )

 makeSubmenuOption scode submenu t = Toggle scode (pushScreen submenu) (const t)