anchor.diff:  (defparameter +port+ 8090)
   
   (defparameter *html* nil)
  +
  +(defparameter *user* nil "The logged user")
  +
  +(eval-when (:compile-toplevel :load-toplevel :execute)
  +  (defmacro with-html (&body body)
  +    `(who:with-html-output (*html*)
  +       ,@body))
  +
  +  (defmacro with-frontend-common (&body body)
  +    `(call-with-frontend-common (lambda () (with-html ,@body)))))
   
   (defun start (&optional (host +host+) (port +port+))
     (model::connect-db)
  
positive.code: 		 (:input :name "realname" :class "form-control" :type "text" :placeholader "Enter realname"))
  	   (:div :class "form-group"
  		 (:input :type "submit" :value "Register")))))
  
  (restas:define-route register-handler ("/register")
      (let ((username (hunchentoot:post-parameter "username"))
  
negative.code:   (restas.directory-publisher:*directory* 
     (asdf:system-relative-pathname :cldm-registry "src/frontend/static/"))
    (restas.directory-publisher:*autoindex* t))
  
  (defun navbar ()
    (with-html
      (:div :class "navbar navbar-default"
  	  (:div :class "container"
  		(:a :class "navbar-brand" :href "#" (who:str "CLDM registry"))
  		(:ul :class "nav navbar-nav"
  		     (:li :class "active" (:a :href "#" (who:str "Home")))
  		     (:li (:a :href (restas:genurl 'libraries-handler)
  			      (who:str "Browse")))
  		     (if *user*
  			 (who:htm (:li (:a :href (restas:genurl 'account-handler 
  								:name (model::username *user*))
  					   (who:str (model::realname *user*)))))
  			 (progn
  			   (who:htm (:li (:a :href (restas:genurl 'login-handler)
  					     (who:str "Sign up"))))
  			   (who:htm (:li (:a :href (restas:genurl 'registration-handler)
  					     (who:str "Register"))))))
  		     (:li :class "divider-vertical")
  		     (when *user*
  		       (who:htm (:li (:a :href (restas:genurl 'logout)
  					 (who:str "Logout"))))))))))
  
  (defun call-with-frontend-common (function)
    (who:with-html-output-to-string (*html*)
  