diff options
Diffstat (limited to 'px/packages/tmetric.scm')
-rw-r--r-- | px/packages/tmetric.scm | 144 |
1 files changed, 85 insertions, 59 deletions
diff --git a/px/packages/tmetric.scm b/px/packages/tmetric.scm index 615bd9b..fbd0eba 100644 --- a/px/packages/tmetric.scm +++ b/px/packages/tmetric.scm @@ -1,5 +1,6 @@ (define-module (px packages tmetric) - #:use-module ((guix licenses) #:prefix license:) + #:use-module ((guix licenses) + #:prefix license:) #:use-module (guix download) #:use-module (guix packages) #:use-module (guix utils) @@ -13,76 +14,101 @@ #:use-module (gnu packages glib) #:use-module (gnu packages gtk) #:use-module (gnu packages xorg)) - - (define-public tmetric + +(define-public tmetric (package (name "tmetric") (version "20.2.4") - (source (origin - (method url-fetch) - (uri (string-append "https://source.pantherx.org/" name "_" version ".tgz")) - (sha256 - (base32 - "0ssw356b6a4z14vw74pdcplz326x6qwxpx6gnwgfg2s004w6raj8")))) + (source + (origin + (method url-fetch) + (uri (string-append "https://source.pantherx.org/" name "_" version + ".tgz")) + (sha256 + (base32 "0ssw356b6a4z14vw74pdcplz326x6qwxpx6gnwgfg2s004w6raj8")))) (build-system trivial-build-system) (arguments `(#:modules ((guix build utils)) #:builder (begin (use-modules (guix build utils) (srfi srfi-26)) - (let* ((source (assoc-ref %build-inputs "source")) - (atk (assoc-ref %build-inputs "atk")) - (bash (assoc-ref %build-inputs "bash")) - (cairo (assoc-ref %build-inputs "cairo")) - (coreutils (assoc-ref %build-inputs "coreutils")) + (let* ((source (assoc-ref %build-inputs "source")) + (atk (assoc-ref %build-inputs "atk")) + (bash (assoc-ref %build-inputs "bash")) + (cairo (assoc-ref %build-inputs "cairo")) + (coreutils (assoc-ref %build-inputs "coreutils")) (gdk-pixbuf (assoc-ref %build-inputs "gdk-pixbuf")) - (glib (assoc-ref %build-inputs "glib")) - (gzip (assoc-ref %build-inputs "gzip")) - (gtk (assoc-ref %build-inputs "gtk+")) - (pango (assoc-ref %build-inputs "pango")) - (patchelf (assoc-ref %build-inputs "patchelf")) - (tar (assoc-ref %build-inputs "tar")) - (xz (assoc-ref %build-inputs "xz")) - (libx11 (assoc-ref %build-inputs "libx11")) - (libxss (assoc-ref %build-inputs "libxscrnsaver")) - (ld-so (string-append (assoc-ref %build-inputs "glibc") - ,(glibc-dynamic-linker))) - (bin-dir (string-append %output "/bin"))) + (glib (assoc-ref %build-inputs "glib")) + (gzip (assoc-ref %build-inputs "gzip")) + (gtk (assoc-ref %build-inputs "gtk+")) + (pango (assoc-ref %build-inputs "pango")) + (patchelf (assoc-ref %build-inputs "patchelf")) + (tar (assoc-ref %build-inputs "tar")) + (xz (assoc-ref %build-inputs "xz")) + (libx11 (assoc-ref %build-inputs "libx11")) + (libxss (assoc-ref %build-inputs "libxscrnsaver")) + (ld-so (string-append (assoc-ref %build-inputs + "glibc") + ,(glibc-dynamic-linker))) + (bin-dir (string-append %output "/bin"))) (mkdir-p bin-dir) - (setenv "PATH" (string-append - (string-append bash "/bin:") - (string-append coreutils "/bin:") - (string-append gzip "/bin:") - (string-append patchelf "/bin:") - (string-append tar "/bin:") - (string-append xz "/bin:"))) + (setenv "PATH" + (string-append (string-append bash "/bin:") + (string-append coreutils "/bin:") + (string-append gzip "/bin:") + (string-append patchelf "/bin:") + (string-append tar "/bin:") + (string-append xz "/bin:"))) (invoke "tar" "xvf" source) (invoke "tar" "xvf" "tmetric/data.tar.xz") (substitute* '("usr/share/applications/tmetricdesktop.desktop") - (("Exec=/usr/share/tmetricdesktop/TMetricDesktop") (string-append "Exec=" %output "/bin/tmetric"))) + (("Exec=/usr/share/tmetricdesktop/TMetricDesktop") + (string-append "Exec=" %output "/bin/tmetric"))) (copy-recursively "usr" %output) - (invoke "patchelf" "--set-interpreter" ld-so (string-append %output "/share/tmetricdesktop/TMetricDesktop")) - (invoke "ln" "-s" (string-append %output "/share/tmetricdesktop/TMetricDesktop") - (string-append %output "/bin/tmetric")) - (wrap-program (string-append %output "/share/tmetricdesktop/TMetricDesktop") - `("LD_LIBRARY_PATH" ":" prefix (,(string-append gdk-pixbuf "/lib")))) - (wrap-program (string-append %output "/share/tmetricdesktop/TMetricDesktop") - `("LD_LIBRARY_PATH" ":" prefix (,(string-append pango "/lib")))) - (wrap-program (string-append %output "/share/tmetricdesktop/TMetricDesktop") - `("LD_LIBRARY_PATH" ":" prefix (,(string-append glib "/lib")))) - (wrap-program (string-append %output "/share/tmetricdesktop/TMetricDesktop") - `("LD_LIBRARY_PATH" ":" prefix (,(string-append cairo "/lib")))) - (wrap-program (string-append %output "/share/tmetricdesktop/TMetricDesktop") - `("LD_LIBRARY_PATH" ":" prefix (,(string-append libx11 "/lib")))) - (wrap-program (string-append %output "/share/tmetricdesktop/TMetricDesktop") - `("LD_LIBRARY_PATH" ":" prefix (,(string-append gtk "/lib")))) - (wrap-program (string-append %output "/share/tmetricdesktop/TMetricDesktop") - `("LD_LIBRARY_PATH" ":" prefix (,(string-append libxss "/lib")))) - (wrap-program (string-append %output "/share/tmetricdesktop/TMetricDesktop") - `("PATH" ":" prefix (,(string-append gtk "/bin")))) - (wrap-program (string-append %output "/share/tmetricdesktop/TMetricDesktop") - `("LD_LIBRARY_PATH" ":" prefix (,(string-append atk "/lib")))) - #t)))) + (invoke "patchelf" "--set-interpreter" ld-so + (string-append %output + "/share/tmetricdesktop/TMetricDesktop")) + (invoke "ln" "-s" + (string-append %output + "/share/tmetricdesktop/TMetricDesktop") + (string-append %output "/bin/tmetric")) + (wrap-program (string-append %output + "/share/tmetricdesktop/TMetricDesktop") + `("LD_LIBRARY_PATH" ":" prefix + (,(string-append gdk-pixbuf "/lib")))) + (wrap-program (string-append %output + "/share/tmetricdesktop/TMetricDesktop") + `("LD_LIBRARY_PATH" ":" prefix + (,(string-append pango "/lib")))) + (wrap-program (string-append %output + "/share/tmetricdesktop/TMetricDesktop") + `("LD_LIBRARY_PATH" ":" prefix + (,(string-append glib "/lib")))) + (wrap-program (string-append %output + "/share/tmetricdesktop/TMetricDesktop") + `("LD_LIBRARY_PATH" ":" prefix + (,(string-append cairo "/lib")))) + (wrap-program (string-append %output + "/share/tmetricdesktop/TMetricDesktop") + `("LD_LIBRARY_PATH" ":" prefix + (,(string-append libx11 "/lib")))) + (wrap-program (string-append %output + "/share/tmetricdesktop/TMetricDesktop") + `("LD_LIBRARY_PATH" ":" prefix + (,(string-append gtk "/lib")))) + (wrap-program (string-append %output + "/share/tmetricdesktop/TMetricDesktop") + `("LD_LIBRARY_PATH" ":" prefix + (,(string-append libxss "/lib")))) + (wrap-program (string-append %output + "/share/tmetricdesktop/TMetricDesktop") + `("PATH" ":" prefix + (,(string-append gtk "/bin")))) + (wrap-program (string-append %output + "/share/tmetricdesktop/TMetricDesktop") + `("LD_LIBRARY_PATH" ":" prefix + (,(string-append atk "/lib")))) + #t)))) (native-inputs `(("coreutils" ,coreutils) ("cairo" ,cairo) ("gcc-toolchain" ,gcc-toolchain) @@ -97,9 +123,9 @@ ("patchelf" ,patchelf) ("tar" ,tar) ("xz" ,xz))) - (inputs `(("bash" ,bash) - ("zlib" ,zlib))) - (home-page "https://tmetric.com/") + (inputs `(("bash" ,bash) + ("zlib" ,zlib))) + (home-page "https://tmetric.com/") (synopsis "Free Time Tracking Software & App") (description "TMetric is a simple and accurate work time-tracker that sets you free from tedious time reporting.") |