Re: Custom hotkeys for LW IDE tools

Perfect, thanks! This is exactly what I was looking for.

Madhu <enometh@meer.net> writes:

> * Alexey Veretennikov <m2h9bukdp8.fsf@MacBook-Pro-2.lan> :
> Wrote on Tue, 12 Jul 2016 18:45:23 +0200:
>
> | Maybe it is trivial but I couldn't find a way to assign custom hotkey
> | to call specific tool. For example I would like to bind Listener from
> | Cmd+Ctrl+L to something else. How to achieve this?
>
> Dmitry Ivanov posted about his lw-ide package, earlier this February,
> on lisp-hug in the thread "shortcuts in LW IDE":
>
> 	http://permalink.gmane.org/gmane.lisp.lispworks.general/13661
> 	http://lisp.ystok.ru/ru/lispworks/lww-ide.zip
>
> You should be able to adapt this (I remember using an earlier version of
> the package lww43ini.zip, to get this monstrosity on lwl.  Of course The
> UI semantics fail when you have multiple listeners, etc. ---Madhu
>
> (editor:defcommand "Switch to or from Listener" (p)
>      "Toggle between the Tools Listener and Tools Editor." ""
>   (declare (ignore p))
>   (let ((current-pane (editor::current-editor-pane)))
>     (etypecase current-pane
>       (null (capi:find-interface 'lw-tools:editor))
>       (capi:listener-pane (capi:find-interface 'lw-tools:editor))
>       (capi:editor-pane (capi:find-interface 'lw-tools:listener)))))
> (editor:bind-key "Switch to or from Listener" #("Control-\c" "Control-\z"))
>
> _______________________________________________
> Lisp Hug - the mailing list for LispWorks users
> lisp-hug@lispworks.com
> http://www.lispworks.com/support/lisp-hug.html
>

-- 
Br,
/Alexey

_______________________________________________
Lisp Hug - the mailing list for LispWorks users
lisp-hug@lispworks.com
http://www.lispworks.com/support/lisp-hug.html