Commit 51cdc0cf authored by Bas Lijnse's avatar Bas Lijnse

Sketch of algorithm in static reorderUI layout

parent 667f3a59
......@@ -174,6 +174,15 @@ where
adjust :: (Map NodePath NodePath) UIChange -> UIChange //TODO
adjust moves change = change
where
selectChanges :: [NodePath] UIChange -> [(NodePath,UIChange)]
selectChanges _ _ = []
remap :: (Map NodePath NodePath) [(NodePath,UIChange)] -> [(NodePath,UIChange)]
remap moves changes = [(fromJust ('DM'.get path moves),change) \\ (path,change) <- changes]
combineChanges :: [(NodePath,UIChange)] -> UIChange
combineChanges _ = NoChange
insertSubAt :: NodePath UI-> Layout
insertSubAt [] def = id
......
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