(use-modules (guix build utils))

;; These set of substitutions convert most of the inweb markup syntax
;; to noweb markup syntax, but some parts still need to be converted by hand.

(substitute* (find-files "." "\\.nw$")
  (("^@h (.*)\n$" all header)
   (string-append "@ \\section{" header "}\n"))
  (("^=.*\n$") "<<*>>=\n")
  (("^@define ") "#define ")
  (("^@enum ") "enum ")
  (("^@d ") "#define ")
  (("^@e ") "enum ")
  (("@<") "<<")
  (("@> =") ">>=")
  (("@>") ">>")
  (("@ =") "<<*>>=")
  (("\\|(.*)\\|" all keyword)
   (string-append "[[" keyword "]]"))
  (("\\[\\[\\]\\]") "||"))