diff options
| author |  Tom Willemse | 2013-07-28 22:27:58 +0200 |
|---|---|---|
| committer | Tom Willemse | 2013-07-28 22:27:58 +0200 |
| commit | 0b13436d1a0907f6b389b5a32f5b078aa12f11b0 (patch) | |
| tree | 007c88f455dd6aa6ca604768319b212dde1e9a4c | |
| parent | 5b51cf71330e99a9ba33e8ff9d2f106c4c9d416a (diff) | |
| download | scrumli-0b13436d1a0907f6b389b5a32f5b078aa12f11b0.tar.gz scrumli-0b13436d1a0907f6b389b5a32f5b078aa12f11b0.zip | |
Remove unneeded sexml code
| -rw-r--r-- | defmodule.lisp | 8 | ||||
| -rw-r--r-- | scrumli.asd | 4 | ||||
| -rw-r--r-- | 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)))) |