[clfswm-devel] dot files and examples.

[Philippe Brochard]

Deepak Tripathi writes:

> Team,
> Can you please share dot files of your modification. I am unable to
> find nice how to to create one.
>
Hi, you can check the wiki for this:

  http://trac.common-lisp.net/clfswm/wiki/UserConfiguration

It'll be a good place to share useful configuration code.

> I have following basic requirement.
>
> 1) Reload clfswm
>
With the menu (Key combo: C-> + m + m + r)

> 2) change default key binding.
>
Add a binding hook in your configuration file:

--------------------------------------------------
(defun local-binding ()
  (define-main-key ("twosuperior") 'run-apwal)
  (define-main-key ("Control_R") 'banish-pointer)
  (undefine-main-key ("Menu"))
  (define-main-key ("Pause" :control) 'reboot-halt-menu)
  (define-main-key ("Pause") 'black-screen))

(add-hook *binding-hook* 'local-binding))
--------------------------------------------------

Here, define-main-key, define-second-key, undefine-main-key and more
(see src/clfswm-keys.lisp for details) may helps.

> 3) Defaults name to frame
>
The default frame is the first frame in the root-frame. So this will do
the trick:

--------------------------------------------------
(defun my-init-hook ()
  (setf (child-name (first (frame-child *root-frame*))) "The name you want"))

(add-hook *init-hook* 'my-init-hook)
--------------------------------------------------


> 4) program to be opened default etc..
>
See in the doc/ directory or here:

  http://trac.common-lisp.net/clfswm/browser/doc/dot-clfswmrc
  http://common-lisp.net/project/clfswm/dot-clfswmrc

> apologies if this questions have already asked to newbie.
>
No problem. We can share those code on the wiki.

  http://trac.common-lisp.net/clfswm/wiki/UserConfiguration

Regards,

Philippe