package-config.scm.in 1.4 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748
  1. ;;; Mudsync --- Live hackable MUD
  2. ;;; Copyright © 2017 Christine Lemmer-Webber <cwebber@dustycloud.org>
  3. ;;;
  4. ;;; This file is part of Mudsync.
  5. ;;;
  6. ;;; Mudsync is free software; you can redistribute it and/or modify it
  7. ;;; under the terms of the GNU General Public License as published by
  8. ;;; the Free Software Foundation; either version 3 of the License, or
  9. ;;; (at your option) any later version.
  10. ;;;
  11. ;;; Mudsync is distributed in the hope that it will be useful, but
  12. ;;; WITHOUT ANY WARRANTY; without even the implied warranty of
  13. ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
  14. ;;; General Public License for more details.
  15. ;;;
  16. ;;; You should have received a copy of the GNU General Public License
  17. ;;; along with Mudsync. If not, see <http://www.gnu.org/licenses/>.
  18. (define-module (mudsync package-config)
  19. #:export (%datadir
  20. scope-datadir web-static-filepath
  21. %mudsync-package-name %mudsync-version))
  22. (define %datadir
  23. (or (getenv "MUDSYNC_DATADIR")
  24. "@package_datadir@/@PACKAGE_NAME@"))
  25. (define (scope-datadir filename)
  26. (string-append %datadir filename))
  27. (define (web-static-filepath filename)
  28. (scope-datadir (string-append "/web-static" filename)))
  29. (define %mudsync-package-name
  30. "@PACKAGE_NAME@")
  31. (define %mudsync-version
  32. "@PACKAGE_VERSION@")
  33. ;; (define %mudsync-bug-report-address
  34. ;; "@PACKAGE_BUGREPORt")
  35. ;; (define %mudsync-home-page-url
  36. ;; "@PACKAGE_URL@")