| [Sawfish] Why does my configure file report Warning ? |
[ Thread Index |
Date Index
| More lists.tuxfamily.org/sawfish Archives
]
- To: sawfish <sawfish@xxxxxxxxxxxxxxxxxxx>
- Subject: [Sawfish] Why does my configure file report Warning ?
- From: z_axis <z_axis@xxxxxxx>
- Date: Sat, 26 Nov 2011 09:15:24 +0800
- Dkim-signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=163.com; s=s110527; h=Received:Content-Type:Date:To:Subject:MIME-Version: Content-Transfer-Encoding:From:Organization:Message-ID: User-Agent; bh=mSov5qTAWW/2L1xoAn/3v/OP9Ez2cYCq3scycyeLpbk=; b=X EQB6s6kYl/vf8Gj4SyPvm13ulBkJuUJ3fxz75EpEuzJ0LpgZqx4ePmXP7tr41QAy /ifUsyQmAqPazZTL94bO6+CIus5vB59o5Jpi/RGCxyCky3I9iiOEaCA0MLnDpsuv DPq4173u+JDwr9SJG3sgOAEHkvvUUgCpHorMS88zR0=
- Organization: zsoft
cat ~/.sawfish/my-init.jl
(setq load-path (cons "~/.sawfish/lisp" load-path))
(setq workspace-names '("Work"))
(setq apps-menu-autogen nil)
(setq decorate-transients t)
(require 'sawfish.wm.menus)
(setq restart-menu
'(("ok" (system "sudo /sbin/shutdown -r now &"))
("cancel" (no-operation))))
(setq logout-menu
'(("ok" (quit)) ("cancel" (no-operation))))
(setq quit-menu
'(("ok" (system "sudo /sbin/shutdown -p now &"))
("cancel" (no-operation))))
(setq main-menu
'(("WindowsXP" (system "VBoxManage startvm winxp &"))
("Terminal" (system "urxvt &"))
("Web" (system "opera &"))
()
("Go" (system "wine \"c:/Program Files/eweiqi/LiveBaduk.exe\"
&"))
()
("Picture" (system "gqview &"))
("PDF" (system "evince &"))
()
("Run" (system "gmrun &"))
()
("Logout" (popup-menu logout-menu))
("Reboot" (popup-menu restart-menu))
("Shutdown" (popup-menu quit-menu))))
(bind-keys global-keymap "Super-p" '(popup-menu main-menu))
(bind-keys global-keymap "Super-F2" '(system "gmrun &"))
(bind-keys global-keymap "Super-F3" '(maximize-window-toggle
(current-event-window)))
(bind-keys global-keymap "Super-F4" '(delete-window
(current-event-window)))
(bind-keys global-keymap "Super-F12" '(system "sudo /sbin/shutdown -p now
&"))
(bind-keys root-window-keymap "button2-click" '(popup-root-menu))
(bind-keys root-window-keymap "Button3-Click" '(popup-menu main-menu))
(define startup-programs
'(("fcitx")("urxvt")))
(mapc (lambda (program)
(apply start-process (make-process standard-output) program))
startup-programs)
(add-hook 'before-exit-hook
(lambda () (mapc stop-process (active-processes))))
(require 'sawfish.wm.commands.jump-or-exec)
(bind-keys global-keymap "Super-t"
`(jump-or-exec "rxvt"
,(lambda () (system "urxvt &"))
(bind-keys root-window-keymap "button2-click" '(popup-root-menu))
(bind-keys root-window-keymap "Button3-Click" '(popup-menu main-menu))
(define startup-programs
'(("fcitx")("urxvt")))
(mapc (lambda (program)
(apply start-process (make-process standard-output) program))
startup-programs)
(add-hook 'before-exit-hook
(lambda () (mapc stop-process (active-processes))))
(require 'sawfish.wm.commands.jump-or-exec)
(bind-keys global-keymap "Super-t"
`(jump-or-exec "rxvt"
,(lambda () (system "urxvt &"))
,(lambda (wind) (display-window wind))))
(bind-keys global-keymap "Super-w"
`(jump-or-exec "Opera"
,(lambda () (system "opera &"))
,(lambda (wind) (display-window wind))))
(bind-keys global-keymap "Super-1" '(activate-workspace 1))
(bind-keys global-keymap "Super-2" '(activate-workspace 2))
(bind-keys global-keymap "Super-3" '(activate-workspace 3))
sawfisawfish --batch -l compiler -f compile-batch my-init.jl
my-init.jl:36: At top-level:
my-init.jl:36: warning: referencing undeclared free variable `restart-menu'
my-init.jl:40: warning: referencing undeclared free variable `logout-menu'
my-init.jl:43: warning: referencing undeclared free variable `quit-menu'
my-init.jl:52: warning: referencing undeclared free variable `main-menu'
It works but i want to know why sawfish warns me ?
Sincerely!
---
--
Sawfish ML