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

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

[Foo Chuan Wei]

* 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 <bavier@posteo.net>
 ;;; Copyright © 2021 Stefan Reichör <stefan@xsteve.at>
 ;;; Copyright © 2021 LibreMiami <packaging-guix@libremiami.org>
+;;; Copyright © 2022 Foo Chuan Wei <chuanwei.foo@hotmail.com>
 ;;;
 ;;; 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

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

[Maxime Devos]

[-- Attachment #1: Type: text/plain, Size: 523 bytes --]

Foo Chuan Wei schreef op di 19-04-2022 om 07:27 [+0000]:
> +             (string-append "BIN=" %output "/bin")
> +             (string-append "MAN=" %output "/share/man"))

%output is undocumented, use #$output instead:

  (arguments
    (list #:make-flags
          #~(list (string-append "CC=" #$(cc-for-target))
                  (string-append "BIN=" #$output "/bin")
                  ...)
          #:phases
          #~(modify-phases ...)
          ...))

Greetings,
Maxime.

[-- Attachment #2: This is a digitally signed message part --]
[-- Type: application/pgp-signature, Size: 260 bytes --]

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

[Mathieu Othacehe]

Pushed with the following modifications:

--8<---------------cut here---------------start------------->8---
--- a/gnu/packages/task-management.scm
+++ b/gnu/packages/task-management.scm
@@ -160,24 +160,24 @@ (define-public worklog
          (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.
+      (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 "Program 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))))
+      (license license:public-domain))))
--8<---------------cut here---------------end--------------->8---

Thanks,

Mathieu