Subject: [PATCH] gnu: Add annextimelog.

From: Sharlatan Hellseher <[email-masked]>
Date: Mon, 03 Feb 2025 22:04:27 +0000

Hi,

Applied some changes:
 
--8<---------------cut here---------------start------------->8---
@@ -12,6 +12,7 @@
 ;;; Copyright © 2022 Matthew James Kraai <[email-masked]>
 ;;; Copyright © 2024 Artyom V. Poptsov <[email-masked]>
 ;;; Copyright © 2025 Ricardo Wurmus <[email-masked]>
+;;; Copyright © 2025 Matthias Riße <[email-masked]>
 ;;;
 ;;; This file is part of GNU Guix.
 ;;;
@@ -127,28 +128,35 @@ (define-public annextimelog
         (base32 "0m1q0pbjy7d4yvgkflg7208gmdrqn1cx346b4li0mlss1kr91hvz"))))
     (build-system pyproject-build-system)
     (arguments
-     '(#:phases (modify-phases %standard-phases
-                  (replace 'check
-                    (lambda* (#:key tests? #:allow-other-keys)
-                      (when tests?
-                        (invoke "python" "-m" "unittest"))))
-                  (add-after 'create-entrypoints 'wrap-with-runtime-dependencies
-                    (lambda* (#:key outputs #:allow-other-keys)
-                      (let ((bin (string-append (assoc-ref outputs "out")
-                                                "/bin")))
-                        (for-each (lambda (file)
-                                    (wrap-program file
-                                      `("PATH" ":" prefix
-                                        (,(dirname (which "git"))
-                                         ,(dirname (which "git-annex"))))))
-                                  (list (string-append bin "/annextimelog")
-                                        (string-append bin "/atl")))))))))
-    (propagated-inputs (list python-rich python-tzdata))
-    (inputs (list bash-minimal git git-annex))
-    (native-inputs (list python-poetry-core))
+     (list
+      #:test-flags #~(list "annextimelog/test.py")
+      #:phases
+      #~(modify-phases %standard-phases
+          (add-after 'create-entrypoints 'wrap-program
+            (lambda* (#:key outputs #:allow-other-keys)
+              (let ((bin (string-append #$output "/bin")))
+                (for-each (lambda (file)
+                            (wrap-program file
+                              `("PATH" ":" prefix
+                                (,(dirname (which "git"))
+                                 ,(dirname (which "git-annex"))))))
+                          (list (string-append bin "/annextimelog")
+                                (string-append bin "/atl")))))))))
+    (native-inputs
+     (list python-poetry-core
+           python-pytest))
+    (inputs
+     (list bash-minimal
+           git
+           git-annex))
+    (propagated-inputs
+     (list python-rich
+           python-tzdata))
     (home-page "https://gitlab.com/nobodyinperson/annextimelog")
-    (synopsis "Track time spent on projects, backed by Git Annex")
-    (description "Track time spent on projects, backed by Git Annex.")
+    (synopsis "Git Annex-backed Time Tracking")
+    (description
+     "This package provides a functionality to track time spent on projects,
+backed by Git Annex.")
     (license license:gpl3+)))
 
 (define-public t-todo-manager
--8<---------------cut here---------------end--------------->8---

Pushed to master as:
6964f7ad348 * gnu: Add annextimelog.

--
Thanks,
Oleg