5 ;; *prefix-key* ; swank will kick this off
6 ;;(load "/usr/share/common-lisp/source/slime/swank-loader.lisp")
8 ;;(defcommand swank () ()
9 ;; (swank:create-server :port 4005
10 ;; :style swank:*communication-style*
12 ;; (echo-string (cxrrent-screen)
13 ;; "Starting swank. M-x slime-connect RET RET, then (in-package stumpwm)."))
16 ;; prefix key C-. at C-t is used in Emacs
17 (set-prefix-key (kbd "C-."))
18 (setf *mouse-focus-policy* :sloppy) ;; :click, :ignore, :sloppy
19 (setf *timeout-wait* 5)
21 (setf *mode-line-foreground-color* "palegreen3")
22 (setf *mode-line-background-color* "black")
23 ;;(setf *screen-mode-line-format* "%h")
26 (defcommand firefox () ()
28 (run-or-raise "icecat" '(:class "IceCat")))
30 (define-key *root-map* (kbd "M-f") "firefox")
32 (define-key *root-map* (kbd "c") "exec urxvt")
33 (run-shell-command "/usr/bin/stalonetray")
34 (run-shell-command "/usr/bin/nm-applet")
35 (run-shell-command "/usr/bin/fdpowermon")