Re: sawfish

[Mon <mon@lipetsk.ru>]

>>>>> "SM" == Serge Matveev <sm@cl.spb.ru> writes:

    SM>     Не кинет ли в меня кто-нибудь фаликом .sawfishrc в котором
    SM> бы заменялось app-menu и запускалась хоть какая-нибудь прога
    SM> по некому hot-key (в качестве образца). Честное слово неохото
    SM> с лиспом разбираться из-за такой ерунды :-(((

Это то ? 

====
(setq load-path (cons "~/.sawfish/" load-path))
(setq load-path (cons "/etc/X11/sawfish" load-path))
(setq workspace-names '("XMMS" "Misc" "XEmacs" "Gnus" "Netscape" "other" ))
(require 'ws-num)
(require 'debian-menu)
(setq apps-menu debian-menu)
(add-hook 'enter-workspace-hook ijc-workspace-hook)
(bind-keys global-keymap
	    "C-A-1"  'select-workspace:1
	    "C-A-2"  'select-workspace:2
	    "C-A-3"  'select-workspace:3
	    "C-A-4"  'select-workspace:4
	    "C-A-5"  'select-workspace:5
	    "C-A-6"  'select-workspace:6
	    "C-A-7"  'select-workspace:7
	    "C-A-8"  'select-workspace:8
	    "C-A-9"  'select-workspace:9
            "C-A-Insert" '(system "/usr/X11R6/bin/rxvt-xpm -ls +sb +ip -bg black -cr green -fg white -C -sl 500 -font '-cronyx-courier-bold-r-normal-*-*-100-*-*-m-*-koi8-r' -geometry 80x43+0+0 &")
;            "C-A-Insert" '(system "/usr/X11R6/bin/rxvt-xpm -ls +sb +ip -bg black -cr green -fg white -C -sl 500 -font -cronyx-fixed-bold-r-normal-*-*-120-*-*-c-*-koi8-r -geometry 92x46+0+0 &")
	    "C-A-n"  '(system "navigator &")
	    "C-A-e"  '(system "LANG=C xemacs21 &")
	    "C-A-m"  '(system "tkman")
	    "Pause"  '(system "/usr/bin/X11/xscreensaver-command -lock")) 

-- 
	Mon at moon.mon
Today is Pungenday, the 23rd day of Chaos in the YOLD 3167