Hi all, I thought I'd follow up on my previous post regarding xlib and a guile window manager.
First of all, I have guile-xlib working with guile-2.0; I'm calling my branch "guile2-xlib." You can use git and pull it from http://github.com/mwitmer/guile2-xlib or download an archive at http://markwitmer.com/dist/guile2-xlib-0.1.tar.gz. I'm still toying with the idea of writing some xcb bindings, time permitting! As far as the window manager goes, you need very little code to get started with something extremely basic. Here are a few lines that let you open some X applications, though it lacks resizing/positioning (guile-xlib doesn't support that... yet). --8<---------------cut here---------------start------------->8--- (define-module (guile-wm wm) #:use-module (xlib xlib)) (define-once wm-display #f) (define-once wm-display-string (or (getenv "DISPLAY") ":0")) (define-once wm-event-hook (make-hook 1)) (define rc-file-location (string-append (passwd:dir (getpw (getuid))) "/.guilewmrc")) (define-public (wm-init!) "Connect to a running X server and begin listening for events" (set! wm-display (x-open-display! wm-display-string)) (let ((wm-root (x-root-window wm-display))) (x-select-input! wm-root (logior ButtonPressMask ExposureMask KeyPressMask)) (wm-event-hook-refresh) (if (file-exists? rc-file-location) (load rc-file-location)) (dynamic-wind (lambda () (x-flush! wm-display)) (lambda () (x-event-loop! wm-display wm-event-hook)) (lambda () (x-close-display! wm-display))))) (define-public (wm-event-hook-refresh) "Refresh the event hook with the hooks listed in wm-event-hooks" (reset-hook! wm-event-hook) (for-each (lambda (hook) (add-hook! wm-event-hook hook)) wm-event-hooks)) (define-public (wm-shell-command command) "Execute COMMAND in a shell" (if (= (primitive-fork) 0) (let ((env (cons (format #f "DISPLAY=~a.~a" wm-display-string (x-screen-number-of-screen (x-screen-of-display wm-display))) (environ)))) (execle "/bin/sh" env "/bin/sh" "-c" command)))) ;; guile-xlib doesn't have support for keysyms yet, so I just use raw ;; keycodes here (define default-key-map `((24 . ,(lambda (event) (x-event-loop-quit! (x-event:button event)))) (26 ,wm-shell-command "emacs") (28 ,wm-shell-command "xterm"))) (define (mapped-key-handler map) "Return a key handler that maps keycodes to commands" (lambda (event) (if (= (x-event:type event) KeyPress) (let ((command (assq-ref map (x-event:keycode event)))) (if command (if (list? command) (apply (car command) (cdr command)) (command event))))))) (define-public wm-event-hooks (list (mapped-key-handler default-key-map))) --8<---------------cut here---------------end--------------->8--- You also need a startup script like this: --8<---------------cut here---------------start------------->8--- (use-modules (guile-wm wm)) (wm-init!) --8<---------------cut here---------------end--------------->8--- The fun part is that you can put a line like guile --listen=37147 -L /path/to/module/.../ \ /path/to/startup/script/wm.scm in your .xinitrc or xsession file, and then you can connect to that listening process from Geiser or something like that and hack the wm while it's running. A lot of this is inspired by Stumpwm, a pretty nifty tiling wm written in common lisp that's similarly configurable. I'll put the wm code on github as well as I get more features added. Feedback and suggestions are welcome! Mark Witmer
