Tom Willemse
a0034e7659
The example was using a system constructor with a kill destructor, but I don't think those two work together. I prefer having the application run in the foreground and using the shepherd way of forking so I have more control.
136 lines
4.4 KiB
Scheme
136 lines
4.4 KiB
Scheme
(define-module (oni home services compton)
|
|
#:use-module (gnu services configuration)
|
|
#:use-module (gnu packages compton)
|
|
#:use-module (gnu services xorg)
|
|
#:use-module (gnu home services)
|
|
#:use-module (gnu home services shepherd)
|
|
#:use-module (gnu home services utils)
|
|
#:use-module (guix packages)
|
|
#:use-module (guix gexp)
|
|
#:use-module (guix records)
|
|
#:use-module (guix i18n)
|
|
#:use-module (guix modules)
|
|
#:use-module (guix diagnostics)
|
|
#:use-module (srfi srfi-1)
|
|
#:use-module (srfi srfi-26)
|
|
#:use-module (ice-9 match)
|
|
|
|
#:export (home-picom-service-type
|
|
home-picom-configuration))
|
|
|
|
;;; This module has been copied from
|
|
;;; https://github.com/nouun/jayu/blob/92ff6629da686f0ddc96a4d6cb2a657c76795bc6/jayu/home/services/xdisorg.scm
|
|
;;; With some slight modifications to make my configuration work.
|
|
|
|
(define-configuration/no-serialization home-picom-configuration
|
|
(package
|
|
(package picom)
|
|
"Package to use for setting Picom")
|
|
(config
|
|
(alist '())
|
|
""))
|
|
|
|
(define (format-picom-list vals depth)
|
|
(if (not (eq? vals '()))
|
|
(let ((is-pair? (pair? (car vals))))
|
|
(string-append
|
|
(if is-pair? "{" "[")
|
|
"\n "
|
|
(string-join
|
|
(map (lambda (val)
|
|
(if (pair? val)
|
|
(string-append
|
|
(maybe-object->string (car val))
|
|
" = " (format-picom-value (cdr val) (+ depth 1))
|
|
(if (> depth 0) "," ";"))
|
|
(format-picom-value val (+ depth 1))))
|
|
vals)
|
|
(string-append
|
|
(if is-pair? "" ",")
|
|
"\n "))
|
|
"\n"
|
|
(if is-pair? "}" "]")))
|
|
"[]"))
|
|
|
|
(define (format-picom-value val depth)
|
|
(cond
|
|
((list? val)
|
|
(format-picom-list (car val) (+ depth 1)))
|
|
((pair? val)
|
|
(format-picom-value `(,(car val)) (+ depth 1)))
|
|
((boolean? val)
|
|
(if val "true" "false"))
|
|
((or (symbol? val) (number? val))
|
|
(maybe-object->string val))
|
|
((string? val)
|
|
(string-append "\"" val "\""))
|
|
(else val)))
|
|
|
|
(define (format-picom-config key val)
|
|
(list (string-append (maybe-object->string key)
|
|
" = "
|
|
(format-picom-value val 0)
|
|
";\n")))
|
|
|
|
(define (serialize-picom-config config)
|
|
(generic-serialize-alist append format-picom-config config))
|
|
|
|
(define (home-picom-config-file config)
|
|
(apply mixed-text-file
|
|
"picom.conf"
|
|
(serialize-picom-config
|
|
(home-picom-configuration-config config))))
|
|
|
|
(define (home-picom-files-service config)
|
|
`(("config/picom/picom.conf"
|
|
,(home-picom-config-file config))))
|
|
|
|
(define (home-picom-profile-service config)
|
|
(list (home-picom-configuration-package config)))
|
|
|
|
(define (home-picom-shepherd-service config)
|
|
(list
|
|
(shepherd-service
|
|
(documentation "Start Picom")
|
|
(provision '(picom))
|
|
;; TODO: Figure out how to start when x starts
|
|
;(requirement '(xorg-server))
|
|
(auto-start? #t)
|
|
(start
|
|
#~(make-forkexec-constructor
|
|
(list #$(file-append (home-picom-configuration-package config) "/bin/picom")
|
|
"--config" #$(home-picom-config-file config))
|
|
#:log-file (format #f "~a/.local/var/log/picom.log" (getenv "HOME"))))
|
|
(stop #~(make-kill-destructor)))))
|
|
|
|
(define (home-picom-extension old-config extension-configs)
|
|
(match old-config
|
|
(($ <home-picom-configuration> _ package* config*)
|
|
(home-picom-configuration
|
|
(package package*)
|
|
(config (append config*
|
|
(append-map home-picom-configuration-config
|
|
extension-configs)))))))
|
|
|
|
(define home-picom-service-type
|
|
(service-type (name 'home-picom)
|
|
(extensions
|
|
(list (service-extension
|
|
home-files-service-type
|
|
home-picom-files-service)
|
|
(service-extension
|
|
home-profile-service-type
|
|
home-picom-profile-service)
|
|
(service-extension
|
|
home-shepherd-service-type
|
|
home-picom-shepherd-service)))
|
|
(compose concatenate)
|
|
(extend home-picom-extension)
|
|
(default-value (home-picom-configuration))
|
|
(description "Configure Picom")))
|
|
|
|
(define (generate-home-picom-documentation)
|
|
(generate-documentation
|
|
`((home-picom-configuration
|
|
,home-picom-configuration-fields))
|
|
'home-picom-configuration))
|