;; -*-lisp-*-
(in-package :stumpwm)

(run-shell-command "xsetroot -cursor_name left_ptr -solid black -name root-window")

(defvar *battery-status-command* "acpi -b | awk -F '[ ,]' '{printf \"%s%s\", $3, $5}' | sed s/Discharging/\-/ | sed s/Unknown// | sed s/Full//  |  sed s/Charging/+/")
(defvar *vol-status-command* "amixer get Master | grep '[[:digit:]]\\+%' -o | tr -d '\\n'")

(setf *screen-mode-line-format*
      (list "[^B%n^b] %W^>"
	    '(:eval (run-shell-command *battery-status-command* t))
	    " | Vol. "
	    '(:eval (run-shell-command *vol-status-command* t))
	    " | %d"))

(setf *window-format* "%m%n%s%c")

(setf *mode-line-timeout* 1)

(toggle-mode-line (current-screen)
		  (current-head))

(defcommand terminator () ()
	    (run-or-raise "terminator" '(:instance "terminator")))
(define-key *root-map* (kbd "c") "Terminator")

(setf *mouse-focus-policy* :click)

;; Volume control
(define-key *top-map* (kbd "XF86AudioLowerVolume") "exec amixer set Master 5%-")
(define-key *top-map* (kbd "XF86AudioRaiseVolume") "exec amixer set Master 5%+")

;; Mute
(define-key *top-map* (kbd "XF86AudioMute") "exec amixer set Master toggle")

(defcommand google (search) ((:string "Google: "))
	    (let ((prefix "chromium http://www.google.com/search?q=")
		  (search (substitute #\+ #\Space search)))
	      (run-shell-command (concatenate 'string prefix search)))) 

(define-key *root-map* (kbd "b") "google")