diff options
| author | Franz Geffke <franz@pantherx.org> | 2024-03-30 12:09:53 +0000 |
|---|---|---|
| committer | Franz Geffke <franz@pantherx.org> | 2024-03-30 12:09:53 +0000 |
| commit | 0e3fdeb617c2578c060842dfbef114ba7723e4b9 (patch) | |
| tree | 5a90e1c67d909befd71383dfc9867e70ac7525fb /px/services | |
| parent | bedacac40a032dbb8b5d49ab780e74ef2b5deed4 (diff) | |
drop bluetooth-client-manager-*
Diffstat (limited to 'px/services')
| -rw-r--r-- | px/services/bluetooth.scm | 59 | ||||
| -rw-r--r-- | px/services/device.scm | 60 |
2 files changed, 4 insertions, 115 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 diff --git a/px/services/device.scm b/px/services/device.scm index d783334..64036fc 100644 --- a/px/services/device.scm +++ b/px/services/device.scm @@ -38,10 +38,7 @@ px-file-upload-service-type btuart-configuration - btuart-service-type - - bluetooth-client-manager-configuration - bluetooth-client-manager-service-type)) + btuart-service-type)) ;; ;; Device Identity API SERVICE @@ -316,57 +313,4 @@ delete_on_success = ~a" 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 |