Commit 12530406 authored by Dave Cooper's avatar Dave Cooper
Browse files

starting new dotcom demo for html5-based website and demos

parent f9e7da49
......@@ -127,7 +127,9 @@ temporary directory, returned by <tt>(glisp:temporary-folder)</tt>."
(let ((destination-directory
(let ((implementation-identifier (glisp:implementation-identifier))
;;(prefix (merge-pathnames "../../staging/" glisp:*genworks-source-home*))
(prefix (merge-pathnames #+mswindows "c:/staging/" #-mswindows "~/share/staging/")))
(prefix (merge-pathnames #+mswindows (or (probe-file "e:/staging/")
(probe-file "z:/staging/"))
#-mswindows "~/share/staging/")))
(merge-pathnames
(make-pathname :directory
(list :relative
......
......@@ -128,30 +128,14 @@
;; smlib shared library
;;
(ensure-directories-exist (merge-pathnames "SMLib8.40/" (the target-parent)))
(let ((smlib-name (if (find-package :smlib) (funcall (read-from-string "glisp:smlib-name"))
(error "smlib-name not known (smlib module probably not loaded)."))))
(glisp:copy-file (merge-pathnames (format nil "../../common/SMLib8.40/~a" smlib-name)
glisp:*genworks-source-home*)
(merge-pathnames (format nil "SMLib8.40/~a" smlib-name)
(the target-parent))))
;;
#+nil
(ensure-directories-exist (merge-pathnames "SMLib8.40/" (the target-parent)))
#+nil
(let ((smlib-name (if (find-package :smlib) (funcall (read-from-string "glisp:smlib-name"))
(error "smlib-name not known (smlib module probably not loaded)."))))
(glisp:copy-file (merge-pathnames (format nil "../../common/SMLib8.40/libs/~a/~a"
#+linux "linux"
#+mswindows "windows"
#+macosx "macos" smlib-name)
glisp:*genworks-source-home*)
(merge-pathnames (format nil "SMLib8.40/~a" smlib-name)
(the target-parent))))
(let ((smlib-version "8.45"))
(ensure-directories-exist (merge-pathnames (format nil "SMLib~a/" smlib-version) (the target-parent)))
(let ((smlib-name (if (find-package :smlib) (funcall (read-from-string "glisp:smlib-name"))
(error "smlib-name not known (smlib module probably not loaded)."))))
(glisp:copy-file (merge-pathnames (format nil "../../common/SMLib~a/~a" smlib-version smlib-name)
glisp:*genworks-source-home*)
(merge-pathnames (format nil "SMLib~a/~a" smlib-version smlib-name)
(the target-parent)))))
;;
;; gpl on windows
;;
......
(:gdl-gwl-graphics)
\ No newline at end of file
......@@ -161,6 +161,8 @@ in the applicable lens for html-format."
("String or nil. Names the value of class attribute for the body tag. Default is nil."
body-class nil)
(body-onload nil)
("String or nil. Contains the string for the doctype at the top of the document. Default is:
......@@ -326,7 +328,8 @@ UI specific jQuery Layout JavaScript."
(when (the additional-header-js-content)
(str (the additional-header-js-content))))
((:body :class (the body-class))
((:body :class (the body-class)
:onload (the body-onload))
(the reset-html-sections!)
((:div :id (the dom-id))
(str (the main-sheet-body)))))))
......
This diff is collapsed.
(:gdl-geom-base :gdl-gwl-graphics)
(:gdl-gwl-graphics)
......@@ -11,7 +11,7 @@
:version
"2012030600"
:depends-on
(:gdl-geom-base :gdl-gwl-graphics)
(:gdl-gwl-graphics)
:components
((:file "source/package") (:file "source/parameters")
(:file "source/classes") (:file "source/methods")
......
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