Added to panels evaluate, open as text, short cut keys

This commit is contained in:
David Botton 2024-03-27 16:39:36 -04:00
parent 247cda1fef
commit a85f2b88a7
5 changed files with 51 additions and 39 deletions

View file

@ -70,14 +70,14 @@
(m-saveas (create-gui-menu-item m-file :content "save as.."))
(m-emacs (create-gui-menu-item m-file :content "open in emacs"))
(m-edit (create-gui-menu-drop-down menu :content "Edit"))
(m-undo (create-gui-menu-item m-edit :content "undo"))
(m-redo (create-gui-menu-item m-edit :content "redo"))
(m-copy (create-gui-menu-item m-edit :content "copy"))
(m-paste (create-gui-menu-item m-edit :content "paste"))
(m-cut (create-gui-menu-item m-edit :content "cut"))
(m-del (create-gui-menu-item m-edit :content "delete"))
(m-undo (create-gui-menu-item m-edit :content "undo (cmd/ctrl-z)"))
(m-redo (create-gui-menu-item m-edit :content "redo (shift cmd/ctrl-z)"))
(m-copy (create-gui-menu-item m-edit :content "copy (cmd/ctrl-c)"))
(m-paste (create-gui-menu-item m-edit :content "paste (cmd/ctrl-v)"))
(m-cut (create-gui-menu-item m-edit :content "cut (cmd/ctrl-x)"))
(m-del (create-gui-menu-item m-edit :content "delete (del)"))
(m-lisp (create-gui-menu-drop-down menu :content "Lisp"))
(m-efrm (create-gui-menu-item m-lisp :content "evaluate form"))
(m-efrm (create-gui-menu-item m-lisp :content "evaluate form (cmd/alt-[)"))
(m-esel (create-gui-menu-item m-lisp :content "evaluate selection"))
(m-test (create-gui-menu-item m-lisp :content "evaluate all"))
(m-brws (create-gui-menu-item m-lisp :content "systen browse selection"))