Commit b0489209 authored by Steffen Michels's avatar Steffen Michels

adapt to dynamic editors

parent 68b969d1
Pipeline #20795 canceled with stage
......@@ -28,7 +28,7 @@ import Data.Functor
tunedDynamicConsEditor :: !DynamicConsOption !DynamicCons -> DynamicCons
tunedDynamicConsEditor HideIfOnlyChoice cons = {cons & showIfOnlyChoice = False}
tunedDynamicConsEditor UseAsDefault cons = {cons & useAsDefault = True}
tunedDynamicConsEditor LayoutVertical cons = {cons & uiAttributes = 'Map'.union (directionAttr Vertical) cons.uiAttributes}
tunedDynamicConsEditor LayoutVertical cons = {cons & uiAttributes = 'Map'.union (classAttr ["itasks-horizontal"]) cons.uiAttributes}
functionCons :: !String !String !a -> DynamicCons | TC a
functionCons consId label func = functionConsDyn consId label (dynamic func)
......
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