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
  17 ;VVV CONFIG OPTIONS VVV
  18 ;
  19 ; To uncomment an option, change #+(or) to #-(or)
  20 ; All pathnames are relative to this file's directory.
  21 ;
  22 ; Lineal will output confirmation of all options
  23 ; set here near the end of it's load-time output.
  24 ;
  25 ; If any of these options is true/false, the actual
  26 ; value of the option is not checked, only if it's bound.
  27 ; ie: if the option is explicitly set to nil,
  28 ;    (set 'option nil)
  29 ; it is still treated as true.
  30 ; Use (makunbound 'option) to falsify.
  31
  32 ; Set Hunchentoot's temporary directory to
  33 ; a folder named "tmp" in Lineal's toplevel
  34 ; directory.
  35 #+(or)
  36 (set 'tmp-directory
  37      (make-pathname :directory '(:relative "tmp")))
  38
  39 ; Make the log file's name "requests.log"
  40 ; and have it appear in Lineal's toplevel
  41 ; directory.
  42 #+(or)
  43 (set 'log-file
  44      (make-pathname :name "requests.log"))
  45
  46 ; Log calculator input and replies.
  47 #+(or) (set 'log-calcs t)
  48
  49 ; Enable the reload page for easy changes.
  50 #+(or) (set 'reload-page t)
  51
  52 ; Disable save/restore.
  53 #+(or) (set 'no-save-restore t)
  54
  55 ; On boot, restore the session specified in the file.
  56 #+(or) (set 'restore-from-file
  57             (make-pathname :name "captured_session"))
  58 ; To use this effectively, call
  59 ; (local-capture)
  60 ; before quitting to save the file
  61
  62 ; Set Hunchentoot listens to listen on port 8080
  63 ; instead of the default 41938
  64 #+(or) (set 'port 8080)
  65
  66 ;^^^ CONFIG OPTIONS ^^^
  67
  68
  69 ;V Load the program.V
  70 (load (make-pathname :directory '(:relative "src" "webui")
  71                      :name "serv" :type "lisp"))
  72
  73