me/guix
Archived
1
0
Fork 0
Code Activity

gnu: ikiwiki: Fetch sources from git repository.

Browse source 
* gnu/packages/web.scm (ikiwiki)[source]: Use GIT-FETCH and
GIT-FILE-NAME.
[source](snippet): New field.
[arguments]<#:phases>[set-modification-times]: New phase.
This commit is contained in:
Paul Garlick 2020-04-24 13:07:07 +01:00
parent cf480830e2
commit add3e168bb
No known key found for this signature in database
GPG key ID: AAC7E891896B568A
1 changed files with 20 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

25
gnu/packages/web.scm
View file

@ -4813,13 +4813,20 @@ NetSurf project.")
(version "3.20190228") (version "3.20190228")
(source (source
(origin (origin
(method url-fetch) (method git-fetch)
(uri (string-append "http://snapshot.debian.org/archive/debian/" (uri (git-reference
"20190301T035241Z/pool/main/i/ikiwiki/ikiwiki_" (url "git://git.ikiwiki.info/")
version ".orig.tar.xz")) (commit version)))
(file-name (git-file-name name version))
(sha256 (sha256
(base32 (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) (build-system perl-build-system)
(arguments (arguments
`(#:phases `(#:phases
@ -4838,6 +4845,14 @@ NetSurf project.")
(substitute* "Makefile.PL" (substitute* "Makefile.PL"
(("SYSCONFDIR\\?=") "SYSCONFDIR?=$(PREFIX)")) (("SYSCONFDIR\\?=") "SYSCONFDIR?=$(PREFIX)"))
#t)) #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 (add-after 'install 'wrap-programs
(lambda* (#:key outputs #:allow-other-keys) (lambda* (#:key outputs #:allow-other-keys)
(let* ((out (assoc-ref outputs "out")) (let* ((out (assoc-ref outputs "out"))