| changeset 94: | 978ce75e54af |
| parent: | 0e41a0a68353 |
| child: | f69061a590da |
| author: | Richard Westhaver <ellis@rwest.io> |
| date: | Fri, 30 Aug 2024 17:07:30 -0400 |
| permissions: | -rw-r--r-- |
| description: | add stumpwm modules and org-timeline |
| 4 | 1 | (require :stumpwm) |
| 51 | 2 | |
| 4 | 3 | (in-package :stumpwm) |
| 4 | ||
| 86 | 5 | (stumpwm:set-prefix-key (kbd "s-SPC")) |
| 83 | 6 | |
|
94
978ce75e54af
add stumpwm modules and org-timeline
Richard Westhaver <ellis@rwest.io>
parents:
93
diff
changeset
|
7 | (ignore-errors |
|
978ce75e54af
add stumpwm modules and org-timeline
Richard Westhaver <ellis@rwest.io>
parents:
93
diff
changeset
|
8 | (ql:quickload '(:std :core :prelude :user))) |
|
978ce75e54af
add stumpwm modules and org-timeline
Richard Westhaver <ellis@rwest.io>
parents:
93
diff
changeset
|
9 | |
| 83 | 10 | (defcommand load-std () () |
| 11 | (ql:quickload :std)) |
|
| 12 | ||
| 13 | (defcommand load-prelude () () |
|
| 14 | (ql:quickload :prelude)) |
|
| 15 | ||
| 16 | (defcommand load-core () () |
|
| 17 | (ql:quickload :core)) |
|
| 18 | ||
| 19 | (defcommand load-user () () |
|
|
94
978ce75e54af
add stumpwm modules and org-timeline
Richard Westhaver <ellis@rwest.io>
parents:
93
diff
changeset
|
20 | (ql:quickload :user) |
|
978ce75e54af
add stumpwm modules and org-timeline
Richard Westhaver <ellis@rwest.io>
parents:
93
diff
changeset
|
21 | (in-package :user)) |
| 52 | 22 | |
| 4 | 23 | (setq *mouse-focus-policy* :sloppy |
| 24 | *float-window-modifier* :SUPER |
|
| 25 | *startup-message* "Greetings, stranger.") |
|
| 26 | ||
| 86 | 27 | (set-module-dir "~/.stumpwm.d/contrib") |
| 4 | 28 | (init-load-path *module-dir*) |
| 29 | ||
| 86 | 30 | (ql:quickload :clx-truetype) |
| 31 | (load-module "ttf-fonts") |
|
| 32 | (xft:cache-fonts) |
|
| 33 | (set-font (make-instance 'xft:font |
|
| 34 | :family "Mononoki Nerd Font" |
|
| 35 | :subfamily "Regular" |
|
| 36 | :size 12)) |
|
| 37 | ||
| 38 | (load-module "swm-golden-ratio") |
|
| 39 | (unless swm-golden-ratio:*golden-ratio-on* |
|
| 40 | (swm-golden-ratio:toggle-golden-ratio)) |
|
| 41 | ||
|
94
978ce75e54af
add stumpwm modules and org-timeline
Richard Westhaver <ellis@rwest.io>
parents:
93
diff
changeset
|
42 | ;; (load-module "stumptray") |
|
978ce75e54af
add stumpwm modules and org-timeline
Richard Westhaver <ellis@rwest.io>
parents:
93
diff
changeset
|
43 | (load-module "cpu") |
|
978ce75e54af
add stumpwm modules and org-timeline
Richard Westhaver <ellis@rwest.io>
parents:
93
diff
changeset
|
44 | (load-module "hostname") |
|
978ce75e54af
add stumpwm modules and org-timeline
Richard Westhaver <ellis@rwest.io>
parents:
93
diff
changeset
|
45 | (load-module "mpd") |
|
978ce75e54af
add stumpwm modules and org-timeline
Richard Westhaver <ellis@rwest.io>
parents:
93
diff
changeset
|
46 | (load-module "mem") |
|
978ce75e54af
add stumpwm modules and org-timeline
Richard Westhaver <ellis@rwest.io>
parents:
93
diff
changeset
|
47 | (ql:quickload '(:cl-diskspace :cl-mount-info)) |
|
978ce75e54af
add stumpwm modules and org-timeline
Richard Westhaver <ellis@rwest.io>
parents:
93
diff
changeset
|
48 | (load-module "disk") |
|
978ce75e54af
add stumpwm modules and org-timeline
Richard Westhaver <ellis@rwest.io>
parents:
93
diff
changeset
|
49 | (setq *mode-line-highlight-template* "«~A»") |
|
978ce75e54af
add stumpwm modules and org-timeline
Richard Westhaver <ellis@rwest.io>
parents:
93
diff
changeset
|
50 | (setf *screen-mode-line-format* (list "[^B%n^b] %W^> %C | %M | %l | %D | %h | %d")) |
|
978ce75e54af
add stumpwm modules and org-timeline
Richard Westhaver <ellis@rwest.io>
parents:
93
diff
changeset
|
51 | |
|
978ce75e54af
add stumpwm modules and org-timeline
Richard Westhaver <ellis@rwest.io>
parents:
93
diff
changeset
|
52 | (ql:quickload :xml-emitter) |
|
978ce75e54af
add stumpwm modules and org-timeline
Richard Westhaver <ellis@rwest.io>
parents:
93
diff
changeset
|
53 | (ql:quickload :dbus) |
|
978ce75e54af
add stumpwm modules and org-timeline
Richard Westhaver <ellis@rwest.io>
parents:
93
diff
changeset
|
54 | (load-module "notify") |
|
978ce75e54af
add stumpwm modules and org-timeline
Richard Westhaver <ellis@rwest.io>
parents:
93
diff
changeset
|
55 | (notify:notify-server-toggle) |
| 86 | 56 | |
| 83 | 57 | (set-fg-color "#ffffff") |
| 58 | (set-bg-color "#000000") |
|
| 59 | (set-border-color "#7E5D90") |
|
| 60 | (set-focus-color "#170F14") |
|
| 61 | (set-unfocus-color "#232731") |
|
| 62 | (set-win-bg-color "#22272F") |
|
| 63 | (set-float-focus-color "#8ED3A1") |
|
| 64 | (set-float-unfocus-color "#232731") |
|
| 65 | ||
| 66 | (setf *mode-line-background-color* "#161613") |
|
| 67 | (setf *mode-line-foreground-color* "#FFFFFF") |
|
| 68 | (setf *mode-line-border-color* "#28394c") |
|
| 69 | (setf *mode-line-position* :bottom) |
|
| 70 | ||
| 71 | (setf *colors* (list "#010101" ; 0 black |
|
| 72 | "#BF616A" ; 1 red |
|
| 73 | "#A3BE8C" ; 2 green |
|
| 74 | "#EBCB8B" ; 3 yellow |
|
| 75 | "#5E81AC" ; 4 blue |
|
| 76 | "#9D5AAF" ; 5 magenta |
|
| 77 | "#8FBCBB" ; 6 cyan |
|
| 78 | "#FEFEFE")) ; 7 white |
|
| 79 | ||
| 51 | 80 | (setf *window-format* "%m%n%s%c") |
| 83 | 81 | (set-normal-gravity :center) |
| 82 | (set-maxsize-gravity :center) |
|
| 83 | (set-transient-gravity :center) |
|
|
94
978ce75e54af
add stumpwm modules and org-timeline
Richard Westhaver <ellis@rwest.io>
parents:
93
diff
changeset
|
84 | (setf *time-modeline-string* "%F %H:%M") |
|
978ce75e54af
add stumpwm modules and org-timeline
Richard Westhaver <ellis@rwest.io>
parents:
93
diff
changeset
|
85 | (setf *group-format* "%t") |
|
978ce75e54af
add stumpwm modules and org-timeline
Richard Westhaver <ellis@rwest.io>
parents:
93
diff
changeset
|
86 | (setq *mode-line-timeout* 4) |
| 4 | 87 | |
|
94
978ce75e54af
add stumpwm modules and org-timeline
Richard Westhaver <ellis@rwest.io>
parents:
93
diff
changeset
|
88 | (which-key-mode) |
| 4 | 89 | |
| 90 | (when *initializing* |
|
|
94
978ce75e54af
add stumpwm modules and org-timeline
Richard Westhaver <ellis@rwest.io>
parents:
93
diff
changeset
|
91 | (grename "*MAIN*") |
|
978ce75e54af
add stumpwm modules and org-timeline
Richard Westhaver <ellis@rwest.io>
parents:
93
diff
changeset
|
92 | (gnewbg "*ORG*") |
|
978ce75e54af
add stumpwm modules and org-timeline
Richard Westhaver <ellis@rwest.io>
parents:
93
diff
changeset
|
93 | (gnewbg "*MEDIA*") |
|
978ce75e54af
add stumpwm modules and org-timeline
Richard Westhaver <ellis@rwest.io>
parents:
93
diff
changeset
|
94 | (gnewbg "*SCRATCH*") |
| 51 | 95 | (run-shell-command "sh ~/.fehbg") |
| 96 | (when (equal (machine-instance) "zor") |
|
| 97 | (run-shell-command "sh ~/.screenlayout/default.sh")) |
|
| 86 | 98 | (dolist (h (screen-heads (current-screen))) |
| 99 | (enable-mode-line (current-screen) h t))) |
|
| 6 | 100 | |
|
94
978ce75e54af
add stumpwm modules and org-timeline
Richard Westhaver <ellis@rwest.io>
parents:
93
diff
changeset
|
101 | (clear-window-placement-rules) |
|
978ce75e54af
add stumpwm modules and org-timeline
Richard Westhaver <ellis@rwest.io>
parents:
93
diff
changeset
|
102 | |
|
978ce75e54af
add stumpwm modules and org-timeline
Richard Westhaver <ellis@rwest.io>
parents:
93
diff
changeset
|
103 | (define-frame-preference "*MAIN*" (nil t t :class "Tiling")) |
|
978ce75e54af
add stumpwm modules and org-timeline
Richard Westhaver <ellis@rwest.io>
parents:
93
diff
changeset
|
104 | (define-frame-preference "*ORG*" (nil t t :class "Tiling")) |
|
978ce75e54af
add stumpwm modules and org-timeline
Richard Westhaver <ellis@rwest.io>
parents:
93
diff
changeset
|
105 | (define-frame-preference "*MEDIA*" (nil t t :class "Floating")) |
|
978ce75e54af
add stumpwm modules and org-timeline
Richard Westhaver <ellis@rwest.io>
parents:
93
diff
changeset
|
106 | (define-frame-preference "*SCRATCH*" (nil t t :class "Tiling")) |
|
978ce75e54af
add stumpwm modules and org-timeline
Richard Westhaver <ellis@rwest.io>
parents:
93
diff
changeset
|
107 | |
|
978ce75e54af
add stumpwm modules and org-timeline
Richard Westhaver <ellis@rwest.io>
parents:
93
diff
changeset
|
108 | (setf *dynamic-group-master-split-ratio* 1/2) |
|
978ce75e54af
add stumpwm modules and org-timeline
Richard Westhaver <ellis@rwest.io>
parents:
93
diff
changeset
|
109 | |
| 6 | 110 | (defcommand term (&optional program) () |
| 111 | (sb-thread:make-thread |
|
| 112 | (lambda () |
|
| 113 | (run-shell-command (if program |
|
| 114 | (format nil "alacritty ~A" program) |
|
| 115 | "alacritty"))))) |
|
| 116 | ||
| 51 | 117 | (defcommand blueberry () () |
| 118 | (sb-thread:make-thread |
|
| 119 | (lambda () |
|
| 120 | (run-shell-command "blueberry")))) |
|
| 121 | ||
|
94
978ce75e54af
add stumpwm modules and org-timeline
Richard Westhaver <ellis@rwest.io>
parents:
93
diff
changeset
|
122 | (defcommand firefox () () |
|
978ce75e54af
add stumpwm modules and org-timeline
Richard Westhaver <ellis@rwest.io>
parents:
93
diff
changeset
|
123 | "Run or raise Firefox." |
|
978ce75e54af
add stumpwm modules and org-timeline
Richard Westhaver <ellis@rwest.io>
parents:
93
diff
changeset
|
124 | (sb-thread:make-thread |
|
978ce75e54af
add stumpwm modules and org-timeline
Richard Westhaver <ellis@rwest.io>
parents:
93
diff
changeset
|
125 | (lambda () (run-or-raise "firefox" '(:class "Firefox") t nil)))) |
|
978ce75e54af
add stumpwm modules and org-timeline
Richard Westhaver <ellis@rwest.io>
parents:
93
diff
changeset
|
126 | |
| 51 | 127 | (defcommand chromium () () |
| 128 | (sb-thread:make-thread |
|
| 129 | (lambda () |
|
|
94
978ce75e54af
add stumpwm modules and org-timeline
Richard Westhaver <ellis@rwest.io>
parents:
93
diff
changeset
|
130 | (run-or-raise "chromium" '(:class "Chromium") t nil)))) |
| 51 | 131 | |
| 86 | 132 | (defcommand emacsclient () () |
| 133 | (run-shell-command "emacsclient -c -a=")) |
|
| 134 | ||
|
94
978ce75e54af
add stumpwm modules and org-timeline
Richard Westhaver <ellis@rwest.io>
parents:
93
diff
changeset
|
135 | (defcommand homer () () |
|
978ce75e54af
add stumpwm modules and org-timeline
Richard Westhaver <ellis@rwest.io>
parents:
93
diff
changeset
|
136 | (run-shell-command "homer")) |
|
978ce75e54af
add stumpwm modules and org-timeline
Richard Westhaver <ellis@rwest.io>
parents:
93
diff
changeset
|
137 | |
|
978ce75e54af
add stumpwm modules and org-timeline
Richard Westhaver <ellis@rwest.io>
parents:
93
diff
changeset
|
138 | (defcommand skel () () |
|
978ce75e54af
add stumpwm modules and org-timeline
Richard Westhaver <ellis@rwest.io>
parents:
93
diff
changeset
|
139 | (run-shell-command "skel")) |
|
978ce75e54af
add stumpwm modules and org-timeline
Richard Westhaver <ellis@rwest.io>
parents:
93
diff
changeset
|
140 | |
|
978ce75e54af
add stumpwm modules and org-timeline
Richard Westhaver <ellis@rwest.io>
parents:
93
diff
changeset
|
141 | (define-key *root-map* (kbd "t") "term") |
| 93 | 142 | (define-key *root-map* (kbd "e") "emacsclient") |
| 143 | (define-key *root-map* (kbd "C-e") "emacs") |
|
| 144 | (define-key *root-map* (kbd "s-w") "chromium") |