Update package

1 files changed, 37 insertions, 18 deletions

diff --git a/vkraus/packages/disfluid.scm b/vkraus/packages/disfluid.scm
index 82fc343..f085741 100644
--- a/vkraus/packages/disfluid.scm
+++ b/vkraus/packages/disfluid.scm
@@ -35,27 +35,51 @@
 (define-public disfluid
   (package
     (name "disfluid")
-    (version "0.0.4-56-gf21598d")
+    (version "0.0.4-56-g57df1de")
     (source
       (origin
         (method git-fetch)
         (uri (git-reference
                (url "https://labo.planete-kraus.eu/disfluid.git")
                (commit
-                 "f21598d98ccee327650fae453d0b36e0e950a2ca")))
+                 "57df1de21e4fed31376b7540df6e7ad2424348e1")))
         (sha256
           (base32
-            "0w85nhdms0r12sshgs3b4888812vw77f7p8jw6409d7gpmh0ab7z"))))
+            "1f5wf6sjdah2hnai36gs0kkwz93iagpk7dgi1abbbw73iyzh1b0c"))))
     (build-system gnu-build-system)
     (arguments
       `(#:phases
         (modify-phases
           %standard-phases
+          (add-after
+            'unpack
+            'fix-mtime
+            (lambda _
+              (use-modules (ice-9 ftw))
+              (let ((disfluid-commit-date 1650060180))
+                (let ((enter? (lambda (name stat result) #t))
+                      (leaf (lambda (name stat result)
+                              (utime name
+                                     disfluid-commit-date
+                                     disfluid-commit-date)))
+                      (down (lambda (name stat result) result))
+                      (up (lambda (name stat result) result))
+                      (skip (lambda (name stat result) result))
+                      (error (lambda (name stat errno result) result)))
+                  (file-system-fold
+                    enter?
+                    leaf
+                    down
+                    up
+                    skip
+                    error
+                    #t
+                    ".")))))
           (add-before
             'bootstrap
             'fix-hall.scm
             (lambda _
-              (let ((disfluid-version "0.0.4-56-gf21598d"))
+              (let ((disfluid-version "0.0.4-56-g57df1de"))
                 (substitute*
                   "hall.scm"
                   (("SNAPSHOT") disfluid-version)))))
@@ -101,11 +125,6 @@
             'support-config.scm
             'gettextize
             (lambda _
-              (use-modules (srfi srfi-19))
-              (let ((disfluid-commit-date 1650059526))
-                (utime "po/disfluid.pot"
-                       disfluid-commit-date
-                       disfluid-commit-date))
               (substitute*
                 "configure.ac"
                 (("AC_OUTPUT")
@@ -158,15 +177,15 @@
                           "DISTCHECK_CONFIGURE_FLAGS=SHELL=~a"
                           (search-input-file inputs "/bin/bash"))))
               (copy-file
-                "disfluid-0.0.4-56-gf21598d.tar.gz"
-                "/tmp/disfluid-0.0.4-56-gf21598d.tar.gz")
+                "disfluid-0.0.4-56-g57df1de.tar.gz"
+                "/tmp/disfluid-0.0.4-56-g57df1de.tar.gz")
               (with-directory-excursion
                 "/tmp"
                 (invoke
                   "tar"
                   "xf"
-                  "disfluid-0.0.4-56-gf21598d.tar.gz")
-                (delete-file "disfluid-0.0.4-56-gf21598d.tar.gz")
+                  "disfluid-0.0.4-56-g57df1de.tar.gz")
+                (delete-file "disfluid-0.0.4-56-g57df1de.tar.gz")
                 (invoke
                   "tar"
                   "--sort=name"
@@ -176,11 +195,11 @@
                   "--numeric-owner"
                   "--pax-option=exthdr.name=%d/PaxHeaders/%f,delete=atime,delete=ctime"
                   "-cf"
-                  "disfluid-0.0.4-56-gf21598d.tar.gz"
-                  "disfluid-0.0.4-56-gf21598d"))
+                  "disfluid-0.0.4-56-g57df1de.tar.gz"
+                  "disfluid-0.0.4-56-g57df1de"))
               (copy-file
-                "/tmp/disfluid-0.0.4-56-gf21598d.tar.gz"
-                "disfluid-0.0.4-56-gf21598d.tar.gz")))
+                "/tmp/disfluid-0.0.4-56-g57df1de.tar.gz"
+                "disfluid-0.0.4-56-g57df1de.tar.gz")))
           (add-after
             'install
             'install-complete-corresponding-source
@@ -188,7 +207,7 @@
               (let ((out (assoc-ref outputs "out")))
                 (mkdir-p (string-append out "/share/disfluid"))
                 (copy-file
-                  "disfluid-0.0.4-56-gf21598d.tar.gz"
+                  "disfluid-0.0.4-56-g57df1de.tar.gz"
                   (string-append
                     out
                     "/share/disfluid/complete-corresponding-source.tar.gz"))))))))