;;; Mudsync --- Live hackable MUD ;;; Copyright © 2017 Christopher Allan Webber ;;; ;;; This file is part of Mudsync. ;;; ;;; Mudsync is free software; you can redistribute it and/or modify it ;;; under the terms of the GNU General Public License as published by ;;; the Free Software Foundation; either version 3 of the License, or ;;; (at your option) any later version. ;;; ;;; Mudsync is distributed in the hope that it will be useful, but ;;; WITHOUT ANY WARRANTY; without even the implied warranty of ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU ;;; General Public License for more details. ;;; ;;; You should have received a copy of the GNU General Public License ;;; along with Mudsync. If not, see . (define-module (mudsync package-config) #:export (%datadir scope-datadir web-static-filepath %mudsync-package-name %mudsync-version)) (define %datadir (or (getenv "MUDSYNC_DATADIR") "@package_datadir@/@PACKAGE_NAME@")) (define (scope-datadir filename) (string-append %datadir filename)) (define (web-static-filepath filename) (scope-datadir (string-append "/web-static" filename))) (define %mudsync-package-name "@PACKAGE_NAME@") (define %mudsync-version "@PACKAGE_VERSION@") ;; (define %mudsync-bug-report-address ;; "@PACKAGE_BUGREPORt") ;; (define %mudsync-home-page-url ;; "@PACKAGE_URL@")