96 lines
3.8 KiB
Plaintext
96 lines
3.8 KiB
Plaintext
;; -*- common-lisp -*-
|
|
|
|
(in-package :stumpwm)
|
|
|
|
(set-prefix-key (kbd "s-;"))
|
|
(or (set-font "terminus-32")
|
|
(set-font "-xos4-terminus-medium-r-normal--32-320-72-72-c-160-iso10646-1"))
|
|
(set-focus-color "gray50")
|
|
(setf *screen-mode-line-format* "[^B%n^b] %W^>%d")
|
|
(setf *mode-line-timeout* 5)
|
|
(setf *message-window-gravity* :center)
|
|
(setf *input-window-gravity* :center)
|
|
(setf *mouse-focus-policy* :click)
|
|
(setf *time-modeline-string* "%k:%M")
|
|
|
|
(define-key *root-map* (kbd ";") "colon")
|
|
(define-key *root-map* (kbd "c") "exec st")
|
|
(define-key *root-map* (kbd "C-c") "exec st")
|
|
(define-key *root-map* (kbd "s-TAB") "gother")
|
|
(define-key *root-map* (kbd "H") "exec systemctl hibernate")
|
|
(define-key *root-map* (kbd "L") "exec systemctl suspend")
|
|
(define-key *root-map* (kbd "F") "exec firefox")
|
|
|
|
(define-key *top-map* (kbd "s-1") "gselect 1")
|
|
(define-key *top-map* (kbd "s-2") "gselect 2")
|
|
(define-key *top-map* (kbd "s-3") "gselect 3")
|
|
(define-key *top-map* (kbd "s-4") "gselect 4")
|
|
(define-key *top-map* (kbd "s-5") "gselect 5")
|
|
(define-key *top-map* (kbd "s-6") "gselect 6")
|
|
(define-key *top-map* (kbd "s-7") "gselect 7")
|
|
(define-key *top-map* (kbd "s-8") "gselect 8")
|
|
(define-key *top-map* (kbd "s-9") "gselect 9")
|
|
(define-key *top-map* (kbd "s-0") "gselect 0")
|
|
(define-key *top-map* (kbd "s-!") "gmove 1")
|
|
(define-key *top-map* (kbd "s-@") "gmove 2")
|
|
(define-key *top-map* (kbd "s-#") "gmove 3")
|
|
(define-key *top-map* (kbd "s-$") "gmove 4")
|
|
(define-key *top-map* (kbd "s-%") "gmove 5")
|
|
(define-key *top-map* (kbd "s-^") "gmove 6")
|
|
(define-key *top-map* (kbd "s-&") "gmove 7")
|
|
(define-key *top-map* (kbd "s-*") "gmove 8")
|
|
(define-key *top-map* (kbd "s-(") "gmove 9")
|
|
(define-key *top-map* (kbd "s-)") "gmove 0")
|
|
|
|
(define-key *top-map* (kbd "s-e") "exec emacsclient -c")
|
|
(define-key *top-map* (kbd "s-p") "run-shell-command")
|
|
(define-key *top-map* (kbd "s-S-RET") "exec emacsclient -c -e '(vterm)'")
|
|
|
|
(define-key *top-map* (kbd "s-TAB") "gother")
|
|
(define-key *top-map* (kbd "s-h") "move-focus left")
|
|
(define-key *top-map* (kbd "s-j") "move-focus down")
|
|
(define-key *top-map* (kbd "s-k") "move-focus up")
|
|
(define-key *top-map* (kbd "s-l") "move-focus right")
|
|
(define-key *top-map* (kbd "s-H") "move-window left")
|
|
(define-key *top-map* (kbd "s-J") "move-window down")
|
|
(define-key *top-map* (kbd "s-K") "move-window up")
|
|
(define-key *top-map* (kbd "s-L") "move-window right")
|
|
|
|
(define-key *top-map* (kbd "XF86AudioMute") "exec amixer set Master toggle")
|
|
(define-key *top-map* (kbd "XF86AudioLowerVolume") "exec amixer set Master 5-")
|
|
(define-key *top-map* (kbd "XF86AudioRaiseVolume") "exec amixer set Master 5+")
|
|
(define-key *top-map* (kbd "XF86MonBrightnessDown") "exec xbacklight -dec 3")
|
|
(define-key *top-map* (kbd "XF86MonBrightnessUp") "exec xbacklight -inc 3")
|
|
|
|
(when (and (= 1 (group-number (current-group)))
|
|
(string= "Default" (group-name (current-group))))
|
|
(grename "1")
|
|
(dolist (name '("2" "3" "4" "5" "6" "7" "8" "9"))
|
|
(gnewbg name))
|
|
(let ((widths (mapcar #'head-width (screen-heads (current-screen)))))
|
|
(if (and (= (length widths) 2) (< (car widths) (cadr widths)))
|
|
(mapc #'focus-next-frame (screen-groups (current-screen)))))
|
|
(gnewbg-float "Float"))
|
|
|
|
(setq *mode-line-background-color* "#455a64")
|
|
(setq *mode-line-foreground-color* "#b0bec5")
|
|
(set-border-color "#212121")
|
|
(set-bg-color "#455a64")
|
|
(set-fg-color "#b0bec5")
|
|
(setq *colors* '("#212121" "#e57373" "#a5d6a7" "#fff59d" "#90caf9" "#e1bee7" "#80deea" "#fafafa"))
|
|
(update-color-map (current-screen))
|
|
|
|
(let ((scr (current-screen)))
|
|
(dolist (head (screen-heads scr))
|
|
(enable-mode-line scr head t)))
|
|
|
|
(require :asdf) ; needed to find swank in ~/common-lisp if not using
|
|
; quicklisp
|
|
(require :swank)
|
|
|
|
(defcommand swank () ()
|
|
"Start swank server"
|
|
(swank:create-server :port 4004
|
|
:style swank:*communication-style*
|
|
:dont-close t))
|