;;; The Inevitable Game ;;; Copyright © 2018 Ricardo Wurmus ;;; ;;; This program 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. ;;; ;;; This program 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 this program. If not, see ;;; . (define-module (config) #:export (%scale-factor %width %height %line-height %message-margin %assets-root)) (define %scale-factor 3) (define %width 320) (define %height 240) (define %line-height 12.5) (define %message-margin 4.0) (define %assets-root (let* ((prefix "@prefix@") (datarootdir (string-append prefix (string-drop "@datarootdir@" (string-length "${prefix}")))) (pkgdatadir (string-append datarootdir (string-drop "@datadir@/@PACKAGE@" (string-length "${datarootdir}"))))) (if (getenv "INEVITABLE_UNINSTALLED") (getcwd) pkgdatadir)))