pref.lisp

;;;; pref.lisp
;;;;
;;;; This file is part of the rulisp application, released under GNU Affero General Public License, Version 3.0
;;;; See file COPYING for details.
;;;;
;;;; Author: Moskvitin Andrey <archimag@gmail.com>


(defpackage :rulisp.preferences
  (:use :cl)
  (:export #:*rulisp-path*
           #:*skindir*
           #:*rulisp-db*
           #:*host*
           #:*cookie-cipher-key*
           #:*noreply-mail-account*
           #:*vardir*
           #:*cachedir*
           #:*default-skin*
           #:*pcl-dir*
           #:*wiki-dir*
           #:*pcl-snapshot-url*
           #:*pcl-snapshot-dir*
           #:*pcl-load-snapshot-p*
           #:*jscl-snapshot-url*
           #:*jscl-snapshot-dir*
           #:*jscl-load-snapshot-p*
           #:*corefonts-dir*
           #:*cm-fonts-dir*))

(in-package :rulisp.preferences)

(defparameter *vardir* #P"/var/rulisp/")

(defparameter *cachedir* #P"/var/cache/rulisp/")

(defparameter *rulisp-path* (asdf:component-pathname (asdf:find-system  :rulisp)))

(defparameter *skindir* (merge-pathnames "static/skins/" *rulisp-path*))

(defparameter *default-theme* "archimag")

(defparameter *rulisp-db* '("rulisp" "lisp" "123" "localhost"))

(defparameter *host* "localhost:8080")

(defparameter *cookie-cipher-key* (ironclad:ascii-string-to-byte-array "Specify the secure key"))

(defparameter *noreply-mail-account* "noreply@lisper.ru")

(defparameter *default-skin* "fine")

(defparameter *pcl-dir* #P"/var/rulisp/pcl/dwiki/")

(defparameter *pcl-snapshot-url* #u"http://pcl.catap.ru/snapshot.zip")

(defparameter *pcl-snapshot-dir* #P"/var/rulisp/pcl/")

(defparameter *pcl-load-snapshot-p* nil)

(defparameter *jscl-snapshot-url* "https://github.com/davazp/jscl.git")

(defparameter *jscl-snapshot-dir* #P"/var/rulisp/")

(defparameter *jscl-load-snapshot-p* t)

(defparameter *wiki-dir* #P"/var/rulisp/wiki/")

(defparameter *corefonts-dir* #P"/usr/share/fonts/corefonts/")
(defparameter *cm-fonts-dir* #P"/usr/share/fonts/cm/")