01/06: gnu: ikiwiki: Fetch sources from git repository.

[guix-commits]

pgarlick pushed a commit to branch master
in repository guix.

commit add3e168bb25e0af8a6225f5c93a311aae0268b2
Author: Paul Garlick <address@hidden>
AuthorDate: Fri Apr 24 13:07:07 2020 +0100

    gnu: ikiwiki: Fetch sources from git repository.
    
    * gnu/packages/web.scm (ikiwiki)[source]: Use GIT-FETCH and
    GIT-FILE-NAME.
    [source](snippet): New field.
    [arguments]<#:phases>[set-modification-times]: New phase.
---
 gnu/packages/web.scm | 25 ++++++++++++++++++++-----
 1 file changed, 20 insertions(+), 5 deletions(-)

diff --git a/gnu/packages/web.scm b/gnu/packages/web.scm
index f5189dc..bfd8486 100644
--- a/gnu/packages/web.scm
+++ b/gnu/packages/web.scm
@@ -4813,13 +4813,20 @@ NetSurf project.")
     (version "3.20190228")
     (source
      (origin
-       (method url-fetch)
-       (uri (string-append "http://snapshot.debian.org/archive/debian/";
-                           "20190301T035241Z/pool/main/i/ikiwiki/ikiwiki_"
-                           version ".orig.tar.xz"))
+       (method git-fetch)
+       (uri (git-reference
+             (url "git://git.ikiwiki.info/")
+             (commit version)))
+       (file-name (git-file-name name version))
        (sha256
         (base32
-         "17pyblaqhkb61lxl63bzndiffism8k859p54k3k4sghclq6lsynh"))))
+         "1c0i48jp2vpiwn2pacr6jbjdj26v7s9vzzs7j7gc16bx37dfgbbi"))
+       (snippet
+        '(begin
+           ;; The POT file requires write permission during the build
+           ;; phase.
+           (chmod "po/ikiwiki.pot" #o644)
+           #t))))
     (build-system perl-build-system)
     (arguments
      `(#:phases
@@ -4838,6 +4845,14 @@ NetSurf project.")
              (substitute* "Makefile.PL"
                (("SYSCONFDIR\\?=") "SYSCONFDIR?=$(PREFIX)"))
              #t))
+         (add-before 'build 'set-modification-times
+           ;; The wiki '--refresh' steps, which are executed during
+           ;; the check phase, require recent timestamps on files in
+           ;; the 'doc' and 'underlays' directories.
+           (lambda _
+             (invoke "find"  "doc" "underlays" "-type" "f" "-exec"
+                     "touch" "{}" "+")
+             #t))
          (add-after 'install 'wrap-programs
            (lambda* (#:key outputs #:allow-other-keys)
              (let* ((out  (assoc-ref outputs "out"))