Method: (RENDER WRAPPING SIMPLE-WINDOW-COMPONENT)

Documentation

This convience method assumes: 1) the stylesheet is external (as opposed to inlined) or is not used; 2) the script file is javascript and is external or is no script is used and 3) the title is simply the value of the title slot in the WINDOW (no dynamic titles).

Source

(defmethod render :wrapping ((window simple-window-component))
  "This convience method assumes: 1) the stylesheet is
external (as opposed to inlined) or is not used; 2) the script
file is javascript and is external or is no script is used and 3)
the title is simply the value of the title slot in the WINDOW (no
dynamic titles)."
  (<:as-is "<!DOCTYPE html PUBLIC \"-//W3C//DTD XHTML 1.0 Transitional//EN\" \"http://www.w3.org/TR/xhtml1/DTD/transitional.dtd\">"
	   #\Newline) 
  (<:html
   (<:head
    (<:meta :http-equiv "Content-Type" :content (window-component.content-type window))
    (<:title (<:as-html (window-component.title window)))
    (dolist (stylesheet (ensure-list (window-component.stylesheet window)))
      (<:link :rel "stylesheet"
              :href stylesheet
              :type "text/css"))    
    (when (window-component.javascript window)
      (dolist (js (ensure-list (window-component.javascript window)))
	;; most browsers (firefox, safari and ie at least) really,
	;; really, really don't like empty script tags. The "" forces
	;; yaclml to generate a seperate closing tag.
	(<:script :type "text/javascript" :src js "")))
    (when (window-component.inline-javascript window)
      (<:script :type "text/javascript"
        (<:as-html (window-component.inline-javascript window)))))
   (<:body (call-next-method))))

Source Context