(in-package :stumpwm)

(set-prefix-key (kbd "Menu"))
(setf *STARTUP-MESSAGE* NIL)


(setf stumpwm:*screen-mode-line-format*
   '(:eval (run-shell-command "/vault/script/stumpwm_notificator.scm" t))
)
(stumpwm:toggle-mode-line (stumpwm:current-screen)
                          (stumpwm:current-head))

(defcommand
   jj-toggle-mode-line
   ()
   ()
    "Toggle the mode line."
    (toggle-mode-line (current-screen) (current-head))
)

;; navigation bindings
(define-key
   *root-map*
   (kbd "SPC")
   "windowlist"
)

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

(define-key
   *root-map*
   (kbd "XF86Explorer")
   "quit"
)

(define-key
   *root-map*
   (kbd "Delete")
   "pull-hidden-previous"
)

(define-key
   *root-map*
   (kbd "XF86Back")
   "pull-hidden-previous"
)

(define-key
   *root-map*
   (kbd "XF86Forward")
   "pull-hidden-next"
)

(define-key
   *root-map*
   (kbd "SunPageUp")
   "pull-hidden-previous"
)

(define-key
   *root-map*
   (kbd "SunPageDown")
   "pull-hidden-next"
)

(define-key
   *root-map*
   (kbd "S-XF86Back")
   "gprev"
)

(define-key
   *root-map*
   (kbd "S-Delete")
   "gprev"
)

(define-key
   *root-map*
   (kbd "S-XF86Forward")
   "gnext"
)

(define-key
   *root-map*
   (kbd "S-SunPageUp")
   "gprev"
)

(define-key
   *root-map*
   (kbd "S-SunPageDown")
   "gnext"
)

(define-key
   *root-map*
   (kbd "M-XF86Back")
   "gprev-with-window"
)

(define-key
   *root-map*
   (kbd "M-XF86Forward")
   "gnext-with-window"
)

(define-key
   *root-map*
   (kbd "M-SunPageUp")
   "gprev-with-window"
)

(define-key
   *root-map*
   (kbd "M-SunPageDown")
   "gnext-with-window"
)

(define-key
   *root-map*
   (kbd "M-Delete")
   "gnext-with-window"
)

(define-key
   *root-map*
   (kbd "9")
   "delete"
)

(define-key
   *root-map*
   (kbd "C-9")
   "kill"
)


;; window control bindings

(define-key
   *root-map*
   (kbd "C-Up")
   "move-window up"
)

(define-key
   *root-map*
   (kbd "C-Left")
   "move-window left"
)

(define-key
   *root-map*
   (kbd "C-End")
   "restart-hard"
)

(define-key
   *root-map*
   (kbd "quoteleft")
   "gnew"
)

(define-key
   *root-map*
   (kbd "~")
   "gkill"
)

(define-key
   *root-map*
   (kbd "C-Down")
   "move-window down"
)

;; Somehow, "Down" starts registering as "RET" on some cases.
(define-key
   *root-map*
   (kbd "RET")
   "move-focus down"
)

(define-key
   *root-map*
   (kbd "C-2")
   "move-window down"
)

(define-key
   *root-map*
   (kbd "C-Right")
   "move-window right"
)

(define-key
   *root-map*
   (kbd "C-h")
   "move-window left"
)

(define-key
   *root-map*
   (kbd "C-j")
   "move-window down"
)

(define-key
   *root-map*
   (kbd "C-k")
   "move-window up"
)

(define-key
   *root-map*
   (kbd "C-l")
   "move-window right"
)

(define-key
   *root-map*
   (kbd "L")
   "redisplay"
)

(define-key
   *root-map*
   (kbd "h")
   "move-focus left"
)

(define-key
   *root-map*
   (kbd "j")
   "move-focus down"
)

(define-key
   *root-map*
   (kbd "k")
   "move-focus up"
)

(define-key
   *root-map*
   (kbd "l")
   "move-focus right"
)

(setf *window-border-style*
   :thin)

(setf *input-window-gravity*
   :top-right)

(setf *message-window-gravity*
   :top-left)

;; program shortcuts
(define-key *root-map*
   (kbd "t")
   "exec urxvtc")

(define-key *root-map*
   (kbd "T")
   "exec urxvtc -xrm ~/.Xdefaults_projector")

(define-key *root-map*
   (kbd "c")
   "exec firefox")

(define-key *root-map*
   (kbd "q")
   "exec firefox")

(define-key *root-map*
   (kbd "N")
   "exec netlogo")

(define-key *root-map*
   (kbd "M-N")
   "exec netlogo-3d")

(define-key *root-map*
   (kbd "C")
   "exec celestia")

(define-key *root-map*
   (kbd "M-g")
   "exec gimp")

;; Communication

;; Tools
(define-key *root-map*
   (kbd "@")
   "exec arandr")

(define-key *root-map*
   (kbd "p")
   "exec urxvtc -e htop")

(define-key *root-map*
   (kbd "b")
   "eval (run-shell-command \"acpi\" t)")

(define-key *root-map*
   (kbd "SunPrint_Screen")
   "exec import -window root /tmp/screenshot.png")

(define-key *root-map*
   (kbd "F4")
   "exec redshift -x")

(define-key *root-map*
   (kbd "F5")
   "exec redshift -O 2500")

(define-key *root-map*
   (kbd "XF86Back")
   "exec redshift -x"
)

(define-key *root-map*
   (kbd "XF86Forward")
   "exec redshift -O 2500"
)

;; Audio stuff
(define-key *root-map*
   (kbd "F9")
   "exec urxvtc -e mocp")

(define-key *root-map*
   (kbd "F10")
   "exec mocp --previous")

(define-key *root-map*
   (kbd "F11")
   "exec mocp --next")

(define-key *root-map*
   (kbd "F12")
   "exec mocp --exit")

(define-key *root-map*
   (kbd "XF86AudioMute")
   "exec amixer -c 0 set Master toggle")

(define-key *top-map*
   (kbd "M-Right")
   "exec amixer -q set Master 5%+"
)

(define-key *top-map*
   (kbd "M-Left")
   "exec amixer -q set Master 5%-"
)

(define-key *top-map*
   (kbd "XF86AudioLowerVolume")
   "exec amixer -q set Master 5%-"
)

(define-key *top-map*
   (kbd "XF86AudioRaiseVolume")
   "exec amixer -q set Master 5%+"
)

;; do some goodies at startup
(run-shell-command "/vault/script/nsensfel_startup.sh")