1. Stephen Compall
  2. weblocks-dev


Leslie P. Polzer  committed 778384a

unborked new app template

  • Participants
  • Parent commits c57c26a
  • Branches default

Comments (0)

Files changed (2)

File scripts/new-app-templates/init-session.lisp

View file
 (in-package :{APPNAME})
-;; Define our application
-(defwebapp '{APPNAME}
-    :description "A web application based on Weblocks")
-;; Set public files directory to {APPNAME}/pub
-(setf *public-files-path* (compute-public-files-path :{APPNAME}))
 ;; Define callback function to initialize new sessions
 (defun init-user-session (comp)
   (setf (composite-widgets comp)

File scripts/new-app-templates/{APPNAME}.lisp

View file
     :ignore-default-dependencies nil ;; accept the defaults
-;; Ensure that your public files directory is setup appropriately
-(eval-when (:load-toplevel :execute)
-  (set-weblocks-default-public-files-path 
-   (compute-public-files-path :{APPNAME})))
 ;; Top level start & stop scripts
 (defun start-{APPNAME} (&rest args)