1234567891011121314151617181920212223242526272829 |
- ;;;; collect.lisp
- ;;;;
- ;;;; Copyright (c) 2015 Samuel W. Flint <swflint@flintfam.org>
- (in-package #:collect)
- ;;; "collect" goes here. Hacks and glory await!
- (defvar *configuration* nil)
- (defvar *forms* nil)
- (defvar *queries* nil)
- (defvar *tables* nil)
- (defvar *forms* nil)
- (defun get-config (section key)
- (get-config-drive ))
- (defun main ()
- (setq *configuration* (open-configuration-file (second *posix-argv*)))
- (open-database)
- (get-all-forms)
- (get-all-queries))
- (define-route main ("")
- (main-page :title "Collect"))
|