ctftilde/gen-config-scm


1
2
3
4
5
6
7
8
9
10
11
12
13
14

#!/bin/sh

printf '%s' '
(define-module ('"$1"' config)
  #:export (config))

(define pre-inst-module
  `('"$1"' pre-inst-config))

(define config
  (or (false-if-exception (module-ref (resolve-module pre-inst-module)
                                      `config))
      `((datarootpath . ("'"$datarootdir/$1"'")))))
'