Allow for more complex item composition

2024-09-26 00:00:46 +01:00
parent 61f07be08b
commit 772886c8c6
8 changed files with 285 additions and 191 deletions
@@ -116,7 +116,7 @@ updateDisplaySections w cfig sss =
    --invitems' = MIM.merge MIM.dropMissing MIM.dropMissing (MIM.zipWithMatched $ const addindent) indents $ IM.mapWithKey (invSelectionItem cr) inv
    invitems' = IM.mapWithKey (invSelectionItem cr) inv
    cr = you w
-    inv = invIndentIM  $ _crInv (you w)
+    inv = invIndentIM'  $ _crInv (you w)
    --indents = indentInv inv
    --inv = indentInv $ _crInv (you w)
    nfreeslots = crNumFreeSlots cr