30 lines
1.4 KiB
Plaintext
30 lines
1.4 KiB
Plaintext
(in-package :stumpwm)
|
|
(setf *window-border-style* :thin)
|
|
|
|
(defun undefine-keys (a-map par-list) (mapcar #'(lambda (x) (undefine-key a-map x)) (mapcar #'kbd par-list)))
|
|
|
|
(undefine-keys *root-map* '("a" "e" "g" "C-e" "C-b" "C-a" "C-m" "M-n" "M-p" "C-w" "K" "M-Right" "M-Left" "M-Up" "M-Down" "F4" "F5" "F6" "F7" "F8" "F9" "F10"))
|
|
(undefine-keys *tile-group-root-map* '("space" "C-space"))
|
|
|
|
(defun sys-show-time ()
|
|
(defparameter mystr (run-shell-command "date" t))
|
|
(echo-string (current-screen) mystr))
|
|
(defcommand showtime () () (sys-show-time))
|
|
|
|
(define-key *root-map* (kbd "a") "showtime")
|
|
(define-key *root-map* (kbd "C-c") "exec qutebrowser --backend webengine")
|
|
(define-key *root-map* (kbd "c") "exec urxvt -bg 'black' -fg 'white' +sb -sl 65535 -b 0 -w 0 -letsp -1 -fn \"xft:bitstream vera sans mono:size=8:antialias=True,xft:unifont\"")
|
|
(define-key *root-map* (kbd "C-k") "kill")
|
|
(define-key *root-map* (kbd "q") "command-mode")
|
|
|
|
; ;;groups to list groups/vgroups has other stuff
|
|
; ;(define-key *root-map* (kbd "H-g") "gnew")
|
|
; ;(define-key *root-map* (kbd "H-n") "gnext")
|
|
; ;(define-key *root-map* (kbd "H-p") "gprev")
|
|
; ;(define-key *root-map* (kbd "H-k") "gkill")
|
|
|
|
(define-key *root-map* (kbd "C-Right") "move-window right")
|
|
(define-key *root-map* (kbd "C-Left") "move-window left")
|
|
(define-key *root-map* (kbd "C-Up") "move-window up")
|
|
(define-key *root-map* (kbd "C-Down") "move-window down")
|