diff options
Diffstat (limited to 'px/packages/user-services.scm')
| -rw-r--r-- | px/packages/user-services.scm | 180 |
1 files changed, 92 insertions, 88 deletions
diff --git a/px/packages/user-services.scm b/px/packages/user-services.scm index cf62f7f..76308b7 100644 --- a/px/packages/user-services.scm +++ b/px/packages/user-services.scm @@ -18,59 +18,61 @@ #:use-module (px packages secret) #:use-module (px packages time-tracking) #:use-module (px packages settings) - #:use-module ((guix licenses) #:prefix license:)) - + #: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")))) + (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))) + `(#: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") @@ -81,51 +83,53 @@ (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")))) + (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))) + `(#: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))) (home-page "https://www.pantherx.org/") (synopsis "PantherX user services execution package") (description "Run user-level services for PantherX desktop") - (license license:expat)))
\ No newline at end of file + (license license:expat))) |