PageRenderTime 175ms CodeModel.GetById 167ms app.highlight 3ms RepoModel.GetById 1ms app.codeStats 1ms

/src/config.lisp

http://github.com/mtravers/wuwei
Lisp | 19 lines | 11 code | 6 blank | 2 comment | 0 complexity | 92562eb3a9330734b8bbfdfe00c2ee5d MD5 | raw file
 1(in-package :wu)
 2
 3;;; This file contains parameters that are settable for particular applications.
 4
 5(export '(*system-name* *developer-mode* system-name))
 6
 7(defparameter *system-name* "WuWei")
 8(defparameter *developer-mode* nil)	;Warning: setting this true turns on an eval server that is a security risk
 9(defparameter *bug-report-url* "https://github.com/mtravers/wuwei/issues") 
10(defparameter *session-secret* "barbie says: security is hard")		   ;For hashing session cookies. Should be set to something unique to an application
11
12;;; Timeout for stored Ajax continuations
13(defparameter *default-responder-timeout* (* 30 60))
14
15(defun system-name ()
16  (if *developer-mode*
17      (format nil "~A: ~A" (machine-instance) *system-name*)
18      *system-name*))
19