diff options
Diffstat (limited to 'px/services/bluetooth.scm')
| -rw-r--r-- | px/services/bluetooth.scm | 59 |
1 files changed, 2 insertions, 57 deletions
diff --git a/px/services/bluetooth.scm b/px/services/bluetooth.scm index ce72f31..2c2dbe6 100644 --- a/px/services/bluetooth.scm +++ b/px/services/bluetooth.scm @@ -20,9 +20,7 @@ #:use-module (ice-9 pretty-print) #:export (btuart-configuration - btuart-service-type - bluetooth-client-manager-configuration - bluetooth-client-manager-service-type)) + btuart-service-type)) ;; ;; btuart-service-type @@ -74,57 +72,4 @@ shepherd-root-service-type btuart-shepherd-service))) (default-value (btuart-configuration)) - (description "Attach serial lines as Bluetooth HCI interfaces"))) - -;; -;; bluetooth-client-manager-service -;; - -(define-record-type* <bluetooth-client-manager-configuration> - bluetooth-client-manager-configuration - make-bluetooth-client-manager-configuration - bluetooth-client-manager-configuration? - (package - bluetooth-client-manager-configuration-package - (default bluetooth-client-manager-service)) - (debug? bluetooth-client-manager-configuration-debug? - (default #f)) - (skip-approval? bluetooth-client-manager-configuration-skip-approval? - (default #f))) - -(define bluetooth-client-manager-shepherd-service - (match-lambda - (($ <bluetooth-client-manager-configuration> package debug? skip-approval?) - (list (shepherd-service (provision '(bluetooth-client-manager-service)) - (documentation - "Run px-device-identity-service as a daemon") - (requirement '(networking user-processes - px-device-identity)) - (start #~(make-forkexec-constructor (list (string-append #$package - "/bin/bluetooth-client-manager-service") - #$@(if - debug? - '("--verbose") - '()) - #$@(if - skip-approval? - '("--skip-approval") - '())) - #:log-file - "/var/log/bluetooth-client-manager-service.log" - #:environment-variables (cons* - "HOME=/root" - "XDG_DATA_HOME=/root/.local/share" - "XDG_CONFIG_HOME=/root/.config" - "SSL_CERT_DIR=/run/current-system/profile/etc/ssl/certs" - "SSL_CERT_FILE=/run/current-system/profile/etc/ssl/certs/ca-certificates.crt" - (default-environment-variables)))) - (stop #~(make-kill-destructor))))))) - -(define bluetooth-client-manager-service-type - (service-type (name 'bluetooth-client-manager-service) - (description "PantherX Bluetooth Client Manager service") - (extensions (list (service-extension - shepherd-root-service-type - bluetooth-client-manager-shepherd-service))) - (default-value (bluetooth-client-manager-configuration)))) + (description "Attach serial lines as Bluetooth HCI interfaces")))
\ No newline at end of file |