my .stumpwmrc

.stumpwmrc.lisp

;-*-Lisp-*-
(in-package :stumpwm-user)

;;壁紙を設定
(run-shell-command "feh --bg-scale ~/Documents/minecraft.jpg")

;;;よく使うコマンド/キーバインドの設定
(set-prefix-key (kbd "C-q"))

(defcommand opera () ()
  "run or raise opera."
  (run-or-raise "opera" '(:class "Opera")))

(defcommand chromium () ()
  "run or raise chromium"
  (run-or-raise "chromium" '(:class "Chromium")))

(define-key *root-map* (kbd "b") "opera")
(define-key *root-map* (kbd "d") "delete-window")

(defcommand mlterm () ()
  "run mlterm"
  (run-shell-command "mlterm"))

(defcommand rxvt () ()
  "run urxvt"
  (run-shell-command "urxvtc"))

(defcommand shutdown () ()
  "shutdown"
  (run-shell-command "sudo /sbin/shutdown -h now"))

(define-key *root-map* (kbd "c") "rxvt")

(define-key *root-map* (kbd "m") "mode-line")

;;;モードラインの設定
(load-module "battery-portable")
(setq *mode-line-position* :top)
(setq *mode-line-timeout* 60)
(setf stumpwm:*screen-mode-line-format*
      (list  '(:eval (multiple-value-bind
			   (second minute hour date month year day-of-week dst-p tz) (get-decoded-time)
		       (format nil "~2,'0d:~2,'0d" hour minute)))
	     " | %B | %W"))
;;モードラインの表示
(toggle-mode-line (current-screen) (current-head))

;;;ウインドウの設定
(setq *window-border-style* :thick)

;;;色の設定
(set-focus-color "orangered")
(setq  *mode-line-foreground-color* "green")

;;;フォントの設定
(set-font "-misc-sazanami gothic-medium-r-normal--12-0-0-0-p-0-iso10646-1")

;;;slimeで接続できるようにする
(load "/home/zeptometer/.emacs.d/slime/swank-loader.lisp")
(swank-loader:init)

(defcommand swank () ()
  (setf stumpwm:*top-level-error-action* :break)
  (swank:create-server :port 4005
		       :style swank:*communication-style*
		       :dont-close t)
  (echo-string (current-screen)
	       "Starting swank. M-x slime-connect RET RET, then (in-package stumpwm)."))

(swank)