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

adjust short cuts

Browse source
This commit is contained in:
David Botton 2024-04-17 21:34:03 -04:00
parent 44c9497ed1
commit dd99a8a30c
2 changed files with 8 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

2
tools/clog-builder-ace.lisp
View file

@ -89,7 +89,7 @@
(format nil
"~A.commands.addCommand({
name: 'adjust-tabs',
bindKey: {win: 'Alt-t', mac: 'Command-t'},
bindKey: {win: 'Alt-t', mac: 'Ctrl-t'},
exec: function(editor) {
var row = editor.selection.getCursor().row;
var column = editor.selection.getCursor().column;

10
tools/clog-builder-files.lisp
View file

@ -117,11 +117,12 @@
(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-brwsp (create-gui-menu-item m-lisp :content "system browse at point"))
(m-brwsp (create-gui-menu-item m-lisp :content "system browse at point (cmd/alt-.)"))
(m-brws (create-gui-menu-item m-lisp :content "system browse selection"))
(m-desc (create-gui-menu-item m-lisp :content "describe selection"))
(m-doc (create-gui-menu-item m-lisp :content "documentation on selection"))
(m-apro (create-gui-menu-item m-lisp :content "apropos on selection"))
(m-pprt (create-gui-menu-item m-lisp :content "adjust tabs at point (ctrl/alt-t)"))
(m-ppr (create-gui-menu-item m-lisp :content "adjust tabs file"))
(m-pprs (create-gui-menu-item m-lisp :content "adjust tabs selection"))
(m-help (create-gui-menu-drop-down menu :content "Help"))
@ -219,8 +220,8 @@
<tr><td>cmd/alt-.</td><td>Launch system browser</td></tr>
<tr><td>cmd/alt-[</td><td>Evaluate form</td></tr>
<tr><td>cmd/ctrl-s</td><td>Save</td></tr>
<tr><td>cmd/alt-t</td><td>Adjust tabs at cursor</td></tr>
<tr><td>ctl/alt-=</td><td>Expand region</td></tr>
<tr><td>ctrl/alt-t</td><td>Adjust tabs at cursor</td></tr>
<tr><td>ctrl/alt-=</td><td>Expand region</td></tr>
<tr><td>opt/alt-m</td><td>Macroexpand</td></tr>
</table><p><a target='_blank' href='https://github.com/ajaxorg/ace/wiki/Default-Keyboard-Shortcuts'>Default Keybindings</a>"
:width 400 :height 400
@ -435,6 +436,9 @@
(open-window (window (connection-body obj))
(format nil "http://l1sp.org/search?q=~A"
(clog-ace:selected-text ace)))))
(set-on-click m-pprt (lambda (obj)
(declare (ignore obj))
(clog-ace:execute-command ace "adjust-tabs")))
(set-on-click m-ppr (lambda (obj)
(declare (ignore obj))
(let ((r (make-array '(0) :element-type 'base-char