cl-who composing

example.lisp

(defvar *html-outstream*)

(defun index-body (&optional (outstream *html-outstream*))
  (cl-who:with-html-output (*html-outstream* outstream)
	  (:body (:main :class "wrapper"
		      (navigation)
		        (:header :class "header" :id "entrance"
			         (:section :class "container" :id "header"
					   (:img :src "/images/lambda-pink.png"
  					       :height "45")
	  				 (:h1 "Welcome ")
		  			 (:p "This site is used for personal friends of the hoster
		      to have a place to put their portfolios in an easily accessible place")))))))

(defun navigation (&optional (outstream *html-outstream*))
  (cl-who:with-html-output (*html-outstream* outstream)
        (:nav :class "navigation"
	      (:section :class "container"
			(:a :class "navigation-title" :href "/"
			    (:img :class "img"
				  :src "/images/lambda-pink.png"
						:height "15")
			    (:h1 :class "title" "mine"))
			(:ul :class "navigation-list float-right"
			     (:li :class "navigation-item"
				  (:a :class "navigation-link"
				      :href "/" :data-popover ""
				      "Home"))
			     (:li :class "navigation-item"
				  (:a :class "navigation-link"
				      :href "/" :data-popover ""
				      "Login"))
			     (:li :class "navigation-item"
				  (:a :class "navigation-link"
				      :href "/" :data-popover ""
				      "Users"))
			     (:li :class "navigation-item"
				  (:a :class "navigation-link"
				      :href "/" :data-popover ""
				      "Register")))))))