diff --git a/tools/clog-builder-dir-tree.lisp b/tools/clog-builder-dir-tree.lisp index 22d8932..13bf069 100644 --- a/tools/clog-builder-dir-tree.lisp +++ b/tools/clog-builder-dir-tree.lisp @@ -43,14 +43,14 @@ :class *builder-window-desktop-class* :auto-place :top)) (title (create-div menu :content disp)) - (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*)) - (opo (create-div menu :content "Open in OS" :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*)) + (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*)) (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*)) - (ren (create-div menu :content "Rename Director" :class *builder-menu-context-item-class*)) - (del (create-div menu :content "Delete Directory" :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*))) (declare (ignore title op)) (mapcar (lambda (file-extension) (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*)) (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*)) - (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*)) (del (create-div menu :content "Delete" :class *builder-menu-context-item-class*))) (declare (ignore title op)) @@ -222,9 +222,9 @@ :class *builder-window-desktop-class* :auto-place :top)) (title (create-div menu :content disp)) - (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*)) - (opo (create-div menu :content "Open in OS" :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*)) + (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*))) (declare (ignore title op)) (set-on-click menu (lambda (i) diff --git a/tools/clog-builder-project-tree.lisp b/tools/clog-builder-project-tree.lisp index 7c7e475..f57d9ff 100644 --- a/tools/clog-builder-project-tree.lisp +++ b/tools/clog-builder-project-tree.lisp @@ -124,10 +124,10 @@ :class *builder-window-desktop-class* :auto-place :top)) (title (create-div menu :content disp)) - (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*)) - (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*))) + (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*)) + (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*))) (declare (ignore title op)) (mapcar (lambda (file-extension) (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*)) (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*)) - (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*))) (declare (ignore title op)) (mapcar (lambda (file-extension) @@ -271,12 +271,12 @@ :class *builder-window-desktop-class* :auto-place :top)) (title (create-div menu :content disp)) - (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*)) - (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*)) + (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*)) + (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*)) (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)) (set-on-click menu (lambda (i) (declare (ignore i))