;; -*-Lisp-*-
;; mode-line
(setf *window-format* "%m%n%s%c")
(setf *screen-mode-line-format* (list "[^B%n^b] %W^>%d"))
(setf *time-modeline-string* "%A %Y-%m-%e %k:%M")
(setf *mode-line-background-color* "#000000")
(setf *mode-line-foreground-color* "#FFFFFF")
(setf *mode-line-position* :top)
(setf *mode-line-border-width* 1)
(setf *mode-line-border-color* "#B2B2B2")
(setf *mode-line-timeout* 30)
(toggle-mode-line (current-screen)
		  (current-head))
(define-key *root-map* (kbd "SPC") "mode-line")
;; groups
(grename "alpha")
(gnewbg "beta")
(gnewbg "gamma")
(define-key *root-map* (kbd ">") "gnext-with-window")
(define-key *root-map* (kbd "<") "gprev-with-window")
;; frames
(define-key *root-map* (kbd "C-o") "fprev")
(define-key *root-map* (kbd "C-TAB") "fprev")
;; windows
(setf *window-border-style* :thin)
(setf *ignore-wm-inc-hints* NIL)
(set-win-bg-color "black")
(set-focus-color "white")
;; programs
(define-key *root-map* (kbd "C-c") "exec urxvt")
(define-key *root-map* (kbd "C-q") "qutebrowser")
(define-key *root-map* (kbd "C-e") "emacs")
;; commands
(defcommand qutebrowser () ()
  "run qutebrowser"
  (run-or-raise "qutebrowser" '(:instance "qutebrowser")))