mirrors/clog
1
Fork 0
mirror of https://github.com/rabbibotton/clog.git synced 2025-12-06 02:30:42 -08:00
Code Issues Projects Releases Wiki Activity

menu name corrections

Browse source
This commit is contained in:
David Botton 2024-06-25 20:52:48 -04:00
parent b1ddfe15b9
commit eaf3d4d3ea
2 changed files with 19 additions and 19 deletions
Download patch file Download diff file Expand all files Collapse all files

18
tools/clog-builder-dir-tree.lisp
View file

@ -43,14 +43,14 @@
:class *builder-window-desktop-class* :class *builder-window-desktop-class*
:auto-place :top)) :auto-place :top))
(title (create-div menu :content disp)) (title (create-div menu :content disp))
(op (create-div menu :content "Toggle Open" :class *builder-menu-context-item-class*)) (op (create-div menu :content "Toggle open" :class *builder-menu-context-item-class*))
(ops (create-div menu :content "Open in Pseudo Shell" :class *builder-menu-context-item-class*)) (ops (create-div menu :content "Open in pseudo shell" :class *builder-menu-context-item-class*))
(opo (create-div menu :content "Open in OS" :class *builder-menu-context-item-class*)) (opo (create-div menu :content "Open in os" :class *builder-menu-context-item-class*))
(opd (create-div menu :content "Open in new Tree" :class *builder-menu-context-item-class*)) (opd (create-div menu :content "Open in new Tree" :class *builder-menu-context-item-class*))
(opr (create-div menu :content "Set as root" :class *builder-menu-context-item-class*)) (opr (create-div menu :content "Set as root" :class *builder-menu-context-item-class*))
(nwd (create-div menu :content "New subdirectory" :class *builder-menu-context-item-class*)) (nwd (create-div menu :content "New subdirectory" :class *builder-menu-context-item-class*))
(ren (create-div menu :content "Rename Director" :class *builder-menu-context-item-class*)) (ren (create-div menu :content "Rename directory" :class *builder-menu-context-item-class*))
(del (create-div menu :content "Delete Directory" :class *builder-menu-context-item-class*))) (del (create-div menu :content "Delete directory" :class *builder-menu-context-item-class*)))
(declare (ignore title op)) (declare (ignore title op))
(mapcar (lambda (file-extension) (mapcar (lambda (file-extension)
(set-on-click (create-div menu :content (getf file-extension :name) :class *builder-menu-context-item-class*) (set-on-click (create-div menu :content (getf file-extension :name) :class *builder-menu-context-item-class*)
@ -142,7 +142,7 @@
(oph (create-div menu :content "Open this tab" :class *builder-menu-context-item-class*)) (oph (create-div menu :content "Open this tab" :class *builder-menu-context-item-class*))
(opt (create-div menu :content "Open new tab" :class *builder-menu-context-item-class*)) (opt (create-div menu :content "Open new tab" :class *builder-menu-context-item-class*))
(ope (create-div menu :content "Open emacs" :class *builder-menu-context-item-class*)) (ope (create-div menu :content "Open emacs" :class *builder-menu-context-item-class*))
(opo (create-div menu :content "Open OS default" :class *builder-menu-context-item-class*)) (opo (create-div menu :content "Open os default" :class *builder-menu-context-item-class*))
(ren (create-div menu :content "Rename" :class *builder-menu-context-item-class*)) (ren (create-div menu :content "Rename" :class *builder-menu-context-item-class*))
(del (create-div menu :content "Delete" :class *builder-menu-context-item-class*))) (del (create-div menu :content "Delete" :class *builder-menu-context-item-class*)))
(declare (ignore title op)) (declare (ignore title op))
@ -222,9 +222,9 @@
:class *builder-window-desktop-class* :class *builder-window-desktop-class*
:auto-place :top)) :auto-place :top))
(title (create-div menu :content disp)) (title (create-div menu :content disp))
(op (create-div menu :content "Toggle Open" :class *builder-menu-context-item-class*)) (op (create-div menu :content "Toggle open" :class *builder-menu-context-item-class*))
(ops (create-div menu :content "Open Pseudo Shell" :class *builder-menu-context-item-class*)) (ops (create-div menu :content "Open pseudo shell" :class *builder-menu-context-item-class*))
(opo (create-div menu :content "Open in OS" :class *builder-menu-context-item-class*)) (opo (create-div menu :content "Open in os" :class *builder-menu-context-item-class*))
(nwd (create-div menu :content "New subdirectory" :class *builder-menu-context-item-class*))) (nwd (create-div menu :content "New subdirectory" :class *builder-menu-context-item-class*)))
(declare (ignore title op)) (declare (ignore title op))
(set-on-click menu (lambda (i) (set-on-click menu (lambda (i)

20
tools/clog-builder-project-tree.lisp
View file

@ -124,10 +124,10 @@
:class *builder-window-desktop-class* :class *builder-window-desktop-class*
:auto-place :top)) :auto-place :top))
(title (create-div menu :content disp)) (title (create-div menu :content disp))
(op (create-div menu :content "Toggle Open" :class *builder-menu-context-item-class*)) (op (create-div menu :content "Toggle open" :class *builder-menu-context-item-class*))
(opd (create-div menu :content "Open in Dir Tree" :class *builder-menu-context-item-class*)) (opd (create-div menu :content "Open in dir tree" :class *builder-menu-context-item-class*))
(ops (create-div menu :content "Open in Pseudo Shell" :class *builder-menu-context-item-class*)) (ops (create-div menu :content "Open in pseudo shell" :class *builder-menu-context-item-class*))
(opo (create-div menu :content "Open in OS" :class *builder-menu-context-item-class*))) (opo (create-div menu :content "Open in os" :class *builder-menu-context-item-class*)))
(declare (ignore title op)) (declare (ignore title op))
(mapcar (lambda (file-extension) (mapcar (lambda (file-extension)
(set-on-click (create-div menu :content (getf file-extension :name) :class *builder-menu-context-item-class*) (set-on-click (create-div menu :content (getf file-extension :name) :class *builder-menu-context-item-class*)
@ -179,7 +179,7 @@
(oph (create-div menu :content "Open this tab" :class *builder-menu-context-item-class*)) (oph (create-div menu :content "Open this tab" :class *builder-menu-context-item-class*))
(opt (create-div menu :content "Open new tab" :class *builder-menu-context-item-class*)) (opt (create-div menu :content "Open new tab" :class *builder-menu-context-item-class*))
(ope (create-div menu :content "Open emacs" :class *builder-menu-context-item-class*)) (ope (create-div menu :content "Open emacs" :class *builder-menu-context-item-class*))
(opo (create-div menu :content "Open OS default" :class *builder-menu-context-item-class*)) (opo (create-div menu :content "Open os default" :class *builder-menu-context-item-class*))
(del (create-div menu :content "Delete" :class *builder-menu-context-item-class*))) (del (create-div menu :content "Delete" :class *builder-menu-context-item-class*)))
(declare (ignore title op)) (declare (ignore title op))
(mapcar (lambda (file-extension) (mapcar (lambda (file-extension)
@ -271,12 +271,12 @@
:class *builder-window-desktop-class* :class *builder-window-desktop-class*
:auto-place :top)) :auto-place :top))
(title (create-div menu :content disp)) (title (create-div menu :content disp))
(op (create-div menu :content "Toggle Open" :class *builder-menu-context-item-class*)) (op (create-div menu :content "Toggle open" :class *builder-menu-context-item-class*))
(opd (create-div menu :content "Open in Dir Tree" :class *builder-menu-context-item-class*)) (opd (create-div menu :content "Open in dir tree" :class *builder-menu-context-item-class*))
(ops (create-div menu :content "Open Pseudo Shell" :class *builder-menu-context-item-class*)) (ops (create-div menu :content "Open pseudo shell" :class *builder-menu-context-item-class*))
(opa (create-div menu :content "Open in ASDF Browser" :class *builder-menu-context-item-class*)) (opa (create-div menu :content "Open in ASDF browser" :class *builder-menu-context-item-class*))
(opr (create-div menu :content "Open REPL" :class *builder-menu-context-item-class*)) (opr (create-div menu :content "Open REPL" :class *builder-menu-context-item-class*))
(opo (create-div menu :content "Open in OS" :class *builder-menu-context-item-class*))) (opo (create-div menu :content "Open in os" :class *builder-menu-context-item-class*)))
(declare (ignore title op)) (declare (ignore title op))
(set-on-click menu (lambda (i) (set-on-click menu (lambda (i)
(declare (ignore i)) (declare (ignore i))