publish.lisp 752 Bytes
Newer Older
1
2
3
4
5
6
7
8
(in-package :training-g102)

(publish :path "/training-g102"
	 :function #'(lambda(req ent)
		       (gwl-make-object req ent "training-g102:assembly")))

(print-variables *load-truename*)

Dave Cooper's avatar
Dave Cooper committed
9

10
(defparameter *images-path* (merge-pathnames "documentation/training/g102/images/" glisp:*gendl-source-home*))
Dave Cooper's avatar
Dave Cooper committed
11

12
13
14
15
16

(publish-directory :prefix "/g102/images/"
		   :destination (format nil "~a" *images-path*))


Dave Cooper's avatar
Dave Cooper committed
17
18
19
20
21
22
23
24

(defun push! ()
  (glisp:run-shell-command "rm -r /tmp/sites/")
  (gwl:crawl "training-g102:assembly")
  (glisp:run-shell-command "mv /tmp/sites/assembly/ /tmp/sites/training-g102/")
  (glisp:run-shell-command "rsync -zav /tmp/sites/training-g102/ genworks.com:kitchen/downloads/training-g102/")
  (glisp:run-shell-command "rm -r /tmp/sites/"))