(defparameter *index-body* (cl-who:with-html-output-to-string (s)
	(: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")))))))
            
(defparameter *navigation* (cl-who:with-html-output-to-string (s)
        (: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")))))))