From 21484979a4b3455739bc27a01ab6f6b8ae61dcd1 Mon Sep 17 00:00:00 2001
From: Michael Sippel <micha@fragmental.art>
Date: Wed, 23 Aug 2023 21:53:05 +0200
Subject: [PATCH] typeterm editor: add vertical view for ladders

---
 nested/src/editors/typeterm/ctx.rs | 17 +++++++++++++++--
 1 file changed, 15 insertions(+), 2 deletions(-)

diff --git a/nested/src/editors/typeterm/ctx.rs b/nested/src/editors/typeterm/ctx.rs
index a88f588..2f842f5 100644
--- a/nested/src/editors/typeterm/ctx.rs
+++ b/nested/src/editors/typeterm/ctx.rs
@@ -33,7 +33,20 @@ pub fn init_ctx(ctx: &mut Context) {
         MorphismTypePattern { src_tyid: ctx.get_typeid("List"), dst_tyid: ctx.get_typeid("Type::Ladder").unwrap() },
         Arc::new(|mut node, _dst_type: _| {
             PTYListController::for_node( &mut node, Some('~'), None );
-            PTYListStyle::for_node( &mut node, ("","~","") );
+
+            let vertical_view = true;
+            if vertical_view {
+                let editor = node.get_edit::<crate::editors::list::ListEditor>().unwrap();
+                let mut e = editor.write().unwrap();
+                let mut seg_view = PTYListStyle::new( ("","~",""), 0 ).get_seg_seq_view( &mut e );
+
+                node = node.set_view(
+                    seg_view.to_grid_vertical().flatten()
+                );
+            } else {
+                PTYListStyle::for_node( &mut node, ("","~","") );
+            }
+
             Some(node)
         }));
 
@@ -95,7 +108,7 @@ pub fn init_ctx(ctx: &mut Context) {
             );
             
             node.close_char.set(Some('\''));
-            node.view = Some(
+            node = node.set_view(
                 grid.get_port()
                     .flatten()
             );