;; -*-lisp-*-
;;
;; File: ~/.stumpwmrc
;; Autor: kryptart <kryptart@baron-net.eu>
;; Created: Sat-17-Sep 23:47:49 +0200 (CEST) 2011
;; Last modified: Fri-06-Jan 10:05:01 +0100 (CET) 2012
;;
;;
;; ---------------------------------------------------------------------
;; Module
;;
   (load "/home/ivo/.stumpwm/lisp/start-menu.lisp")
;;
;; ---------------------------------------------------------------------
;; DeFun
;;
   
;;
;; ---------------------------------------------------------------------
;; Keys
;;
   (define-key *root-map* (kbd "e") "exec gvim")
;; 
;; ---------------------------------------------------------------------
;; Mode Line
;;
   (setf *mode-line-screen-position* :top
         *mode-line-border-width* 2
         *mode-line-background-color* "Gray30"
         *mode-line-foreground-color* "Green"
         *mode-line-border-color*     "Blue")
;;
;;   (setf *screen-mode-line-format*
;;         (list '(:eval
;;	         ; show Time, Uptime, Users an Load
;;		 (run-shell-command "uptime|tr -d [:cntrl:]" t))
;;	         " # "
;;		 ;; show Hostname
;;	         (run-shell-command "uname '-n'|tr -d [:cntrl:]" t)
;;		 " # "
;;		 ;; show current Head and Groups
;;		 "[ %h / %g ]"))
;;
;; Turn on/off the mode line
;;
   (defcommand jj-toggle-mode-line () ()
    "Toggle the mode line in StumpWM."
    (toggle-mode-line (current-screen) (current-head)))
   (define-key *root-map* (kbd "q") "jj-toggle-mode-line")
;;
;; ---------------------------------------------------------------------
;; Data-Dir
;;
   (setf stumpwm:*data-dir* "~/.stumpwm/stumpwm.d/")
   (data-dir-file "data-dir-file")
;;
;; ---------------------------------------------------------------------
;; Bar
;;
   (setf *input-window-gravity* :center
         *message-window-gravity* :center
	 *message-window-padding* 10)
;;
   (set-msg-border-width 3)
   (set-border-color "Red")
   (set-bg-color "Yellow")
   (set-fg-color "Black")
;;
;; ---------------------------------------------------------------------
;; Window Appearance
;;
   (setf *maxsize-border-width* 2
	 *normal-border-width* 2
	 *window-border-style* :thin
	 *transient-border-width* 3)

   (set-focus-color "Yellow")
   (set-unfocus-color "Gray30")
;;
;; ---------------------------------------------------------------------
;;