(defun header ()
  (cl-who:with-html-output-to-string (s)
		        (:head (:meta :charset "utf-8")
				       (:meta :http-equiv "X-UA-COMPATIBLE"
					      :content "IE=edge")
				       (:meta :name "viewport"
					      :content "width=device-width, initial-scale=1")
				       (:script :src "https://code.jquery.com/jquery-3.3.1.js")
				       (:link :rel "stylesheet"
					      :href "//fonts.googleapis.com/css?family=Roboto:300,300italic,700,700italic")
				       (:link :rel "stylesheet"
					      :href "//cdn.rawgit.com/necolas/normalize.css/master/normalize.css")
				       (:link :rel "stylesheet"
					      :href "//cdn.rawgit.com/milligram/milligram/master/dist/milligram.min.css")
				       (:link :rel "stylesheet" :type "text/css"
					      :href "css/main.css"))))
(defun 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")))))))
			     
(defun 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")))))))
		       
		      
(defun index-page ()
  (cl-who:with-html-output-to-string (s)
    (:html
     (header)
     (index-body))))