123456789101112131415161718192021222324252627282930313233343536373839404142434445464748 |
- ;;; Mudsync --- Live hackable MUD
- ;;; Copyright © 2017 Christopher Allan Webber <cwebber@dustycloud.org>
- ;;;
- ;;; 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 <http://www.gnu.org/licenses/>.
- (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@")
|