Subject: [bug#55017] [PATCH] gnu: Add worklog.

From: Foo Chuan Wei <[email-masked]>
Date: Tue, 19 Apr 2022 07:27:29 +0000

* gnu/packages/task-management.scm (worklog): New variable.
---
 gnu/packages/task-management.scm | 36 ++++++++++++++++++++++++++++++++
 1 file changed, 36 insertions(+)

diff --git a/gnu/packages/task-management.scm b/gnu/packages/task-management.scm
index c349081f01..04cbc2e780 100644
--- a/gnu/packages/task-management.scm
+++ b/gnu/packages/task-management.scm
@@ -4,6 +4,7 @@
 ;;; Copyright © 2021 Eric Bavier <[email-masked]>
 ;;; Copyright © 2021 Stefan Reichör <[email-masked]>
 ;;; Copyright © 2021 LibreMiami <[email-masked]>
+;;; Copyright © 2022 Foo Chuan Wei <[email-masked]>
 ;;;
 ;;; This file is part of GNU Guix.
 ;;;
@@ -32,6 +33,7 @@
   #:use-module (gnu packages gtk)
   #:use-module (gnu packages linux)
   #:use-module (gnu packages lua)
+  #:use-module (gnu packages ncurses)
   #:use-module (gnu packages pkg-config)
   #:use-module (gnu packages python)
   #:use-module (gnu packages python-xyz)
@@ -141,6 +143,40 @@ Done time management method.  It supports network synchronization, filtering
 and querying data, exposing task data in multiple formats to other tools.")
     (license license:expat)))
 
+(define-public worklog
+  (let ((commit "0f545ad6697ef4de7f68d92cd7cc5c6a4c60517b")
+        (revision "1"))
+    (package
+      (name "worklog")
+      (version (git-version "2.1" revision commit))
+      (source
+       (origin
+         (method git-fetch)
+         (uri (git-reference
+               (url "https://github.com/atsb/worklog")
+               (commit commit)))
+         (file-name (git-file-name name version))
+         (sha256
+          (base32 "18dkmy168ks9gcnfqri1rfl0ag0dmh9d6ppfmjfcdd6g9gvi6zll"))))
+    (build-system gnu-build-system)
+    (arguments
+     `(#:make-flags
+       (list (string-append "CC=" ,(cc-for-target))
+             (string-append "BIN=" %output "/bin")
+             (string-append "MAN=" %output "/share/man"))
+       #:phases
+       (modify-phases %standard-phases
+         (delete 'configure))
+       #:tests? #f))  ; No "check" target.
+    (inputs (list ncurses))
+    (home-page "https://github.com/atsb/worklog")
+    (synopsis "A program for keeping track of time spent on different projects")
+    (description
+     "@code{worklog} is a program that helps you keep track of your time.
+@code{worklog} is a simple ncurses based based program that runs a clock and
+logs time to a logfile.")
+    (license license:public-domain))))
+
 (define-public dstask
   (package
     (name "dstask")

base-commit: 6b677f4299f38ea70e1852388086ee95c2c48622
-- 
2.25.1