1 files changed, 77 insertions, 0 deletions
diff --git a/px/packages/user-services.scm b/px/packages/user-services.scm
new file mode 100644
index 0000000..b903c3b
--- /dev/null
+++ b/px/packages/user-services.scm
@@ -0,0 +1,77 @@
+(define-module (px packages user-services)
+  #:use-module (guix packages)
+  #:use-module (guix build-system trivial)
+  #:use-module (guix download)
+  #:use-module (guix utils)
+  #:use-module (gnu packages bash)
+  #:use-module (gnu packages base)
+  #:use-module (gnu packages compression)
+  #:use-module (gnu packages guile-xyz)
+  #:use-module (gnu packages syncthing)
+  #:use-module (gnu packages sync)
+  #:use-module (px packages accounts)
+  #:use-module (px packages contacts-calendar)
+  #:use-module (px packages desktop-tools)
+  #:use-module (px packages events)
+  #:use-module (px packages hub)
+  #:use-module (px packages mastodon)
+  #:use-module (px packages secret)
+  #:use-module (px packages time-tracking)
+  #:use-module (px packages settings)
+  #:use-module ((guix licenses) #:prefix license:))
+
+
+(define-public px-user-services
+  (package
+    (name "px-user-services")
+    (version "2.0.6")
+    (source
+      (origin
+        (method url-fetch)
+        (uri (string-append "https://source.pantherx.org/" name "_v" version ".tgz"))
+        (sha256
+          (base32 "0mrqdgcm7z20inf6qrq8agliidn13327gihjassqdlcr9k7fkq1y"))))
+    (build-system trivial-build-system)
+    (arguments
+      `(#:modules ((guix build utils))
+        #:builder 
+        (begin
+          (use-modules (guix build utils))
+	        (let* ((out (assoc-ref %outputs "out"))
+	               (src (assoc-ref %build-inputs "source")))
+	          (setenv "PATH"
+		          (string-append
+		            (assoc-ref %build-inputs "tar") "/bin" ":"
+		            (assoc-ref %build-inputs "gzip") "/bin" ":"))
+            (invoke "tar" "xvf" src)
+            (chdir ,name)
+	          (mkdir-p (string-append out "/etc/xdg/autostart"))
+	          (copy-recursively "etc/xdg/autostart"
+			                        (string-append out "/etc/xdg/autostart"))
+	          (mkdir-p (string-append out "/etc/px/services"))
+	          (copy-recursively "etc/px/services"
+			                        (string-append out "/etc/px/services"))
+	          (substitute* (string-append out "/etc/xdg/autostart/user-services.desktop")
+		          (("Exec=/etc/px/services/start.sh")
+			         (string-append "Exec=" out "/etc/px/services/start.sh")))
+            #t))))
+    (native-inputs
+     `(("tar" ,tar)
+       ("gzip" ,gzip)))
+    (propagated-inputs
+      `(
+        ; ("px-secret-service"   ,px-secret-service)
+        ; ("px-events-service"   ,px-events-service)
+        ; ("px-accounts-service" ,px-accounts-service)
+        ; ("px-contacts-calendar" ,px-contacts-calendar)
+        ("px-settings-service" ,px-settings-service)
+        ; ("px-mastodon-service" ,px-mastodon-service)
+        ; ("px-hub-service"      ,px-hub-service)
+        ; ("px-time-tracking"  ,px-time-tracking)
+        ("mcron" ,mcron)
+      	("syncthing" ,syncthing)
+	      ("syncthingtray" ,syncthingtray)))
+    (home-page "https://www.pantherx.org/")
+    (synopsis "PantherX user services execution package")
+    (description "Run user-level services for PantherX desktop")
+    (license license:expat)))