Commit 46a137fa authored by Dave Cooper's avatar Dave Cooper

added styles and new images

parent 9603297e
((("19" "29") ("Agile KOM 2")) (("19" "39") ("Agile KOM")))
\ No newline at end of file
......@@ -109,7 +109,8 @@ written consent from Genworks International.")
pdf-path pdftex-path)))))
(define-object assembly (com.genworks.dom:assembly)
:input-slots ((data *data*)))
:input-slots ((data *data*)
(style-url "tutorial.css")))
(publish :path "/dom-doc"
......@@ -118,11 +119,44 @@ written consent from Genworks International.")
(defun make-html (&key (output-directory (merge-pathnames "tmp/" (user-homedir-pathname)))
(output-file-namestring "tutorial.html"))
(output-file-namestring "tutorial.html"))
(ensure-directories-exist output-directory)
(initialize-data)
(let ((self (make-object 'assembly)))
(let ((output-path (merge-pathnames output-file-namestring output-directory)))
(with-format (html-format output-path) (write-the cl-who-out))
output-path)))
(defun make-css (&key (output-directory (merge-pathnames "tmp/" (user-homedir-pathname)))
(output-file-namestring "tutorial.css"))
(let ((output-path (merge-pathnames output-file-namestring output-directory))
(css-string
(reduce
(lambda (x y)
(concatenate 'string x y))
(mapcar
(lambda (style)
(format nil "~a{~a}"
(car style)
(format nil "~{~a~}"
(mapcar (lambda (pair)
(format nil "~a:~a;"
(car pair)
(cadr pair)))
(cdr style)))))
*styles*))))
(with-open-file (stream output-path
:direction :output
:if-exists :overwrite
:if-does-not-exist :create)
(format stream css-string))))
(defun make-html-and-css (&key (output-directory (merge-pathnames "tmp/" (user-homedir-pathname)))
(html-output-file-namestring "tutorial.html")
(css-output-file-namestring "tutorial.css"))
(make-html :output-directory output-directory
:output-file-namestring html-output-file-namestring)
(make-css :output-directory output-directory
:output-file-namestring css-output-file-namestring))
\ No newline at end of file
(in-package :gendl-doc)
(defparameter *styles*
'(
(body
(font-family "\'Arial\'")
(margin-left "10%")
(margin-right "10%"))
(a
(color "#666")
(text-decoration "none"))
("a:hover"
(color "#ccc"))
(pre
(background-color "#eee")
(padding "10px")
(border-radius "5px")
(font-family "monospace"))
(tt
(background-color "#eee"))
(div>ol
(border-left "6px solid #eee")
(margin "20px"))
(li
(margin "3px"))
("li li"
(font-size "90%"))
(dl
(margin-left "35px"))
(dt
(font-weight "bold"))))
\ No newline at end of file
......@@ -17,5 +17,5 @@
(:gdl "source/understanding-gendl")
(:gdl "source/advanced-common-lisp") (:gdl "source/advanced-gendl")
(:file "source/tasty-environment") (:file "source/gendl-geometry")
(:file "source/custom-user-interfaces")
(:file "source/custom-user-interfaces") (:file "source/styles")
(:file "source/bibliography") (:file "source/assembly")))
Markdown is supported
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