diff options
Diffstat (limited to 'scrumli.lisp')
-rw-r--r-- | scrumli.lisp | 19 |
1 files changed, 0 insertions, 19 deletions
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)))) |