build in wupub files

heroku-setup.lisp

@@ -6,4 +6,12 @@
 
 (ql:quickload :example)
 
+;;; Copy wuwei public files to build (+++ move this to wuwei to hide uglies)
+;;; Note: destination and initialize-application need to be in sync
+(asdf:run-shell-command
+ (format nil "cp -r ~Apublic ~A"
+	 (namestring (asdf:component-pathname (asdf:find-system :wuwei)))
+ 	 (namestring (make-pathname :directory (append *build-dir* '("wupub")))) 
+	 ))
+
 (print ">>> Done building system")

load.lisp

@@ -1,8 +1,16 @@
 (in-package :cl-user)
-;;; local load for debug.
+;;; local load for debug. Replicates some of the things in buildpack/compile.lisp
 ;;; Note: you have to be cd'd to the toplevel app directory for things to work.
 
-(defvar *build-dir* (pathname-directory *load-pathname*))
+(defvar *build-dir* (pathname-directory (truename *load-pathname*)))
+
+;;; Load local copies of portableaserve and wuwei, since quicklisp's are broken
+;;; (You can get these from github.com/mtravers.  Put them the repos directory).
+(mapc #'load (directory (make-pathname :directory  '(:relative "repos" :wild-inferiors)
+				       :name :wild
+				       :type "asd")))
+
+(load "~/repos/wuwei/wuwei.asd")	;Use local copy of wuwei;
 
 (load (make-pathname :directory *build-dir* :defaults "heroku-setup.lisp"))
 

src/hello-world.lisp

@@ -26,11 +26,10 @@
   ;; This has to be done at app-init rather than app-build time, to point to right directory.
   (publish-directory
    :prefix "/"
-;;; works but ugly
-   :destination (namestring (truename "./public/"))
-;;; does not work, run dir is different.
-;   :destination (namestring (make-pathname :directory (append cl-user::*build-dir* '("public"))))
-   ))
+   :destination (namestring (truename "./public/")))
+  (wu:locate-public-directory "./wupub/") 
+  (setf *developer-mode* (equal (ccl:getenv "DEVELOPER_MODE") "Y")))
+