(in-package :stumpwm) (set-prefix-key (kbd "Menu")) (define-key *root-map* (kbd "M") "meta Menu") (define-key *root-map* (kbd "N") "eval (run-commands \"exec pkill -9 xneur\" \"exec xneur &\")") (define-key *root-map* (kbd "M-N") "exec pkill -9 xneur") (define-key *root-map* (kbd "~") "command-mode") (define-key *root-map* (kbd "ESC") "abort") (define-key *root-map* (kbd "C-r") "loadrc") (define-key *root-map* (kbd "O") "other") (define-key *root-map* (kbd "L") "force-redisplay") (define-key *root-map* (kbd "M-c") "exec urxvt") (define-key *root-map* (kbd "C-h") "exec :hour-sleep") (define-key *root-map* (kbd "C-y") "exec :away") (define-key *root-map* (kbd "P") "exec :asleep") (define-key *root-map* (kbd "C-v") "exec ugvim") (define-key *root-map* (kbd "C-M-v") "exec gvim") (define-key *root-map* (kbd "u") "exec uzbl") (define-key *root-map* (kbd "U") "exec uzbl $(xclip -o)") (define-key *root-map* (kbd "M-w") "exec webkit-program-GtkLauncher") (define-key *root-map* (kbd "C-f") "exec urxvt -e zsh -c 'xtitle web-streams; screen -D -RR -S view-web-streams -U view-web-streams'") (define-key *root-map* (kbd "C-M") "exec urxvt -e zsh -c 'xtitle emails; screen -D -RR -S view-emails -U view-emails'") (define-key *root-map* (kbd "C-F") "exec uzbl $(find-related-uri)") (define-key *root-map* (kbd "C-M-f") "exec firefox") (define-key *root-map* (kbd "I") "show-im-status") (define-key *root-map* (kbd "e") "") (define-key *root-map* (kbd "B") "exec brightness") ;(define-key *root-map* (kbd "Menu") "globally-previous") (define-key *root-map* (kbd "F12") "gselect .system") (define-key *root-map* (kbd "F12") "gselect .tag-store") (define-key *root-map* (kbd "DEL") "gselect Default") (define-key *root-map* (kbd "M-F11") "pull+push+renumber t") (define-key *root-map* (kbd "F1") "ftg-set-tags sh") (define-key *root-map* (kbd "F2") "eval (progn (ftg-set-tags \"im\") (number-by-tags))") (define-key *root-map* (kbd "F3") "ftg-set-tags tb") (define-key *root-map* (kbd "F4") "ftg-set-tags heavy-browser") (define-key *root-map* (kbd "F5") "ftg-set-tags light-browser") (define-key *root-map* (kbd "F6") "ftg-set-tags view mplayer xine") (define-key *root-map* (kbd "F7") "ftg-set-tags vim gvim limp editor") (define-key *root-map* (kbd "F8") "ftg-set-tags ssh") (define-key *root-map* (kbd "F9") "ftg-set-tags root") (define-key *root-map* (kbd "M-F1") "ftg-set-tags games") (define-key *root-map* (kbd "M-F2") "ftg-set-tags monitor") (define-key *root-map* (kbd "M-F3") "ftg-set-tags p2p") (define-key *root-map* (kbd "M-F4") "lazarus-layout") (define-key *root-map* (kbd "M-F5") "ftg-set-tags qemu") (define-key *root-map* (kbd "M-F6") "gimp-layout") (define-key *root-map* (kbd "M-F7") "dia-layout") (define-key *root-map* (kbd "XF86_Switch_VT_1") "pull-tag sh") (define-key *root-map* (kbd "XF86_Switch_VT_2") "pull-tag im") (define-key *root-map* (kbd "XF86_Switch_VT_3") "pull-tag tb") (define-key *root-map* (kbd "XF86_Switch_VT_4") "pull-tag ff") (define-key *root-map* (kbd "XF86_Switch_VT_5") "pull-tag light-browser") (define-key *root-map* (kbd "XF86_Switch_VT_6") "pull-tag view mplayer xine") (define-key *root-map* (kbd "XF86_Switch_VT_7") "pull-tag vim gvim editor") (define-key *root-map* (kbd "XF86_Switch_VT_8") "pull-tag ssh") (define-key *root-map* (kbd "XF86_Switch_VT_9") "pull-tag root") (define-key *root-map* (kbd "M-XF86_Switch_VT_1") "pull-tag games") (define-key *root-map* (kbd "M-XF86_Switch_VT_2") "pull-tag monitor") (define-key *root-map* (kbd "M-XF86_Switch_VT_3") "pull-tag p2p") ;(define-key *root-map* (kbd "S-M-F4") "lazarus-layout") (define-key *root-map* (kbd "M-XF86_Switch_VT_5") "pull-tag qemu") ;(define-key *root-map* (kbd "S-M-F6") "gimp-layout") ;(define-key *root-map* (kbd "S-M-F7") "dia-layout") (define-key *root-map* (kbd "M-1") "select-window-by-number 11") (define-key *root-map* (kbd "M-2") "select-window-by-number 12") (define-key *root-map* (kbd "M-3") "select-window-by-number 13") (define-key *root-map* (kbd "M-4") "select-window-by-number 14") (define-key *root-map* (kbd "M-5") "select-window-by-number 15") (define-key *root-map* (kbd "M-6") "select-window-by-number 16") (define-key *root-map* (kbd "M-7") "select-window-by-number 17") (define-key *root-map* (kbd "M-8") "select-window-by-number 18") (define-key *root-map* (kbd "M-9") "select-window-by-number 19") (define-key *root-map* (kbd "M-0") "select-window-by-number 10") (define-key *root-map* (kbd "N") "repack-window-numbers") (define-key *root-map* (kbd "N") "number-by-tags") (define-key *root-map* (kbd "T") "ftg-set-tags") (define-key *root-map* (kbd "C-T") "tag-window") (define-key *root-map* (kbd "C-M-t") "window-tags") (define-key *root-map* (kbd "C-M-T") "pull-tag") (define-key *root-map* (kbd "s-t") "ftg-mark-windows") (define-key *root-map* (kbd "x") "push-window") (define-key *root-map* (kbd "d") "dead-windows-cleanup") (define-key *root-map* (kbd "D") "default-tags") (define-key *root-map* (kbd "V") "tag-visible") (define-key *root-map* (kbd "/") "raise-short-tag") (define-key *root-map* (kbd "M-/") "raise-tag") (define-key *root-map* (kbd ".") "all-tags") (define-key *root-map* (kbd "C-.") "scrollable-window-tag-list") (define-key *root-map* (kbd "C-s") "ftg-set-tag-re") (define-key *root-map* (kbd "C-S") "ftg-add-tag-re") (define-key *top-map* (kbd "H-Right") "move-focus right") (define-key *top-map* (kbd "H-Left") "move-focus left") (define-key *top-map* (kbd "H-Up") "move-focus up") (define-key *top-map* (kbd "H-Down") "move-focus down") (define-key *root-map* (kbd "s-Left") "move-windows-dir Left") (define-key *root-map* (kbd "s-Right") "move-windows-dir Right") (define-key *root-map* (kbd "s-Up") "move-windows-dir Up") (define-key *root-map* (kbd "s-Down") "move-windows-dir Down") (define-key *root-map* (kbd "H-F1") "frame-push-pull-tags sh") (define-key *root-map* (kbd "H-F2") "frame-push-pull-tags im") (define-key *root-map* (kbd "H-F3") "frame-push-pull-tags tb") (define-key *root-map* (kbd "H-F4") "frame-push-pull-tags heavy-browser") (define-key *root-map* (kbd "H-F5") "frame-push-pull-tags light-browser") (define-key *root-map* (kbd "H-F6") "frame-push-pull-tags view mplayer xine") (define-key *root-map* (kbd "H-F7") "frame-push-pull-tag vim gvim limp editor") (define-key *root-map* (kbd "H-F8") "frame-push-pull-tag ssh") (define-key *root-map* (kbd "H-F9") "frame-push-pull-tag root") (define-key *root-map* (kbd "H-M-F1") "frame-push-pull-tag games") (define-key *root-map* (kbd "H-M-F2") "frame-push-pull-tag monitor") (define-key *root-map* (kbd "H-M-F3") "frame-push-pull-tag p2p") (define-key *root-map* (kbd "H-M-F5") "frame-push-pull-tag qemu") (define-key *root-map* (kbd "H-M-F6") "frame-push-pull-tag gimp") (define-key *root-map* (kbd "H-M-F7") "frame-push-pull-tag dia") (define-key *root-map* (kbd "SPC") "ftg-next-window") (define-key *root-map* (kbd "M-g") "set-frame-group") (define-key *root-map* (kbd "C-Q") "only") (define-key *root-map* (kbd "Q") "ftg-only") (define-key *root-map* (kbd "M-f") "focus-frame-by-tag-re") (define-key *root-map* (kbd "M-b") "ratcenter")