(in-package :stumpwm)

(set-font "-dylex-terminal-medium-r-*-*-13-*-*-*-*-*-*-*")

(grename "i")
(gnewbg "ii")
(gnewbg "iii")
(gnewbg "iv")
(gnewbg "v")
(gnewbg "vi")
(gnewbg "vii")
(gnewbg "viii")
(gnewbg-dynamic "ix")

(set-bg-color "#000000")
(set-fg-color "#ffe1e3")
(set-border-color "#3a3f5a")
(set-focus-color "#8197bf")
(set-unfocus-color "#3a3f5a")
(set-msg-border-width 1)

(setf *startup-message* nil
      *window-format* "%t"
      *window-border-style* :thin
      *message-window-padding* 3
      *message-window-y-padding* 3
      *message-window-gravity* :center
      *input-window-gravity* :center
      *input-history-ignore-duplicates* t
      *mouse-focus-policy* :click
      *float-window-border* 1
      *float-window-title-height* 1
      *maxsize-border-width* 1
      *transient-border-width* 1
      *normal-border-width* 1
      *mode-line-position* :top
      *mode-line-pad-x* 3
      *mode-line-pad-y* 3
      *mode-line-background-color* "#000000"
      *mode-line-border-color* "#3a3f5a"
      *mode-line-foreground-color* "#ffe1e3"
      *mode-line-timeout* 60
      *mode-line-border-width* 0
      *time-modeline-string* "%d-%m-%y-%H:%M"
      *screen-mode-line-format*
      (list "all users of windows are suckers^>%d"))

(define-key *top-map* (kbd "s-b") "windowlist")
(define-key *top-map* (kbd "s-c") "kill-window")
(define-key *top-map* (kbd "s-d") "remove-split")
(define-key *top-map* (kbd "s-f") "float-this")
(define-key *top-map* (kbd "s-F") "unfloat-this")
(define-key *top-map* (kbd "s-h") "hsplit")
(define-key *top-map* (kbd "s-Q") "quit")
(define-key *top-map* (kbd "s-R") "restart-soft")
(define-key *top-map* (kbd "s-s") "screenshot")
(define-key *top-map* (kbd "s-t") "fullscreen")
(define-key *top-map* (kbd "s-v") "vsplit")
(define-key *top-map* (kbd "s-x") "exec")
(define-key *top-map* (kbd "s-y") "mode-line")
(define-key *top-map* (kbd "s-Up") "move-focus up")
(define-key *top-map* (kbd "s-Down") "move-focus down")
(define-key *top-map* (kbd "s-Left") "move-focus left")
(define-key *top-map* (kbd "s-Right") "move-focus right")

(dotimes (i 9)
  (let ((val (1+ i)))
    (define-key *top-map*
	(kbd (format nil "s-~d" val))
      (format nil "gselect ~d" val))
    (define-key *top-map*
	(kbd (format nil "s-M-~d" val))
      (format nil "gmove-and-follow ~d" val))))

(defcommand screenshot () ()
	    (run-shell-command "scrot /bagheera/screenshots/Screenshot-$(date +%Y-%m-%d-%H-%M-%S).png"))