# greetd.scm -rw-r--r-- 895 bytes View raw
                                                                                
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
(define make-wlgreet-configuration-file
  (match-lambda
    (($ <greetd-wlgreet-session> _ config-file-name command command-args
        output-mode scale background headline prompt prompt-error border)
     (mixed-text-file config-file-name ;;  vvvvvvvvv---- By default bound to (file-append sway "/bin/sway")
       "command = \"" (string-join (cons command command-args) " ") "\"\n"
       "outputMode = \"" output-mode "\"\n"
       "scale = \"" (number->string scale) "\"\n"
       (apply string-append
              (map (match-lambda
                    ((section-name . color)
                     (make-wlgreet-config-color section-name color)))
                   `(("background" . ,background)
                     ("headline" . ,headline)
                     ("prompt" . ,prompt)
                     ("prompt-error" . ,prompt-error)
                     ("border" . ,border))))))))