From 0b13436d1a0907f6b389b5a32f5b078aa12f11b0 Mon Sep 17 00:00:00 2001
From: Tom Willemse <tom@ryuslash.org>
Date: Sun, 28 Jul 2013 22:27:58 +0200
Subject: [PATCH] Remove unneeded sexml code

---
 defmodule.lisp |  8 --------
 scrumli.asd    |  4 ++--
 scrumli.lisp   | 19 -------------------
 3 files changed, 2 insertions(+), 29 deletions(-)

diff --git a/defmodule.lisp b/defmodule.lisp
index 9381d31..aa9335a 100644
--- a/defmodule.lisp
+++ b/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)
diff --git a/scrumli.asd b/scrumli.asd
index 4f158fd..b3d42c3 100644
--- a/scrumli.asd
+++ b/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")
diff --git a/scrumli.lisp b/scrumli.lisp
index 02ac3ce..76eff35 100644
--- a/scrumli.lisp
+++ b/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))))