;; Iceweasel
(bind-keys global-keymap
"Super-5" `(jump-or-exec "Iceweasel$"
,(lambda ()
(display-close-message "Start Iceweasel web browser..." alert-msg-time alert-msg-attrib)
(system "iceweasel &"))
,(lambda (wind)
(display-window wind))))
;; Icedove
(bind-keys global-keymap
"Super-6" `(jump-or-exec "(Mozilla Thunderbird)|(Icedove)"
,(lambda ()
(display-close-message "Start Icedove mail and news..." alert-msg-time alert-msg-attrib)
(system "icedove &"))
,(lambda (wind)
(display-window wind))))
;; LibreOffice
(bind-keys global-keymap
"Super-7" `(jump-or-exec "LibreOffice"
,(lambda ()
(display-close-message "Start LibreOffice..." alert-msg-time alert-msg-attrib)
(system "libreoffice &"))
,(lambda (wind)
(display-window wind))))
;; Gwenview
(bind-keys global-keymap
"Super-8" `(jump-or-exec "Gwenview$"
,(lambda ()
(display-close-message "Start Gwenview image viewer..." alert-msg-time alert-msg-attrib)
(system "gwenview &"))
,(lambda (wind)
(display-window wind))))
;; Audacious
(bind-keys global-keymap
"Super-9" `(jump-or-exec "Audacious"
,(lambda ()
(display-close-message "Start Audacious music player..." alert-msg-time alert-msg-attrib)
(system "audacious &"))
,(lambda (wind)
(display-window wind))))
;; TV
(bind-keys global-keymap
"Super-0" `(jump-or-exec "MPlayer TV"
,(lambda ()
(display-close-message "Start TV..." alert-msg-time alert-msg-attrib)
(system "tv_nomen.sh &"))
,(lambda (wind)
(display-window wind))))
2. 在进入X Window时自动加载指定程序，相当于Windows中的自启动项目。目前我加载的程序有：
ibus输入法；
网络管理器wicd-gtk；
允许触摸板点击脚本enable_tapbutton.sh（仅在我的ZaReason Ultralap 440笔记本电脑上有效）；
xscreensaver屏幕保护程序，其中包含了非常酷的屏保特效，我目前使用的是3D骇客帝国；
类似于Windows的底部工具栏：perlpanel
shutter：截屏工具
amor：屏幕宠物玩具
workrave：定时休息、活动提醒工具，用于缓解视疲劳，身体疲劳
xclock：桌面模拟或数字时钟
knotes：桌面即时贴
相关配置代码如下：
;; Define startup programs
(setq startup-programs
'(
;; Start ibus input method: -x option starts ibus XIM server, -r option
;; replaces existing daemon. In addition, the following environment
;; variables should be set, otherwise, KDE programs cannot use ibus input
;; method.
("ibus-daemon" "-xrd")
;; Start wicd network manager
("wicd-gtk" "-t")
;; Enable touchpad tapping
("enable_tapbutton.sh")
;; Start screensaver
("xscreensaver" "-no-splash")
;; Start panel
("perlpanel")
;; Start Shutter for taking snapshots
("shutter")
;; Start amor toy: white kitty
("amor")
;; Start xclock
("xclock")
;; Start knotes
("knotes")
;; Start workrave
("workrave")))
;; Execute startup programs one by one
(mapc (lambda (program)
(apply start-process (make-process standard-output) program))
startup-programs)