28 lines
931 B
Scheme
Executable file
28 lines
931 B
Scheme
Executable file
#!/usr/local/bin/guile \
|
|
--no-auto-compile -e main -s
|
|
!#
|
|
|
|
;; Creator: nik gaffney <nik@fo.am>
|
|
;; Created: 2023-10-23
|
|
;; Copyright ©️ 2023 FoAM oü
|
|
;; SPDX-License-Identifier: GPL-3.0-or-later
|
|
|
|
(define pandoc "pandoc")
|
|
(define template "invoice-template.tex")
|
|
(define pdf-engine "xelatex")
|
|
|
|
;; compose & execute suitable pandoc command
|
|
(define (run-pandoc file)
|
|
(let* ((output-file (basename file ".yaml"))
|
|
(status (system
|
|
(format #f "~a '~a' -o '~a.pdf' --template='~a' --pdf-engine=~a --quiet"
|
|
pandoc file output-file template pdf-engine))))
|
|
(if (eq? status 0)
|
|
(display (format #f "successfully generated ~a.pdf\n" output-file))
|
|
(display (format #f "error generating ~a.pdf\n" output-file)))))
|
|
|
|
(define (main args)
|
|
(if (eq? (length args) 2)
|
|
(run-pandoc (list-ref args 1))
|
|
(display (format #f "usage: ~a <filename.yaml>\n" (car args)))))
|