Sawfish単独使い倒しスレ

31 ：無名λ式 ：2001/07/18(水) 23:04

>>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を読めばなんでも分かる。

read.cgi ver5.26+ (01/10/21-)