gnu: Add annextimelog.

* gnu/packages/task-management.scm (annextimelog): New variable.

Change-Id: I7adf4263422fdb1edcb5dfc878cb1decb529c27e
Signed-off-by: Sharlatan Hellseher <sharlatanus@gmail.com>

gnu/packages/task-management.scm

@@ -12,6 +12,7 @@
 ;;; Copyright © 2022 Matthew James Kraai <kraai@ftbfs.org>
 ;;; Copyright © 2024 Artyom V. Poptsov <poptsov.artyom@gmail.com>
 ;;; Copyright © 2025 Ricardo Wurmus <rekado@elephly.net>
+;;; Copyright © 2025 Matthias Riße <matrss@0px.xyz>
 ;;;
 ;;; This file is part of GNU Guix.
 ;;;
@@ -45,6 +46,7 @@
   #:use-module (gnu packages golang-xyz)
   #:use-module (gnu packages gstreamer)
   #:use-module (gnu packages gtk)
+  #:use-module (gnu packages haskell-apps)
   #:use-module (gnu packages hunspell)
   #:use-module (gnu packages linux)
   #:use-module (gnu packages lua)
@@ -60,6 +62,7 @@
   #:use-module (gnu packages ruby)
   #:use-module (gnu packages time)
   #:use-module (gnu packages tls)
+  #:use-module (gnu packages version-control)
   #:use-module (guix download)
   #:use-module (guix git-download)
   #:use-module (guix hg-download)
@@ -113,6 +116,49 @@
 following the Japanese kanban (boarding) style.")
       (license license:expat))))
 
+(define-public annextimelog
+  (package
+    (name "annextimelog")
+    (version "0.14.0")
+    (source
+     (origin
+       (method url-fetch)
+       (uri (pypi-uri "annextimelog" version))
+       (sha256
+        (base32 "0m1q0pbjy7d4yvgkflg7208gmdrqn1cx346b4li0mlss1kr91hvz"))))
+    (build-system pyproject-build-system)
+    (arguments
+     (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 "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
   ;; Last release is more than 10 years old.  Using latest commit.
   (let ((changeset "89ad444c000b")