(defvar *html-output*)
(defun header ()
(cl-who:with-html-output (*html-output*)
(: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 (*html-output*)
(: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 (*html-output*)
(: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 (*html-output*)
(:html
(header)
(index-body))))