run.lisp

   1 #|
   2  | To run me, boot up your lisp and type
   3    (load "run")
   4  | If any unmet dependencies crop up,
   5  | see the INSTALL file for the packages
   6  | used directly. They have their own dependencies.
   7  |
   8  | Set your options in here,
   9  | see the CONFIG OPTIONS section.
  10  |#
  11
  12 (defpackage :lineal.devvars (:use :cl))
  13 (in-package :lineal.devvars)
  14 ;^ Don't pollute the standard namespace.^
  15
  16 ;V Change relative directory base.V
  17 (setf *default-pathname-defaults*
  18       (merge-pathnames
  19         (make-pathname :directory '(:relative "src"))
  20         *default-pathname-defaults*))
  21
  22
  23 ;VVV CONFIG OPTIONS VVV
  24 ;
  25 ; To uncomment an option, change #+(or) to #-(or)
  26 ; All pathnames are relative to the src/ directory.
  27 ;
  28 ; Lineal will output confirmation of all options
  29 ; set here near the end of it's load-time output.
  30 ;
  31 ; If any of these options is true/false, the actual
  32 ; value of the option is not checked, only if it's bound.
  33 ; ie: if the option is explicitly set to nil,
  34 ;    (set 'option nil)
  35 ; it is still treated as true.
  36 ; Use (makunbound 'option) to falsify.
  37
  38 ; Set Hunchentoot's temporary directory to
  39 ; a folder named "tmp" in Lineal's toplevel
  40 ; directory.
  41 #+(or)
  42 (set 'tmp-directory
  43                  (make-pathname :directory '(:relative :up "tmp")))
  44
  45 ; Make the log file's name "requests.log"
  46 ; and have it appear in Lineal's toplevel
  47 ; directory.
  48 #+(or)
  49 (set 'log-file
  50                  (make-pathname :directory '(:relative :up "")
  51                                                                                 :name "requests.log"))
  52
  53 ; Enable the reload page for easy changes.
  54 #+(or) (set 'reload-page t)
  55
  56 ; Enable save/restore.
  57 #-(or) (set 'save-restore t)
  58
  59 ; Set the port number where Hunchentoot listens.
  60 (set 'port 41938)
  61
  62 ;^^^ CONFIG OPTIONS ^^^
  63
  64
  65 ;V Load the program.V
  66 (load (make-pathname :directory '(:relative "webui")
  67                      :name "serv"))
  68
  69