Hi,
I have this code in ~/.sawfish/rc:
(define-special-variable _init-sequence nil "sawfish has initialized")
(define (spott-init what)
(unless (or
_init-sequence
; wm-spec-window-id
batch-mode)
(let ((first-term (concat xterm-program "-e bash &")))
(case what
(('terminal)
(system first-term))
(t 'unidentified-object)
)
(setq _init-sequence (1+ (or _init-sequence 0))))))
(add-hook 'after-initialization-hook
(lambda () (spott-init 'terminal))
t)
and its meaning shall be: "start an xterm first thing after sawfish
initialization". But it doesn't work, although there are no errors.
What's wrong with it? In "sawfish-client", _init-sequence has the value
1, so I strongly believe spott-init has run.
clemens
