.stumpwmrc

   1 ;; -*- lisp -*-
   2 (in-package :stumpwm)
   3
   4 ;; Load swank.
   5 ;; *prefix-key* ; swank will kick this off
   6 ;;(load "/usr/share/common-lisp/source/slime/swank-loader.lisp")
   7 ;;(swank-loader:init)
   8 ;;(defcommand swank () ()
   9 ;;          (swank:create-server :port 4005
  10 ;;                               :style swank:*communication-style*
  11 ;;                               :dont-close t)
  12 ;;          (echo-string (cxrrent-screen)
  13 ;;                       "Starting swank. M-x slime-connect RET RET, then (in-package stumpwm)."))
  14 ;;(swank)
  15
  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)
  20
  21 (setf *mode-line-foreground-color* "palegreen3")
  22 (setf *mode-line-background-color* "black")
  23 ;;(setf *screen-mode-line-format* "%h")
  24
  25
  26 (defcommand firefox () ()
  27   "run firefox"
  28   (run-or-raise "icecat" '(:class "IceCat")))
  29
  30 (define-key *root-map* (kbd "M-f") "firefox")
  31
  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")