anchor.diff:  	       :src "/static/bower_components/jquery/dist/jquery.min.js")
         (:script :type "javascript" :src "/static/bower_components/bootstrap/dist/js/bootstrap.min.js"))
        (:body
  +      (navbar)
         (funcall function)))))
  -
  -(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))))
   
   (restas:define-route main ("")
     (with-frontend-common
  -    (:a :href "/registration" (who:str "Register"))
  -    (:a :href "/libraries" (who:str "Libraries"))
  -    (:a :href "/login/github" (who:str "Github login"))))
  +    ))
   
   (restas:define-route registration-handler ("/registration")
     (with-frontend-common
  
positive.code:   (restas.directory-publisher:*directory* 
     (asdf:system-relative-pathname :cldm-registry "src/frontend/static/"))
    (restas.directory-publisher:*autoindex* t))
  
  (defun call-with-frontend-common (function)
    (who:with-html-output-to-string (*html*)
  
negative.code: (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)
  