blob: c5b96d69db2c6b81d4c3d564de9c67743a41c123 (
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
56
57
58
59
60
61
62
63
64
|
;; Startup message
(setf *startup-message* "Welcome back, Thanos")
(stumpwm:load-module "swm-gaps")
;; Colors
(stumpwm:load-module "ttf-fonts")
(load "~/.stumpwm.d/colors.lisp")
(run-shell-command "~/.config/autostart/autostart.sh ")
;; Wallpaper
(defun feh-set-wallpaper (wallpaper-name)
"Set wallpaper using feh"
(let ((wallpaper-dir "~/wallpapers/"))
(format t "Setting wallpaper: ~a~%" wallpaper-name)
(run-shell-command (format nil "feh --bg-scale ~a~a" wallpaper-dir wallpaper-name))))
(defun thanos/set-wallpapers ()
"Set wallpapers depending on hostname."
(cond ((equal (asdf:hostname) "zeus") (feh-set-wallpaper "winter-dragons.jpg"))
((equal (asdf:hostname) "hermes") (feh-set-wallpaper "cyberpunk-wallpaper2.jpg"))))
;; (when *initializing*
;; (thanos/set-wallpapers))
(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-black-bg)
(set-focus-color thanos-black-active)
(set-unfocus-color thanos-black-inactive)
(set-float-focus-color thanos-hope1)
(set-float-unfocus-color thanos-hope3)
(set-fg-color thanos-hope-fg)
(set-bg-color thanos-black-bg)
(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)))
|
