Remove unneeded sexml code

defmodule.lisp

@@ -64,11 +64,3 @@
 
 (defparameter *static-directory*
   (merge-pathnames #P"static/" scrumli-config:*base-directory*))
-
-(eval-when (:compile-toplevel :load-toplevel :execute)
- (sexml:with-compiletime-active-layers
-     (sexml:standard-sexml sexml:xml-doctype)
-   (sexml:support-dtd
-    (merge-pathnames "html5.dtd" (asdf:system-source-directory "sexml"))
-    :<)))
-(<:augment-with-doctype "html" "" :auto-emit-p t)

scrumli.asd

@@ -23,8 +23,8 @@
   :description "Scrum with Lisp"
   :author "Tom Willemse"
   :license "AGPLv3"
-  :depends-on (:restas :sexml :postmodern :cl-json :drakma
-                       :closure-template :md5)
+  :depends-on (:restas :postmodern :cl-json :drakma :closure-template
+                       :md5)
   :defsystem-depends-on (:closure-template)
   :components ((:closure-template "templates/scrumli")
                (:file "defmodule")

scrumli.lisp

@@ -49,25 +49,6 @@
 (defun page-title (title)
   (concatenate 'string title " | scrumli"))
 
-(defun css (&rest sheets)
-  (apply 'concatenate 'string
-         (mapcar (lambda (s)
-                   (<:link :href s :rel "stylesheet" :type "text/css"))
-                 sheets)))
-
-(defun js (&rest scripts)
-  (apply 'concatenate 'string
-         (mapcar (lambda (s)
-                   (<:script :type "text/javascript" :src s))
-                 scripts)))
-
-(defmacro navbar (&body body)
-  `(<:div :class "navbar navbar-static-top navbar-inverse"
-          (<:div :class "navbar-inner"
-                 (<:div :class "container"
-                        (<:a :class "brand" "scrumli")
-                        ,@body))))
-
 (defun md5-hash (str)
   (string-downcase (format nil "~{~2,'0x~}"
                            (coerce (md5:md5sum-string str) 'list))))