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
|
(define-module (sigils home services wayland)
#:use-module (gnu home services)
#:use-module (gnu home services shepherd)
#:use-module (gnu packages wm)
#:use-module (gnu services configuration)
#:use-module (guix packages)
#:use-module (guix gexp)
#:use-module (guix diagnostics)
#:use-module (guix ui)
#:use-module (sigils home services desktop)
#:use-module (srfi srfi-1)
#:use-module (srfi srfi-26)
#:use-module (srfi srfi-43)
#:use-module (ice-9 match)
#:export (home-kanshi-service-type
home-kanshi-configuration))
;;;
;;; kanshi.
;;;
(define kanshi-config? list?)
(define (serialize-kanshi-config config)
(define serialize-term
(match-lambda
((? symbol? e) `(" " ,(symbol->string e)))
((? number? e) `(" " ,(number->string e)))
((? string? e) `(" " ,(format #f "~s" e)))
(e `(" " ,e))))
(define serialize-statement
(match-lambda
((cmd . lst)
`(,(symbol->string cmd)
,@(append-map serialize-term lst)))))
(define serialize-profile
(match-lambda
((name ((expressions ...) ...))
`("profile " ,(symbol->string name) " {\n"
,@(append-map
(lambda (expr) `(" " ,@(serialize-statement expr) "\n"))
expressions)
"}\n"))))
(append-map serialize-profile config))
(define-configuration home-kanshi-configuration
(kanshi
(file-like kanshi)
"kanshi package to use.")
(config
(kanshi-config
`())
"The kanshi configuration is a list of profiles with output and exec fields.
@lisp
'((static ((output LVDS-1 disable)
(output \"Some Company ASDF 4242\" mode 1600x900 position 0,0)))
(portable ((output LVDS-1 enable scale 2))))
@end lisp
serializes to
@code
profile static {
output LVDS-1 disable
output \"Some Company ASDF 4242\" mode 1600x900 position 0,0
}
profile portable {
output LVDS-1 enable scale 2
}
@end code
"))
(define (add-kanshi-packages config)
(list (home-kanshi-configuration-kanshi config)))
(define (add-kanshi-configuration config)
`(("kanshi/config"
,(apply
mixed-text-file
"kanshi-config"
(serialize-kanshi-config (home-kanshi-configuration-config config))))))
(define (home-kanshi-shepherd-service config)
(let ((kanshi (home-kanshi-configuration-kanshi config)))
(list
(shepherd-service
(provision '(kanshi))
(requirement '(wayland-display))
(modules '((srfi srfi-1)
(srfi srfi-26)))
(start #~(lambda _
;; This is not optimal.
(fork+exec-command
(list #$(file-append kanshi "/bin/kanshi"))
#:log-file (string-append
(getenv "XDG_STATE_HOME") "/log"
"/kanshi.log")
#:environment-variables
(cons (string-append "WAYLAND_DISPLAY=" (getenv "WAYLAND_DISPLAY"))
(remove (cut string-prefix? "WAYLAND_DISPLAY=" <>)
(default-environment-variables))))))
(stop #~(make-kill-destructor))
(documentation "Run Kanshi")))))
(define (home-kanshi-extensions cfg extensions)
(home-kanshi-configuration
(inherit cfg)
(config
(append (home-kanshi-configuration-config cfg)
(append-map identity (reverse extensions))))))
(define home-kanshi-service-type
(service-type (name 'home-kanshi)
(extensions
(list (service-extension
home-profile-service-type
add-kanshi-packages)
(service-extension
home-shepherd-service-type
home-kanshi-shepherd-service)
(service-extension
home-xdg-configuration-files-service-type
add-kanshi-configuration)))
(compose identity)
(extend home-kanshi-extensions)
(default-value (home-kanshi-configuration))
(description "\
Install and configure kanshi, output profile manager.")))
|
