09/10: gnu: libreoffice: Build reproducibly.

[guix-commits]

nckx pushed a commit to branch master
in repository guix.

commit 0d5578c12beec105f5ec113cc50deab703270a82
Author: Tobias Geerinckx-Rice <me@tobias.gr>
AuthorDate: Mon Nov 30 21:15:44 2020 +0100

    gnu: libreoffice: Build reproducibly.
    
    * gnu/packages/libreoffice.scm (libreoffice)[native-inputs]: Add ziptime.
    [arguments]: Add a 'reset-zip-timestamps phase that invokes it.
---
 gnu/packages/libreoffice.scm | 10 +++++++++-
 1 file changed, 9 insertions(+), 1 deletion(-)

diff --git a/gnu/packages/libreoffice.scm b/gnu/packages/libreoffice.scm
index d2bf5b0..714072e 100644
--- a/gnu/packages/libreoffice.scm
+++ b/gnu/packages/libreoffice.scm
@@ -1102,7 +1102,8 @@ converting QuarkXPress file format.  It supports versions 
3.1 to 4.1.")
        ("flex" ,flex)
        ("pkg-config" ,pkg-config)
        ("python" ,python-wrapper)
-       ("which" ,which)))
+       ("which" ,which)
+       ("ziptime" ,ziptime)))
     (inputs
      `(("bluez" ,bluez)
        ("boost" ,boost)
@@ -1216,6 +1217,13 @@ converting QuarkXPress file format.  It supports 
versions 3.1 to 4.1.")
                                "/bin/xdg-open")))
 
              #t))
+         (add-after 'install 'reset-zip-timestamps
+           (lambda* (#:key outputs #:allow-other-keys)
+             (let ((out (assoc-ref outputs "out")))
+               (for-each (lambda (file)
+                           (invoke "ziptime" file))
+                         ;; So many different extensions for .zip files.
+                         (find-files out "\\.(bau|dat|otp|ott|zip)$")))))
          (add-after 'install 'bin-and-desktop-install
            ;; Create 'soffice' and 'libreoffice' symlinks to the executable
            ;; script.