/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. ;;; This file contains parameters that are settable for particular applications.
  3. (export '(*system-name* *developer-mode* system-name))
  4. (defparameter *system-name* "WuWei")
  5. (defparameter *developer-mode* nil) ;Warning: setting this true turns on an eval server that is a security risk
  6. (defparameter *bug-report-url* "https://github.com/mtravers/wuwei/issues")
  7. (defparameter *session-secret* "barbie says: security is hard") ;For hashing session cookies. Should be set to something unique to an application
  8. ;;; Timeout for stored Ajax continuations
  9. (defparameter *default-responder-timeout* (* 30 60))
  10. (defun system-name ()
  11. (if *developer-mode*
  12. (format nil "~A: ~A" (machine-instance) *system-name*)
  13. *system-name*))