Re: Version of package fontforge

[ison <ison@airmail.cc>]

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

Here's a patch to set the version date based on the packages version string.
I also added a comment above the version to note that the version date depends
on its format, in case it ever changes in the future.

Does someone want to look it over and make sure it looks ok, and follows the
right conventions?

[-- Attachment #2: 0001-Fix-fontforge-source-date-epoch.patch --]
[-- Type: text/plain, Size: 1497 bytes --]

From e2fe29485a1f65d65fd7db5b6111d4cfe8ca1485 Mon Sep 17 00:00:00 2001
From: ison <ison@airmail.cc>
Date: Thu, 6 Jun 2019 22:46:12 -0600
Subject: [PATCH] Fix fontforge source date epoch

---
 gnu/packages/fontutils.scm | 15 ++++++++++++++-
 1 file changed, 14 insertions(+), 1 deletion(-)

diff --git a/gnu/packages/fontutils.scm b/gnu/packages/fontutils.scm
index 1982d0bf4b..44107277cb 100644
--- a/gnu/packages/fontutils.scm
+++ b/gnu/packages/fontutils.scm
@@ -555,6 +555,8 @@ definitions.")
 (define-public fontforge
   (package
    (name "fontforge")
+   ;; SOURCE_DATE_EPOCH generated from version string
+   ;; expects format YYYYMMDD
    (version "20190317")
    (source (origin
             (method url-fetch)
@@ -592,7 +594,18 @@ definitions.")
              ("python"          ,python-2)
              ("zlib"            ,zlib)))
    (arguments
-    '(#:phases
+    `(#:modules ((guix build utils)
+                 (guix build gnu-build-system)
+                 (srfi srfi-19))
+      #:configure-flags
+      (list (format #f "SOURCE_DATE_EPOCH=~a"
+                    (time-second
+                      (date->time-utc
+                        (string->date
+                          (string-append ,version
+                                         "-0000")
+                          "~Y~m~d~z")))))
+      #:phases
       (modify-phases %standard-phases
         (add-after 'install 'set-library-path
           (lambda* (#:key inputs outputs #:allow-other-keys)
-- 
2.21.0