ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-12-25 22:08:16 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

gnu: exa: Only build with pandoc when supported.

Browse source 
* gnu/packages/rust-apps.scm (exa)[arguments]: Adjust custom
'build-manual phase to only build when pandoc is available. Adjust
custom 'install-extras to only install man pages when they are
available.
[native-inputs]: Only include pandoc on systems where it is supported.
This commit is contained in:
Efraim Flashner 2022-09-28 13:47:54 +03:00
parent 62f80d215e
commit 1590d6d58e
No known key found for this signature in database
GPG key ID: 41AAE7DCCA3D8351
1 changed files with 21 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

30
gnu/packages/rust-apps.scm
View file

@ -403,20 +403,26 @@ (define-public exa
#:phases
(modify-phases %standard-phases
(add-after 'build 'build-manual
(lambda _
(map (lambda (page)
(system (string-append
"pandoc --standalone -f markdown -t man man/"
page ".md > " page)))
`("exa.1" "exa_colors.5"))))
(lambda* (#:key inputs #:allow-other-keys)
(when (assoc-ref inputs "pandoc")
(map (lambda (page)
(with-output-to-file page
(lambda _
(invoke "pandoc" "--standalone"
"-f" "markdown"
"-t" "man"
(string-append "man/" page ".md")))))
(list "exa.1" "exa_colors.5")))))
(add-after 'install 'install-extras
(lambda* (#:key outputs #:allow-other-keys)
(let* ((out (assoc-ref outputs "out"))
(share (string-append out "/share"))
(man1 (string-append share "/man/man1"))
(man5 (string-append share "/man/man5")))
(install-file "exa.1" man1)
(install-file "exa_colors.5" man5)
(when (file-exists? "exa.1")
(install-file "exa.1" man1))
(when (file-exists? "exa_colors.5")
(install-file "exa_colors.5" man5))
(mkdir-p (string-append out "/etc/bash_completion.d"))
(mkdir-p (string-append share "/fish/vendor_completions.d"))
(mkdir-p (string-append share "/zsh/site-functions"))
@ -429,7 +435,13 @@ (define-public exa
(string-append
share "/zsh/site-functions/_exa"))))))))
(inputs (list libgit2 zlib))
(native-inputs (list pkg-config pandoc))
(native-inputs
(append
(list pkg-config)
(if (member (%current-system)
(package-transitive-supported-systems pandoc))
(list pandoc)
'())))
(home-page "https://the.exa.website/")
(synopsis "Modern replacement for ls")
(description "@code{exa} is a modern replacement for the command-line