use {
    r3vi::{
        view::{port::UpdateTask, OuterViewPort, singleton::*, sequence::*},
        buffer::{singleton::*, vec::*}
    },
    crate::{
        type_system::{Context, TypeTerm, ReprTree},
        editors::list::{ListCursor, ListCursorMode, PTYListController, PTYListStyle},
        tree::{NestedNode, TreeNav, TreeCursor},
        diagnostics::Diagnostics
    },
    std::sync::{Arc, RwLock}
};

//<<<<>>>><<>><><<>><<<*>>><<>><><<>><<<<>>>>

pub struct ListEditor {
    pub(super) cursor: SingletonBuffer<ListCursor>,
    pub data: VecBuffer<NestedNode>,

    pub(super) addr_port: OuterViewPort<dyn SequenceView<Item = isize>>,
    pub(super) mode_port: OuterViewPort<dyn SingletonView<Item = ListCursorMode>>,

    pub(crate) ctx: Arc<RwLock<Context>>,

    /// item type
    pub(super) typ: TypeTerm,
}

impl ListEditor {
    pub fn init_ctx(ctx: &Arc<RwLock<Context>>) {
        let mut ctx = ctx.write().unwrap();

        ctx.add_list_typename("List".into());
        ctx.add_node_ctor(
            "List", Arc::new(
                |ctx: Arc<RwLock<Context>>, ty: TypeTerm, depth: usize| {
                    match ty {
                        TypeTerm::Type {
                            id: _, args
                        } => {
                            if args.len() > 0 {
                                let typ = (args[0].clone().0)[0].clone();

                                let mut node = ListEditor::new(ctx.clone(), typ).into_node(depth);

                                PTYListController::for_node( &mut node, Some(','), Some('}') );
                                PTYListStyle::for_node( &mut node, ("{",", ","}") );

                                Some(node)
                            } else {
                                None
                            }
                        }
                        _ => None
                    }
                }
            )
        );
    }

    pub fn new(
        ctx: Arc<RwLock<Context>>,
        typ: TypeTerm,
    ) -> Self {
        let cursor = SingletonBuffer::new(ListCursor::default());
        let data = VecBuffer::<NestedNode>::new();

        ListEditor {
            mode_port: cursor
                .get_port()
                .map({
                    let data = data.clone();
                    move |c| {
                        let ip = SingletonBuffer::new(c.mode).get_port();
                        match c.mode {
                            ListCursorMode::Insert => ip,
                            ListCursorMode::Select => {
                                if let Some(idx) = c.idx {
                                    data.get(idx as usize).get_mode_view()
                                } else {
                                    ip
                                }
                            }
                        }
                    }
                })
                .flatten(),

            addr_port: VecBuffer::<OuterViewPort<dyn SequenceView<Item = isize>>>::with_data(
                vec![
                    cursor.get_port()
                        .to_sequence()
                        .filter_map(|cur| cur.idx),
                    cursor.get_port()
                        .map({
                            let data = data.clone();
                            move |cur| {
                                if cur.mode == ListCursorMode::Select {
                                    if let Some(idx) = cur.idx {
                                        if idx >= 0 && idx < data.len() as isize {
                                            return data.get(idx as usize).get_addr_view();
                                        }
                                    }
                                }
                                OuterViewPort::default()
                            }
                        })
                        .to_sequence()
                        .flatten()                
                ])
                .get_port()
                .to_sequence()
                .flatten(),
            cursor,
            data,
            ctx,
            typ,
        }
    }

    pub fn into_node(self, depth: usize) -> NestedNode {
        let data = self.get_data();
        let ctx = self.ctx.clone();
        let editor = Arc::new(RwLock::new(self));

        let e = editor.read().unwrap();

        NestedNode::new(depth)
            .set_ctx(ctx)
            .set_data(data)
            .set_editor(editor.clone())
            .set_nav(editor.clone())
           //.set_cmd(editor.clone())
            .set_diag(e
                      .get_data_port()
                      .enumerate()
                      .map(
                          |(idx, item_editor)| {
                              let idx = *idx;
                              item_editor
                                  .get_msg_port()
                                  .map(
                                      move |msg| {
                                          let mut msg = msg.clone();
                                          msg.addr.insert(0, idx);
                                          msg
                                      }
                                  )
                          }
                      )
                      .flatten()
            )
    }

    pub fn get_item_type(&self) -> TypeTerm {
        self.typ.clone()
    }

    pub fn get_seq_type(&self) -> TypeTerm {
        TypeTerm::Type {
            id: self.ctx.read().unwrap().get_fun_typeid("List").unwrap(),
            args: vec![ self.get_item_type().into() ]
        }
    }

    pub fn get_cursor_port(&self) -> OuterViewPort<dyn SingletonView<Item = ListCursor>> {
        self.cursor.get_port()
    }

    pub fn get_data_port(&self) -> OuterViewPort<dyn SequenceView<Item = NestedNode>> {
        self.data.get_port().to_sequence()
    }

    pub fn get_data(&self) -> Arc<RwLock<ReprTree>> {
        let data_view = self.get_data_port();
        ReprTree::new_leaf(
            self.get_seq_type(),
            data_view.into()
        )
    }

    pub fn get_item(&self) -> Option<NestedNode> {
        if let Some(idx) = self.cursor.get().idx {
            let idx = crate::utils::modulo(idx as isize, self.data.len() as isize) as usize;
            if idx < self.data.len() {
                Some(self.data.get(idx))
            } else {
                None
            }
        } else {
            None
        }
    }

    pub fn get_item_mut(&mut self) -> Option<MutableVecAccess<NestedNode>> {
        if let Some(idx) = self.cursor.get().idx {
            let idx = crate::utils::modulo(idx as isize, self.data.len() as isize) as usize;
            if idx < self.data.len() {
                Some(self.data.get_mut(idx))
            } else {
                None
            }
        } else {
            None
        }
    }

    pub fn is_listlist(&self) -> bool {
        self.ctx.read().unwrap().is_list_type(&self.typ)
        /*
        match self.typ.clone() {
            TypeTerm::Type { id, args } => {
                id == self.ctx.read().unwrap().get_typeid("List").unwrap()
            },
            TypeTerm::Num(_) => false
        }
        */
    }

    /// delete all items
    pub fn clear(&mut self) {
        self.data.clear();
        self.cursor.set(ListCursor::home());
    }

    /// delete item before the cursor
    pub fn delete_pxev(&mut self) {
        let mut cur = self.cursor.get();
        if let Some(idx) = cur.idx {
            if idx > 0 && idx <= self.data.len() as isize {
                cur.idx = Some(idx as isize - 1);
                self.cursor.set(cur);
                self.data.remove(idx as usize - 1);
            }
        }
    }

    /// delete item after the cursor
    pub fn delete_nexd(&mut self) {
        if let Some(idx) = self.cursor.get().idx {
            if idx < self.data.len() as isize {
                self.data.remove(idx as usize);
            }
        }
    }

    /// insert a new element
    pub fn insert(&mut self, item: NestedNode) {
        let mut cur = self.cursor.get();
        if let Some(idx) = cur.idx {

            match cur.mode {
                ListCursorMode::Insert => {
                    self.data.insert(idx as usize, item.clone());
                    if self.is_listlist() {
                        cur.mode = ListCursorMode::Select;
                    } else {
                        cur.idx = Some(idx + 1);               
                    }
                }

                ListCursorMode::Select => {
                    self.data.insert(1 + idx as usize, item.clone());                    
                    if self.is_listlist() {
                        cur.idx = Some(idx + 1);
                    }
                }
            }

            self.cursor.set(cur);
        } else {
            //eprintln!("insert: no cursor");
        }
    }

    /// split the list off at the current cursor position and return the second half
    pub fn split(&mut self) -> ListEditor {
        let mut le = ListEditor::new(
            Arc::new(RwLock::new(self.ctx.read().unwrap().clone())),
            self.typ.clone());

        let cur = self.cursor.get();
        if let Some(idx) = cur.idx {
            let idx = idx as usize;
            for _ in idx .. self.data.len() {
                le.data.push( self.data.get(idx) );
                self.data.remove(idx);
            }

            if self.is_listlist() {
                if idx > 0 && idx < self.data.len()+1 {
                    let prev_idx = idx - 1; // we are in insert mode, last element before cursor
                    let prev_node = self.data.get(prev_idx);

                    if let Some(prev_editor) = prev_node.editor.clone() {
                        prev_editor.0.update();
                        let prev_editor = prev_editor.get_view().unwrap().get().unwrap().downcast::<RwLock<ListEditor>>().unwrap();
                        let prev_editor = prev_editor.write().unwrap();
                        prev_editor.get_data_port().0.update();

                        if prev_editor.get_data_port().get_view().unwrap().iter()
                            .filter_map(|x| x.get_data_view::<dyn SingletonView<Item = Option<char>>>(vec![].into_iter())?.get()).count() == 0
                        {
                            drop(prev_editor);
                            self.data.remove(prev_idx);
                        }
                    }
                }
            }
        }

        le
    }

    /// append data of other editor at the end and set cursor accordingly
    pub fn join(&mut self, other: &ListEditor) {
        let selfcur = self.cursor.get();
        let othercur = other.cursor.get();

        let is_bottom = self.get_cursor().tree_addr.len() == 1 ||
            other.get_cursor().tree_addr.len() == 1;

        let is_insert =
            selfcur.mode == ListCursorMode::Insert
            || othercur.mode == ListCursorMode::Insert;

        let is_primary = self.get_cursor().tree_addr.len() > 1;

        self.cursor.set(ListCursor {
            mode: if is_insert && is_bottom {
                      ListCursorMode::Insert
                  } else {
                      ListCursorMode::Select
                  },
            idx: Some(self.data.len() as isize -
                      if is_primary {
                          1
                      } else {
                          0
                      }
            )
        });

        for i in 0 .. other.data.len() {
            self.data.push(other.data.get(i));
        }
    }


    pub fn listlist_split(&mut self) {
        let cur = self.get_cursor();
        if let Some(item) = self.get_item_mut() {
            let depth = item.depth;

            if let Some(head_editor) = item.editor.clone() {

                head_editor.0.update();
                let head = head_editor.get_view().unwrap().get().unwrap().downcast::<RwLock<ListEditor>>().unwrap();
                let mut head = head.write().unwrap();

                if head.data.len() > 0 {

                    if cur.tree_addr.len() > 2 {
                        head.listlist_split();
                    }

                    let mut tail = head.split();

                    head.goto(TreeCursor::none());

                    tail.cursor.set(
                        ListCursor {
                            idx: Some(0),
                            mode: if cur.tree_addr.len() > 2 {
                                ListCursorMode::Select
                            } else {
                                ListCursorMode::Insert
                            }
                        }
                    );

                    let item_type =
                        if let Some(data) = item.data.clone() {
                            let data = data.read().unwrap();
                            Some(data.get_type().clone())
                        } else {
                            None
                        };

                    let mut tail_node = tail.into_node(depth);
                    tail_node = tail_node.set_ctx(item.ctx.clone().unwrap());

                    //                    if let Some(item_type) = item_type {
                        tail_node = tail_node.morph(self.typ.clone());
                    //}
                    
                    self.insert(
                        tail_node
                    );
                }
            }
        }
    }

    pub fn listlist_join_pxev(&mut self, idx: isize, item: &NestedNode) {
        {
            let prev_editor = self.data.get_mut(idx as usize-1);
            let prev_editor = prev_editor.editor.clone();
            if let Some(prev_editor) = prev_editor {
                prev_editor.0.update();
                if let Ok(prev_editor) = prev_editor.get_view().unwrap().get().unwrap().downcast::<RwLock<ListEditor>>() {
                    let mut prev_editor = prev_editor.write().unwrap();

                    let cur_editor = item.editor.clone().unwrap();
                    cur_editor.0.update();
                    let cur_editor = cur_editor.get_view().unwrap().get().unwrap().downcast::<RwLock<ListEditor>>().unwrap();
                    let cur_editor = cur_editor.write().unwrap();

                    prev_editor.join(&cur_editor);
                    
                    self.cursor.set(
                        ListCursor {
                            idx: Some(idx - 1), mode: ListCursorMode::Select
                        }
                    );

                }
            }
        }

        self.data.remove(idx as usize);
    }

    pub fn listlist_join_nexd(&mut self, next_idx: usize, item: &NestedNode) {
        {
            let next_editor = self.data.get_mut(next_idx).editor.clone();
            if let Some(next_editor) = next_editor {
                next_editor.0.update();
                if let Ok(next_editor) = next_editor.get_view().unwrap().get().unwrap().downcast::<RwLock<ListEditor>>() {
                    let mut next_editor = next_editor.write().unwrap();
                    let cur_editor = item.editor.clone().unwrap();
                    cur_editor.0.update();
                    let cur_editor = cur_editor.get_view().unwrap().get().unwrap().downcast::<RwLock<ListEditor>>().unwrap();
                    let mut cur_editor = cur_editor.write().unwrap();

                    cur_editor.join(&next_editor);
                }
            }
        }
        self.data.remove(next_idx);
    }
}
/*
use crate::{
    type_system::TypeLadder,
    tree::{TreeType, TreeAddr}
};

impl TreeType for ListEditor {
    fn get_type(&self, addr: &TreeAddr) -> TypeLadder {
        let idx = crate::utils::modulo::modulo(addr.0[0] as isize, self.data.len() as isize) as usize;

        let mut addr = addr.clone();
        
        if self.data.len() > 0 {
            addr.0.remove(0);
            self.data.get(idx).get_type(addr)
        } else {
            vec![]
        }
    }
}
*/