Commit 2a2571bb authored by Dave Cooper's avatar Dave Cooper
Browse files

getting g102 and g102-tud slides fixed up.

parent 086521b5
......@@ -6,8 +6,7 @@
(print-variables *load-truename*)
(defparameter *images-path* (merge-pathnames "g102-tud/images/" (glisp:system-home :gdl-training)))
(defparameter *images-path* (merge-pathnames "documentation/training/g102-tud/images/" glisp:*gendl-source-home*))
(publish-directory :prefix "/g102-tud/images/"
:destination (format nil "~a" *images-path*))
......@@ -7,7 +7,7 @@
(print-variables *load-truename*)
(defparameter *images-path* (merge-pathnames "g102/images/" (glisp:system-home :gdl-training)))
(defparameter *images-path* (merge-pathnames "documentation/training/g102/images/" glisp:*gendl-source-home*))
(publish-directory :prefix "/g102/images/"
......@@ -4,11 +4,9 @@
:function #'(lambda(req ent)
(gwl-make-object req ent "training-g108:assembly")))
(defparameter *images-path* (merge-pathnames "g108/images/"
(glisp:system-home "gdl-training")))
(defparameter *images-path* (merge-pathnames "documentation/training/g108/images/" glisp:*gendl-source-home*))
(publish-directory :prefix "/g108/images/"
:destination (format nil "~a" *images-path*))
(publish-directory :prefix "/g108/images/" :destination (format nil "~a" *images-path*))
\ No newline at end of file
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment