Sawfish単独使い倒しスレ

Sawfishの壁紙、ワークスペース毎に変えるLispを紹介してくれい。
１度見たことがあるけど、そのときは難しくてできなかった。

Eterm使ってる俺は、ワークスペース毎にEsetrootを呼び出すlisp欲しい。

elisp 使いで sawfish 使っている人いますか?
sawfish は lisp として興味あるんですが、
emacs 並みに customize できるかどうか知りたい。
自分でどんどん拡張できちゃうようなら移行するかも。

Sawmill lisp repository
http://www.sics.se/~lofgren/sawmill/repository.html

誉めて

sawfish aprycation menu custamize help

>>26
感謝！遅レスですまぬ。

1.0出てる

ワークスペース毎にEsetrootを呼び出すのって、
たぶんこれだと思うんだけど、イマイチ使い方がわからない、、、
http://www.sics.se/~lofgren/sawmill/13.jl

↑を~/.sawfishrc に書いて、
;(require 'backgrounds)
;(add-hook 'after-initialization-hook set-background-hook)

のコメントアウトを外して、~/.backgroundsディレクトリを作って、、、
う〜ん、うまくいかん。
だれかlispわかる方、アドバイスお願いします。

# list遊びでelisp勉強中だけど、奥が深いね〜

>>30
> http://www.sics.se/~lofgren/sawmill/13.jl

見られないから外しているかも知れないが、

> ワークスペース毎にEsetrootを呼び出すのって、
:
> ;(require 'backgrounds)
> ;(add-hook 'after-initialization-hook set-background-hook)

初期化が終った後に、set-background-hookを呼び出すだけだから、
一回しか実行されないし、set-background-hookって目的にあってるか?

sourceに付いてくるworkspace.jlの(defun select-workspaceを読めば、
最後にenter-workspace-hookがcall-hookされている事が分かる。
hookの引数は、(list current-workspace)の結果だ。

(add-hook 'enter-workspace-hook 'my-set-background)
(defun my-set-background (ws-list)
(interactive "p")
(let ((ws (car ws-list)))
(wsの値にしたがってEsetrootじゃ)))

かな? とにかくeilsp, repはsourceを読めばなんでも分かる。

>>31
見れるようになったみたい。

http://www.sics.se/~lofgren/sawmill/13.jl