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

gnu: guile-ac-d-bus: Build and install info manual.

Browse source 
* gnu/packages/guile-xyz.scm (guile-ac-d-bus)
[arguments]: Use gexps.
[phases]{build-doc, install-doc}: New phases.
[native-inputs]: Add texinfo.
This commit is contained in:
Maxim Cournoyer 2022-05-27 09:59:12 -04:00
parent 07909eb092
commit 34c8558af2
No known key found for this signature in database
GPG key ID: 1260E46482E63562
1 changed files with 40 additions and 32 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

30
gnu/packages/guile-xyz.scm
View file

@ -3846,9 +3846,11 @@ (define-public guile-ac-d-bus
"0rl809qimhgz6b0rixakb42r2l4g53jr09a2g0s1hxgab0blz0kb")))) "0rl809qimhgz6b0rixakb42r2l4g53jr09a2g0s1hxgab0blz0kb"))))
(build-system guile-build-system) (build-system guile-build-system)
(arguments (arguments
`(#:implicit-inputs? #f ;needs nothing but Guile (list
#:compile-flags '("--r6rs" "-Wunbound-variable" "-Warity-mismatch") #:implicit-inputs? #f ;needs nothing but Guile
#:phases (modify-phases %standard-phases #:compile-flags #~(list "--r6rs" "-Wunbound-variable" "-Warity-mismatch")
#:phases
#~(modify-phases %standard-phases
(add-before 'build 'adjust-for-guile (add-before 'build 'adjust-for-guile
(lambda _ (lambda _
;; Adjust source file names for Guile. ;; Adjust source file names for Guile.
@ -3857,16 +3859,16 @@ (define (guile-sls->sls file)
file (string-length ".guile.sls")) file (string-length ".guile.sls"))
".sls")) ".sls"))
;; Remove files targeting other implementations: ;; Remove files targeting other implementations: *.mosh.sls,
;; *.mosh.sls, etc. ;; etc.
(for-each delete-file (for-each delete-file
(find-files (find-files
"compat" "compat"
(lambda (file stat) (lambda (file stat)
(not (string-contains file ".guile."))))) (not (string-contains file ".guile.")))))
;; Rename *.guile.sls to *.sls so the ".guile" bit does ;; Rename *.guile.sls to *.sls so the ".guile" bit does not
;; not appear in .go file names. ;; appear in .go file names.
(for-each (lambda (file) (for-each (lambda (file)
(rename-file file (guile-sls->sls file))) (rename-file file (guile-sls->sls file)))
(find-files "compat" "\\.guile\\.sls")) (find-files "compat" "\\.guile\\.sls"))
@ -3877,11 +3879,17 @@ (define (guile-sls->sls file)
(rename-file directory (rename-file directory
(string-append "d-bus/" (string-append "d-bus/"
directory))) directory)))
'("compat" "protocol")) '("compat" "protocol"))))
(add-after 'build 'build-doc
#t))))) (lambda _
(with-directory-excursion "docs"
(invoke "makeinfo" "ac-d-bus"))))
(add-after 'install 'install-doc
(lambda _
(install-file "docs/ac-d-bus.info"
(string-append #$output "/share/info")))))))
(native-inputs (native-inputs
(list guile-3.0)) (list guile-3.0 texinfo))
(propagated-inputs (propagated-inputs
(list guile-packrat)) (list guile-packrat))
(synopsis "D-Bus protocol implementation in R6RS Scheme") (synopsis "D-Bus protocol implementation in R6RS Scheme")