Hi,
On Sat, 19 Apr 2025 at 07:18, Yuval Langer <[email protected]> wrote:
> What is happening?
I think it’s because the original file srfi-234.org does not have the
header #+TEXINFO_DIR_TITLE.
> #:install-plan #~'(("srfi-234.info" "share/info/"))
> #:phases #~(modify-phases %standard-phases
> (add-after 'patch-source-shebangs 'compile-the-files
> (lambda _
> (import (ice-9 ftw))
> (system* "emacs"
Instead of ’system*’, you should prefer ’invoke’.
> "--batch"
> "--eval"
> "(progn
It seems cleaner to have (require ’ox-texinfo).
> (find-file \"srfi-234.org\")
> (org-texinfo-export-to-info))")
> (mkdir-p (string-append #$output "/share/info"))
> (copy-file "srfi-234.info"
> (string-append #$output
> "/share/info/srfi-234.info")
> ))))))
Well, ’mkdir-p’ + ’copy-file’ reads ’install-file’ instead. :-)
Moreover, you do not need this since you already provided an install
plan. ;-)
Please find attach the fixes.
HTH.
Cheers,
simon
(use-modules
(gnu packages emacs)
(gnu packages texinfo)
(gnu packages)
(guix build-system copy)
(guix gexp)
(guix git-download)
((guix licenses) #:prefix license:)
(guix packages)
)
(define-public guile-srfi-234-manual
(let ((version "1.0.0")
(revision "1")
(commit "eb13bc13f5b94ae837a6cc6867ccb46595a12ea3"))
(package
(name "guile-srfi-234-manual")
(version (git-version version revision commit))
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://codeberg.org/kakafarm/guile-srfi-234-manual";)
(commit commit)))
(file-name (git-file-name name version))
(sha256
(base32 "19rrvnjrfxil8ms8zhf9ns2yq80pwwizrbig635dvg27zxij1lzd"))))
(build-system copy-build-system)
(arguments
(list
#:install-plan #~'(("srfi-234.info" "/share/info/"))
#:phases #~(modify-phases %standard-phases
(add-after 'unpack 'fix-org-file
(lambda _
(substitute* "srfi-234.org"
(("The Algorithmic Language Scheme")
"The Algorithmic Language Scheme
#+TEXINFO_DIR_TITLE: SRFI-234: (srfi-234)"))))
(add-before 'install 'build
(lambda _
(invoke "emacs"
"--batch"
"--eval"
"(progn
(require 'ox-texinfo)
(find-file \"srfi-234.org\")
(org-texinfo-export-to-info))"))))))
(native-inputs (list emacs texinfo))
(home-page "https://codeberg.org/kakafarm/guile-srfi-234-manual";)
(synopsis "Topological sorting module for Guile Scheme")
(description
"Topological sorting is an algorithm that takes a graph consisting of
nodes and other nodes that depend on them, forming a partial order, and
returns a list representing a total ordering of the graph. If the graph is
cyclic, the topological sort will fail. The procedure topological-sort returns
three values. If sorting succeeds, the first value contains the result and the
second and third are #false. If sorting fails, the result is #false and the
second and third value may provide additional information about the error.")
(license license:expat))))
guile-srfi-234-manual
