[(Embedded, tab "tab1")
,(Embedded, tab "tab2")
]
- [ OnAction (Action "New") (always (Embedded, \l->appendTask Embedded (tab "New tab") l @! ()))
- , OnAction (Action " ") (always (Embedded, \l->appendTask Embedded (tab "New tab") l @! ()))
- , OnAction (Action "Close") (never (Embedded, \l->treturn ()))
- , OnAction (Action "Dis no icon") (never (Embedded, \l->treturn ()))
- , OnAction (Action "+") (always (Embedded, \r->treturn ()))
+ [ OnAction (Action "New") (always (Embedded, tab "New tab"))
+ , OnAction (Action " ") (always (Embedded, tab "New tab"))
+ , OnAction (Action "Close") (never (Embedded, \_->treturn ()))
+ , OnAction (Action "Dis no icon") (never (Embedded, \_->treturn ()))
+ , OnAction (Action "+") (always (Embedded, \_->treturn ()))
]
<<@ ArrangeWithTabs True
<<@ ApplyLayout (setActionIcon ('DM'.put " " "new" 'DM'.newMap))