;; -*- lisp -*-

(stumpwm:set-prefix-key (stumpwm:kbd "C-z"))

;; Let's stick to the standard for a while, and try to understand how
;; it actually works..



;; Look in stumpwm/bindings.lisp

;; (setf stumpwm:*top-map*
;;       (let ((m (stumpwm:make-sparse-keymap)))
;;         (stumpwm:define-key m (stumpwm:kbd "C-z") 'stumpwm:*root-map*)
;;         m))

;; (setf stumpwm:*root-map*
;;       (let ((m (stumpwm:make-sparse-keymap)))
;;         (stumpwm:define-key m (stumpwm:kbd "z") "meta C-z")

;;         (stumpwm:define-key m (stumpwm:kbd "C-z") "other")
;;         (stumpwm:define-key m (stumpwm:kbd "C-o") "only")
;;         (stumpwm:define-key m (stumpwm:kbd "C-q") "delete")
;;         (stumpwm:define-key m (stumpwm:kbd "C-n") "pull-hidden-next")
;;         (stumpwm:define-key m (stumpwm:kbd "C-h") "help")
;;         (stumpwm:define-key m (stumpwm:kbd "C-x") "exec term")
;;         (stumpwm:define-key m (stumpwm:kbd "C-i") "hsplit")

;;         (stumpwm:define-key m (stumpwm:kbd "C-;") "colon")

;;         (stumpwm:define-key m (stumpwm:kbd "r") "loadrc")
;;         (stumpwm:define-key m (stumpwm:kbd "m") "exec media")

;;         (stumpwm:define-key m (stumpwm:kbd "C-l") "windowlist")

;;         (stumpwm:define-key m (stumpwm:kbd "C-0") "pull 0")
;;         (stumpwm:define-key m (stumpwm:kbd "C-1") "pull 1")
;;         (stumpwm:define-key m (stumpwm:kbd "C-2") "pull 2")
;;         (stumpwm:define-key m (stumpwm:kbd "C-3") "pull 3")
;;         (stumpwm:define-key m (stumpwm:kbd "C-quoteleft") "windows")

;;         m))




;; Why is this not external?
;(setf stumpwm:*menu-map*
;      (let ((m (stumpwm:make-sparse-keymap)))
;        (stumpwm:define-key m (stumpwm:kbd "k") 'stumpwm:menu-up)
;        (stumpwm:define-key m (stumpwm:kbd "j") 'stumpwm:menu-down)
;        (stumpwm:define-key m (stumpwm:kbd "ESC") 'stumpwm:menu-abort)
;        (stumpwm:define-key m (stumpwm:kbd "SPC") 'stumpwm:menu-finish)
;        m))