[clfswm-devel] Some news: new Exposé mode, new toolbar system.

[Valentin Plechinger]

> I have made some more work in the last commit (9161892).
> Here is how to do what you want (not only for testing if you want):
>
> --------------------------------------------------
> (let ((toolbar nil))
>   (defun create-my-toolbar ()
>     "Create a new toolbar"
>     (setf toolbar (add-toolbar 0 0 :vert 70 'middle-right-root-placement
>                                '((clfswm-menu 1) (label 50)
>                                  (clickable-clock 99))))
>     (open-toolbar toolbar))
>
>   (defun remove-my-toolbar ()
>     "Close my new toolbar"
>     (remove-toolbar toolbar)))
>
> (defun my-toolbar-keybinding ()
>   (define-second-key ("F2") 'create-my-toolbar)
>   (define-second-key ("F2" :control) 'remove-my-toolbar))
>
> (add-hook *binding-hook* 'my-toolbar-keybinding)
> --------------------------------------------------
>
> Please, if you can, test intensively. This is young code.
>
> Regards,
>
> Philippe

I fetched the last commit and tried your function but it gives me an error.
    let: variable *EVENT-EXPOSURE-HOOK* has no value