Commit 687d7f5d authored by Dave Cooper's avatar Dave Cooper

removed old commented code, added base-format :functions

parent ba654931
......@@ -1348,6 +1348,16 @@ a separate object hierarchy." object self)))
(:newline-out
()
(format *stream* "~%"))
(:f
(number &optional columns fraction-columns)
(let ((format-str (format nil "~~~{~a~^,~}f"
(remove nil (list columns fraction-columns)))))
(format *stream* format-str number)))
(:line-feed
()
(format *stream* "~%"))
(:a
(&rest strings)
......
......@@ -315,36 +315,6 @@ from a saved snapshot file."
)
))))
#+nil
(main-sheet
()
;; FLAG JB-090820 ticket #69, removed the :ident t part from with-cl-who as it inserts and
;; extra newline and that causes a bug in IE(7).
;; (with-cl-who (nil :indent t)
(with-cl-who ()
(when (the doctype-string) (str (the doctype-string)))
((:html :xmlns "http://www.w3.org/1999/xhtml")
(:head (:title (str (the title)))
(:link :rel "icon" :type "image/x-icon" :href "/static/gwl/images/favicon.ico")
(when (the additional-header-content) (str (the additional-header-content)))
(write-the standard-javascript)
;; FLAG JB100203
;; the additional-header-js-content is placed -JUST BEFORE- the body
;; when jquery js is added tot the head, then just before the body ensures that
;; all jquery is loaded.
(when (the additional-header-js-content)
(str (the additional-header-js-content))))
((:body :class (the body-class)
:onload (the body-onload))
(the reset-html-sections!)
((:div :id (the dom-id))
(str (the main-sheet-body)))))))
(development-links
()
......
......@@ -549,9 +549,8 @@ function defined in the lens. Typically a <tt>write-html-sheet</tt> function wou
</pre>"
write-html-sheet
()
(with-format (html-format *html-stream*) (write-the (main-sheet)))
)))
(with-format (html-format *html-stream* )
(write-the (main-sheet))))))
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