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
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
(define-module (ruther home services kanshi)
#:use-module (guix gexp)
#:use-module (gnu packages wm)
#:use-module (gnu services)
#:use-module (gnu services configuration)
#:use-module (gnu services shepherd)
#:use-module (srfi srfi-26)
#:use-module (srfi srfi-1)
#:use-module (gnu home services)
#:use-module (gnu home services shepherd)
#:use-module (ruther home services wayland)
#:export (kanshi-configuration
kanshi-profile
kanshi-output
home-kanshi-configuration))
(define-maybe string)
(define-maybe cons)
(define-maybe float)
(define-maybe boolean)
(define-maybe list-of-strings)
(define-maybe position)
(define (position? value)
(and
(pair? value)
(integer? (car value))
(integer? (cdr value))))
(define (serialize-name name value)
(format #f
"~a "
value))
(define (serialize-position name value)
(format #f
"~a ~a,~a "
name
(car value)
(cdr value)))
(define (serialize-enable name value)
(if value "enable " "disable "))
(define (serialize-boolean name value)
(format #f
"~a ~a "
name
(if value "yes" "no")))
(define (list-of-strings? lst)
(every string? lst))
(define (serialize-list-of-strings name value)
(string-join " "
(map serialize-string value)))
(define-configuration kanshi-output
(name string "Identifier of the output" (serializer serialize-name))
(mode maybe-string "The mode to use")
(position maybe-position "A cons containing x in car, and y in cdr")
(enable maybe-boolean "Whether to enable the output" (serializer serialize-enable))
(scale maybe-float "Scale of the output mode")
(adaptive-sync maybe-boolean "Whether to enable adaptive sync for the output"))
(define (list-of-kanshi-outputs? lst)
(every kanshi-output? lst))
(define (serialize-list-of-kanshi-outputs lst)
#~(string-join
(map (lambda (x) (string-append " output " x))
(list #$@(map
(cut serialize-configuration <> kanshi-output-fields)
lst)))
"\n"))
(define-configuration/no-serialization kanshi-profile
(name
string
"Name of the profile")
(outputs
list-of-kanshi-outputs
"List of the outputs for this profile")
;; (commands
;; maybe-list-of-strings
;; "List of the commands to execute. These map to `exec`")
)
(define (list-of-kanshi-profiles? lst)
(every kanshi-profile? lst))
(define-public (serialize-kanshi-profile config)
#~(format #f
"profile ~a {~%~a~%}~%~%"
#$(kanshi-profile-name config)
#$(serialize-list-of-kanshi-outputs (kanshi-profile-outputs config))))
(define (serialize-list-of-kanshi-profiles name lst)
#~(string-append #$@(map serialize-kanshi-profile lst)))
(define-configuration kanshi-configuration
(profiles
list-of-kanshi-profiles
"List of the profiles inside of the kanshi configuration."))
(define-public (serialize-kanshi-configuration config)
(mixed-text-file
"config"
(serialize-configuration config kanshi-configuration-fields)))
(define-configuration/no-serialization home-kanshi-configuration
(kanshi (file-like kanshi) "Kanshi package to use.")
(config kanshi-configuration "Configuration of the kanshi program itself. Goes into .config/kanshi/config"))
(define (home-kanshi-shepherd-services config)
(list
(shepherd-service
(documentation "Run the kanshi daemon for managing outputs.")
(provision '(kanshi))
(requirement '(wayland-display))
(start #~(make-forkexec-constructor
(list #$(file-append
(home-kanshi-configuration-kanshi config)
"/bin/kanshi")
"-c"
#$(serialize-kanshi-configuration (home-kanshi-configuration-config config)))))
(stop #~(make-kill-destructor)))))
(define-public home-kanshi-service-type
(service-type
(name 'home-kanshi)
(description "A service for configuring and running kanshi through Shepherd")
(extensions
(list (service-extension home-shepherd-service-type
home-kanshi-shepherd-services)
(service-extension home-wayland-display-service-type
(const #f))))))