1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 | (in-package :stumpwm)
(set-font "-dylex-terminal-medium-r-*-*-13-*-*-*-*-*-*-*")
(grename "i")
(gnewbg "ii")
(gnewbg "iii")
(gnewbg "iv")
(gnewbg "v")
(gnewbg "vi")
(gnewbg "vii")
(gnewbg "viii")
(gnewbg-dynamic "ix")
(set-bg-color "#000000")
(set-fg-color "#ffe1e3")
(set-border-color "#3a3f5a")
(set-focus-color "#8197bf")
(set-unfocus-color "#3a3f5a")
(set-msg-border-width 1)
(setf *startup-message* nil
*window-format* "%t"
*window-border-style* :thin
*message-window-padding* 3
*message-window-y-padding* 3
*message-window-gravity* :center
*input-window-gravity* :center
*input-history-ignore-duplicates* t
*mouse-focus-policy* :click
*float-window-border* 1
*float-window-title-height* 1
*maxsize-border-width* 1
*transient-border-width* 1
*normal-border-width* 1
*mode-line-position* :top
*mode-line-pad-x* 3
*mode-line-pad-y* 3
*mode-line-background-color* "#000000"
*mode-line-border-color* "#3a3f5a"
*mode-line-foreground-color* "#ffe1e3"
*mode-line-timeout* 60
*mode-line-border-width* 0
*time-modeline-string* "%d-%m-%y-%H:%M"
*screen-mode-line-format*
(list "all users of windows are suckers^>%d"))
(define-key *top-map* (kbd "s-b") "windowlist")
(define-key *top-map* (kbd "s-c") "kill-window")
(define-key *top-map* (kbd "s-d") "remove-split")
(define-key *top-map* (kbd "s-f") "float-this")
(define-key *top-map* (kbd "s-F") "unfloat-this")
(define-key *top-map* (kbd "s-h") "hsplit")
(define-key *top-map* (kbd "s-Q") "quit")
(define-key *top-map* (kbd "s-R") "restart-soft")
(define-key *top-map* (kbd "s-s") "screenshot")
(define-key *top-map* (kbd "s-t") "fullscreen")
(define-key *top-map* (kbd "s-v") "vsplit")
(define-key *top-map* (kbd "s-x") "exec")
(define-key *top-map* (kbd "s-y") "mode-line")
(define-key *top-map* (kbd "s-Up") "move-focus up")
(define-key *top-map* (kbd "s-Down") "move-focus down")
(define-key *top-map* (kbd "s-Left") "move-focus left")
(define-key *top-map* (kbd "s-Right") "move-focus right")
(dotimes (i 9)
(let ((val (1+ i)))
(define-key *top-map*
(kbd (format nil "s-~d" val))
(format nil "gselect ~d" val))
(define-key *top-map*
(kbd (format nil "s-M-~d" val))
(format nil "gmove-and-follow ~d" val))))
(defcommand screenshot () ()
(run-shell-command "scrot /bagheera/screenshots/Screenshot-$(date +%Y-%m-%d-%H-%M-%S).png"))
|
x
Notes
updated 21th december 2022
