blob: 98910bf0d6edcd3b6e02df20b8da35ef301b6c9c (
about) (
plain)
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
|
;; Startup message
(setf *startup-message* "Welcome back, Thanos")
(stumpwm:load-module "swm-gaps")
;; Colors
(stumpwm:load-module "ttf-fonts")
(load "~/.stumpwm.d/colors.lisp")
(setf *message-window-gravity* :center
*input-window-gravity* :center
*window-border-style :thin
*mouse-focus-policy* :click
*float-window-modifier* :META
*transient-border-width* 2
*normal-size-border-width* 2
*message-window-padding* 10
*message-window-y-padding* 10)
(when *initializing*
(update-color-map (current-screen)))
(set-border-color thanos-hope)
(set-focus-color thanos-hope)
(set-unfocus-color thanos-hope-alt)
(set-float-focus-color thanos-hope1)
(set-float-unfocus-color thanos-hope3)
(set-fg-color thanos-hope-fg)
(set-bg-color thanos-hope-alt)
(setf swm-gaps:*head-gaps-size* 6
swm-gaps:*inner-gaps-size* 6
swm-gaps:*outer-gaps-size* 6)
(when stumpwm:*initializing*
(swm-gaps:toggle-gaps-on))
(ql:quickload :clx-truetype)
(stumpwm:set-font
`(,(make-instance 'xft:font
:family "JetBrains Mono"
:subfamily "Regular"
:size 12
:antialias t)
,(make-instance 'xft:font
:family "Hack"
:subfamily "Regular"
:size 12)
,(make-instance 'xft:font
:family "Fira Code"
:subfamily "Regular"
:size 12)
))
|
