guix primer

1 files changed, 34 insertions, 0 deletions

diff --git a/mirenn/services/tailscale.scm b/mirenn/services/tailscale.scm
new file mode 100644
index 0000000..b227b19
--- /dev/null
+++ b/mirenn/services/tailscale.scm
@@ -0,0 +1,34 @@
+(define-module (mirenn services tailscale)
+  #:use-module (guix gexp)
+  #:use-module (gnu services)
+  #:use-module (gnu services shepherd)
+  #:use-module (mirenn packages tailscale))
+
+(define (tailscale-shepherd-service config)
+  (list
+    (shepherd-service
+      (documentation "Run the tailscale daemon")
+      (provision '(tailscale tailscaled))
+      (requirement '(user-processes NetworkManager))
+      (start #~(make-forkexec-constructor
+                 ;; (mkdir-p "/var/lib/tailscale")
+                 ;; (mkdir-p "/run/tailscale")
+                 (list #$(file-append tailscale "/bin/tailscaled"))))
+                       ;; "--state=/var/lib/tailscale/tailscaled.state"
+                       ;; "--socket=/run/tailscale/tailscaled.sock"
+                       ;; "--port=41641")
+                 ;; #:preserve-environment? #t
+                 ;; #:directory "/var/lib/tailscale"))
+      (stop #~(make-kill-destructor)))))
+                ;; (list #(file-append tailscale "bin/tailscaled")
+                ;;       "--cleanup")))))
+
+(define-public tailscale-service-type
+  (service-type
+    (name 'tailscale)
+    (extensions
+      (list (service-extension shepherd-root-service-type tailscale-shepherd-service)
+            (service-extension profile-service-type (lambda _
+                                                      (list tailscale)))))
+    (default-value #f)
+    (description "Run and connect to tailscale")))