From 55ca2cac7bb7df1c5c0ccd4063729f8659a0b020 Mon Sep 17 00:00:00 2001
From: Matthias Andreas Benkard <code@mail.matthias.benkard.de>
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 <code@matthias.benkard.de>"
   :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