more on .stumpwmrc

(in-package :stumpwm)
;;(setf *new-window-preferred-frame* :empty)
(setf *mouse-focus-policy* :sloppy)
;; really messed stuff up check this (set-prefix-key (kbd "F20")) ; F20 = start key i think?

(defcommand windowlist-pull (&optional (fmt *window-format*)) (:rest)
(if (null (group-windows (current-group)))
(message "No Managed Windows")
(let* ((group (current-group))
(window (select-window-from-menu (sort-windows group) fmt)))
(if window
(pull-window window)
(throw 'error :abort)))))
(define-key *root-map* (kbd "C-z") "windowlist-pull")



(defcommand conkeror () () (run-shell-command "conkeror"))
(define-key *root-map* (kbd "c") "conkeror")
(defcommand konsole () () (run-shell-command "konsole"))
(define-key *root-map* (kbd "x") "konsole")
(defcommand emacsa () () (run-shell-command "emacs"))
(define-key *root-map* (kbd "e") "emacsa")
(defcommand iceweasel () () (run-shell-command "iceweasel"))
(define-key *root-map* (kbd "i") "iceweasel")