;; -*- common-lisp -*-

(in-package :stumpwm)

(set-prefix-key (kbd "s-;"))
(or (set-font "terminus-32")
    (set-font "-xos4-terminus-medium-r-normal--32-320-72-72-c-160-iso10646-1"))
(set-focus-color "gray50")
(setf *screen-mode-line-format* "[^B%n^b] %W^>%d")
(setf *mode-line-timeout* 5)
(setf *message-window-gravity* :center)
(setf *input-window-gravity* :center)
(setf *mouse-focus-policy* :click)
(setf *time-modeline-string* "%k:%M")

(define-key *root-map* (kbd ";") "colon")
(define-key *root-map* (kbd "c") "exec st -e /usr/bin/fish")
(define-key *root-map* (kbd "C-c") "exec st -e /usr/bin/fish")
(define-key *root-map* (kbd "s-TAB") "gother")
(define-key *root-map* (kbd "H") "exec slock systemctl hibernate")
(define-key *root-map* (kbd "L") "exec slock systemctl suspend")
(define-key *root-map* (kbd "F") "exec firefox")

(define-key *top-map* (kbd "s-1") "gselect 1")
(define-key *top-map* (kbd "s-2") "gselect 2")
(define-key *top-map* (kbd "s-3") "gselect 3")
(define-key *top-map* (kbd "s-4") "gselect 4")
(define-key *top-map* (kbd "s-5") "gselect 5")
(define-key *top-map* (kbd "s-6") "gselect 6")
(define-key *top-map* (kbd "s-7") "gselect 7")
(define-key *top-map* (kbd "s-8") "gselect 8")
(define-key *top-map* (kbd "s-9") "gselect 9")
(define-key *top-map* (kbd "s-0") "gselect 0")
(define-key *top-map* (kbd "s-!") "gmove 1")
(define-key *top-map* (kbd "s-@") "gmove 2")
(define-key *top-map* (kbd "s-#") "gmove 3")
(define-key *top-map* (kbd "s-$") "gmove 4")
(define-key *top-map* (kbd "s-%") "gmove 5")
(define-key *top-map* (kbd "s-^") "gmove 6")
(define-key *top-map* (kbd "s-&") "gmove 7")
(define-key *top-map* (kbd "s-*") "gmove 8")
(define-key *top-map* (kbd "s-(") "gmove 9")
(define-key *top-map* (kbd "s-)") "gmove 0")

(define-key *top-map* (kbd "s-e") "exec emacsclient -c")
(define-key *top-map* (kbd "s-p") "run-shell-command")
(define-key *top-map* (kbd "s-S-RET") "exec emacsclient -c -e '(vterm)'")

(define-key *top-map* (kbd "s-TAB") "gother")
(define-key *top-map* (kbd "s-h") "move-focus left")
(define-key *top-map* (kbd "s-j") "move-focus down")
(define-key *top-map* (kbd "s-k") "move-focus up")
(define-key *top-map* (kbd "s-l") "move-focus right")
(define-key *top-map* (kbd "s-H") "move-window left")
(define-key *top-map* (kbd "s-J") "move-window down")
(define-key *top-map* (kbd "s-K") "move-window up")
(define-key *top-map* (kbd "s-L") "move-window right")

(define-key *top-map* (kbd "XF86AudioMute") "exec amixer set Master toggle")
(define-key *top-map* (kbd "XF86AudioLowerVolume") "exec amixer set Master 5-")
(define-key *top-map* (kbd "XF86AudioRaiseVolume") "exec amixer set Master 5+")

(when (and (= 1 (group-number (current-group)))
	   (string= "Default" (group-name (current-group))))
  (grename "1")
  (dolist (name '("2" "3" "4" "5" "6" "7" "8" "9"))
    (gnewbg name))
  (let ((widths (mapcar #'head-width (screen-heads (current-screen)))))
    (if (and (= (length widths) 2) (< (car widths) (cadr widths)))
	(mapc #'focus-next-frame (screen-groups (current-screen)))))
  (gnewbg-float "Float"))

(setq *mode-line-background-color* "#455a64")
(setq *mode-line-foreground-color* "#b0bec5")
(set-border-color "#212121")
(set-bg-color "#455a64")
(set-fg-color "#b0bec5")
(setq *colors* '("#212121" "#e57373" "#a5d6a7" "#fff59d" "#90caf9" "#e1bee7" "#80deea" "#fafafa"))
(update-color-map (current-screen))

(let ((scr (current-screen)))
  (dolist (head (screen-heads scr))
    (enable-mode-line scr head t)))

(require :asdf) ; needed to find swank in ~/common-lisp if not using
		; quicklisp
(require :swank)

(defcommand swank () ()
  "Start swank server"
  (swank:create-server :port 4004
                       :style swank:*communication-style*
                       :dont-close t))