From 55ca2cac7bb7df1c5c0ccd4063729f8659a0b020 Mon Sep 17 00:00:00 2001 From: Matthias Andreas Benkard Date: Fri, 27 Nov 2009 14:29:41 +0100 Subject: Replace Yaclml with CL-WHO. --- logikorr.asd | 2 +- logikorr.lisp | 54 ++++++++++++++++++++++++++++-------------------------- 2 files changed, 29 insertions(+), 27 deletions(-) diff --git a/logikorr.asd b/logikorr.asd index 7217540..565b1f2 100644 --- a/logikorr.asd +++ b/logikorr.asd @@ -7,5 +7,5 @@ :author "Matthias Benkard " :licence "" :description "Ein einfaches Bewertungsaufnahmesystem" - :depends-on (:yaclml :hunchentoot :cl-json) + :depends-on (:cl-who :hunchentoot :cl-json) :components ((:file "logikorr"))) diff --git a/logikorr.lisp b/logikorr.lisp index 0577d9f..013ef59 100644 --- a/logikorr.lisp +++ b/logikorr.lisp @@ -1,7 +1,7 @@ ;;; Copyright 2009, Matthias Andreas Benkard. (defpackage :logikorr-ht - (:use #:hunchentoot #:common-lisp #:json #:yaclml)) + (:use #:hunchentoot #:common-lisp #:json #:cl-who)) (in-package #:logikorr-ht) @@ -101,33 +101,35 @@ (with-authentication () (let ((students (find-students))) (ignore-errors (setf (header-out :content-type) "text/html; charset=UTF-8")) - (with-yaclml-output-to-string - (<:html - (<:head - (<:title "Logik I: Korrekturergebnisse") - (<:script :type "text/javascript" - :src "js/prototype.js") - (<:script :type "text/javascript" - :src "js/scriptaculous.js") - (<:link :type "text/css" :rel "stylesheet" :href "style.css") - (<:script :type "text/javascript" :src "http://yui.yahooapis.com/3.0.0/build/yui/yui-min.js") - (<:script :type "text/javascript" :src "logikorr.js") - (<:script :type "text/javascript" :src "logikorr-completion-data.js")) - (<:body - (<:h1 "Logik I: Korrekturergebnisse") - (<:h2 "Neue Ergebnisse") - (<:form (<:button :type "button" :id "make-revision" (<:as-html "Aktuelle Version sichern")) (<:div :id "new-version-label" :style "display: inline; color: #070")) - (<:table :id "ergebnisse") - (<:h2 "Bestehende Ergebnisse") - (<:table - (<:tr - (<:th "ID") (<:th "Punkte") (<:th "Nachname") (<:th "Vorname")) + (with-html-output-to-string (html) + (:html + (:head + (:title "Logik I: Korrekturergebnisse") + (:script :type "text/javascript" + :src "js/prototype.js") + (:script :type "text/javascript" + :src "js/scriptaculous.js") + (:link :type "text/css" :rel "stylesheet" :href "style.css") + (:script :type "text/javascript" :src "http://yui.yahooapis.com/3.0.0/build/yui/yui-min.js") + (:script :type "text/javascript" :src "logikorr.js") + (:script :type "text/javascript" :src "logikorr-completion-data.js")) + (:body + (:h1 "Logik I: Korrekturergebnisse") + (:h2 "Neue Ergebnisse") + (:form (:button :type "button" :id "make-revision" + (esc "Aktuelle Version sichern")) + (:div :id "new-version-label" :style "display: inline; color: #070")) + (:table :id "ergebnisse") + (:h2 "Bestehende Ergebnisse") + (:table + (:tr + (:th "ID") (:th "Punkte") (:th "Nachname") (:th "Vorname")) (dolist (student students) (with-slots (id score last-name first-name) student - (<:tr (<:td (<:as-html id)) - (<:td (<:as-html score)) - (<:td (<:as-html last-name)) - (<:td (<:as-html first-name)))))))))))) + (htm (:tr (:td (str id)) + (:td (str score)) + (:td (esc last-name)) + (:td (esc first-name))))))))))))) (define-easy-handler (logikorr.js :uri "/logikorr.js") () -- cgit v1.2.3