summaryrefslogtreecommitdiff
path: root/px/packages/tmetric.scm
diff options
context:
space:
mode:
Diffstat (limited to 'px/packages/tmetric.scm')
-rw-r--r--px/packages/tmetric.scm144
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.")