From 0327c09557568d1fefd7d642333c21c8a9f655db Mon Sep 17 00:00:00 2001 From: Christopher Allan Webber Date: Mon, 22 May 2017 14:24:44 -0500 Subject: [PATCH] Clean paths in package-config.scm --- mudsync/package-config.scm | 52 ++++++++++++++++++++++++++++++++++++++ 1 file changed, 52 insertions(+) create mode 100644 mudsync/package-config.scm diff --git a/mudsync/package-config.scm b/mudsync/package-config.scm new file mode 100644 index 0000000..e0fe09e --- /dev/null +++ b/mudsync/package-config.scm @@ -0,0 +1,52 @@ +;;; 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") + "/usr/local/share/mudsync")) + +(define (clean-path path) + "Remove any nasty .. stuff from the path" + (string-join (delete ".." (string-split path file-name-separator-char)) + file-name-separator-string)) + +(define (scope-datadir filename) + (clean-path (string-append %datadir filename))) + +(define (web-static-filepath filename) + (scope-datadir (string-append "/web-static" filename))) + + +(define %mudsync-package-name + "mudsync") + +(define %mudsync-version + "0.1.0-pre") + +;; (define %mudsync-bug-report-address +;; "@PACKAGE_BUGREPORt") + +;; (define %mudsync-home-page-url +;; "") + -- 2.31.1