|
|
<!-- Name: BindingHook -->
|
|
|
<!-- Version: 1 -->
|
|
|
<!-- Last-Modified: 2008/10/26 22:59:17 -->
|
|
|
<!-- Author: pbrochard -->
|
|
|
# Binding hook
|
|
|
|
|
|
At [CLFSWM](CLFSWM) startup, a binding hook (*binding-hook*) is executed to reset hashtable keys and bind keys and mouse actions.
|
|
|
|
|
|
The default value of *binding-hook* is:
|
|
|
|
|
|
```
|
|
|
*BINDING-HOOK*=(INIT-*INFO-KEYS*
|
|
|
```
|
|
|
|
|
|
To change the default key binding in your configuration file (for example), you have to attach a new hook to *binding-hook*.
|
|
|
|
|
|
Something like this:
|
|
|
|
|
|
```
|
|
|
(defun my-binding ()
|
|
|
(define-main-key ("a" :alt) 'open-menu))
|
|
|
|
|
|
(add-hook *binding-hook* 'my-binding)
|
|
|
``` |
|
|
\ No newline at end of file |