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

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

(print-variables *load-truename*)

9
(defparameter *images-path* (merge-pathnames "documentation/training/g102-tud/images/" glisp:*gendl-source-home*))
10
11
12
13
14
15
16
17
18
19
20
21
22

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



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