me
/
guix
Archived
1
0
Fork 0
Code

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

* gnu/packages/guile-xyz.scm (guile-ac-d-bus)
[arguments]: Use gexps.
[phases]{build-doc, install-doc}: New phases.
[native-inputs]: Add texinfo.
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

72
gnu/packages/guile-xyz.scm
View File

@ -3846,42 +3846,50 @@ and space linear in the size of the input text.")
"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")
(add-before 'build 'adjust-for-guile #:phases
(lambda _ #~(modify-phases %standard-phases
;; Adjust source file names for Guile. (add-before 'build 'adjust-for-guile
(define (guile-sls->sls file) (lambda _
(string-append (string-drop-right ;; Adjust source file names for Guile.
file (string-length ".guile.sls")) (define (guile-sls->sls file)
".sls")) (string-append (string-drop-right
file (string-length ".guile.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"))
;; Move directories under d-bus/ to match module names. ;; Move directories under d-bus/ to match module names.
(mkdir "d-bus") (mkdir "d-bus")
(for-each (lambda (directory) (for-each (lambda (directory)
(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")