Revision: 4088
Author: hans
URL: http://bknr.net/trac/changeset/4088
beginnings of new poi microsite
A trunk/projects/bos/payment-website/static/poi-ms.css
A trunk/projects/bos/payment-website/static/poi-ms.html
Added: trunk/projects/bos/payment-website/static/poi-ms.css
===================================================================
--- trunk/projects/bos/payment-website/static/poi-ms.css (rev 0)
+++ trunk/projects/bos/payment-website/static/poi-ms.css 2008-11-27 11:58:24 UTC (rev 4088)
@@ -0,0 +1,15 @@
+h1 { font-size: 200% }
+h2 { font-size: 160% }
+h3 { font-size: 120% }
+
+ul.media-list li {
+ position: relative;
+ height: 44px;
+ margin-left: 42px;
+}
+
+ul.media-list li img {
+ position: absolute;
+ left: -42px;
+ top: 2px;
+}
\ No newline at end of file
Added: trunk/projects/bos/payment-website/static/poi-ms.html
===================================================================
--- trunk/projects/bos/payment-website/static/poi-ms.html (rev 0)
+++ trunk/projects/bos/payment-website/static/poi-ms.html 2008-11-27 11:58:24 UTC (rev 4088)
@@ -0,0 +1,90 @@
+<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN" "http://www.w3.org/TR/html4/strict.dtd">
+<html>
+ <head>
+ <title>POI Microsite </title>
+ <link rel="stylesheet" type="text/css" href="http://yui.yahooapis.com/2.6.0/build/reset-fonts-grids/reset-fonts-grids.css"/>
+ <link rel="stylesheet" type="text/css" href="poi-ms.css"/>
+ <meta http-equiv="content-type" content="text/html; charset=utf-8" />
+ </head>
+ <body>
+ <div id="doc" class="yui-t3">
+ <div id="hd">
+ <img src="/infosystem/bilder/infosystem_header-de.gif" />
+ <h1>Malaienbärgehege</h1>
+ <h2>Rund 60 Hektar für Renaturierung und Bären</h2>
+ </div>
+ <div id="bd">
+ <div id="yui-main">
+ <div class="yui-b" id="content">
+ <img src="/poi-image/sunbear-sanctuary/1" width="360"
+ height="360" float="left"/>Am 11.01 wurde in Samboja Lestari ein
+ kleiner weiblicher Malaienbär (indonesisch: Bruang Madu =
+ Honigbär) von einem Dorfbewohner abgegeben, die Mutter ist
+ wahrscheinlich getötet worden. Bei der Ankunft war sie
+ ungefähr eine Woche alt und wog nur einen Kilo. Seitdem
+ wird sie von sechs Pflegern abwechselnd rund um die Uhr
+ gepflegt. Ihr wurde der Name Arkana gegeben, und
+ inzwischen wiegt sie schon 1,6 Kilo. Ihre neue
+ "Mutter", also die Hauptbezugsperson ist Slamet
+ Mulyono. Täglich wird sie für eine Stunde in die Sonne
+ gebracht, mehrmals täglich wird ihre Temperatur gemessen,
+ die genau wie bei Menschen auch zwischen 36 und 37 Grad
+ liegt. Fällt die Temperatur, wird sie mit Eukalypusöl
+ (indonesisch: Minyak Kayu Putih) eingerieben. Auch nachdem
+ sie Milch bekommt, wird sie damit eingerieben, um den
+ Kreislauf anzuregen. Wenn sie älter ist, wird sie Früchte
+ zu essen bekommen, das Hauptnahrungsmittel der
+ Malaienbären. Die Früchte, meistens Salak, Mango, Papaya,
+ Ananas und Zuckerrohr kommen aus dem ökologischen Garten
+ Samboja Lestaris Mehrmals täglich bekommt sie ein frisches
+ Nest aus verschieden Blättern, normalerweise frisst die
+ Mutter die Exkremente, und hält so das Nest sauber.
+ </div>
+ </div>
+ <div class="yui-b">
+ <ul class="media-list">
+ <li>
+ <img src="/poi-image/sunbear-sanctuary/1" width="40" height="40"/>
+ 20.03.2004<br/>
+ <a href="#">Arkana der kleine Malaienbär</a>
+ </li>
+ <li>
+ <img src="/poi-image/sunbear-sanctuary/2" width="40" height="40" />
+ 20.03.2004<br/>
+ <a href="#">Ursus Malayanus</a>
+ </li>
+ <li>
+ <img src="/poi-image/sunbear-sanctuary/3" width="40" height="40" />
+ 20.03.2004<br/>
+ <a href="#">Das Gehege</a>
+ </li>
+ <li>
+ <img src="/poi-image/sunbear-sanctuary/4" width="40" height="40" />
+ 20.03.2004<br/>
+ <a href="#">Fütterungskäfig</a>
+ </li>
+ <li>
+ <img src="/poi-image/sunbear-sanctuary/5" width="40" height="40" />
+ 20.03.2004<br/>
+ <a href="#">Futterzubereitung</a>
+ </li>
+ <li>
+ <img src="/poi-image/sunbear-sanctuary/6" width="40" height="40" />
+ 20.03.2004<br/>
+ <a href="#">Erfrischung in den Tropen</a>
+ </li>
+ </ul>
+ </div>
+ </div>
+ <div id="ft">
+ <p>
+ Footer - Lorem ipsum dolor sit amet, consectetuer adipiscing
+ elit. Maecenas sit amet metus. Nunc quam elit, posuere nec,
+ auctor in, rhoncus quis, dui. Aliquam erat volutpat. Ut
+ dignissim, massa sit amet dignissim cursus, quam lacus
+ feugiat.
+ </p>
+ </div>
+ </div>
+ </body>
+</html>
Revision: 4087
Author: hans
URL: http://bknr.net/trac/changeset/4087
Merge fixes from trunk
U deployed/bos/projects/bos/m2/m2.lisp
U deployed/bos/projects/bos/m2/mail-generator.lisp
U deployed/bos/projects/bos/payment-website/templates/de/headline2.xml
U deployed/bos/projects/bos/payment-website/templates/de/verschenken.xml
U deployed/bos/projects/bos/payment-website/templates/en/headline2.xml
U deployed/bos/projects/bos/web/news-tags.lisp
U deployed/bos/projects/bos/web/poi-handlers.lisp
U deployed/bos/projects/bos/web/sponsor-handlers.lisp
U deployed/bos/projects/bos/web/tags.lisp
Change set too large, please see URL above
Revision: 4084
Author: hans
URL: http://bknr.net/trac/changeset/4084
Add encode-array-elementS and encode-object-elementS convenience functions.
U trunk/libraries/yason/encode.lisp
U trunk/libraries/yason/package.lisp
Modified: trunk/libraries/yason/encode.lisp
===================================================================
--- trunk/libraries/yason/encode.lisp 2008-11-26 21:28:07 UTC (rev 4083)
+++ trunk/libraries/yason/encode.lisp 2008-11-27 09:36:39 UTC (rev 4084)
@@ -176,6 +176,11 @@
(next-aggregate-element)
(encode object (output-stream *json-output*)))
+(defun encode-array-elements (&rest objects)
+ "Encode OBJECTS, a list of JSON encodeable object, as array elements."
+ (dolist (object objects)
+ (encode-array-element object)))
+
(defun encode-object-element (key value)
"Encode KEY and VALUE as object element to the last JSON object
opened with WITH-OBJECT in the dynamic context. KEY and VALUE are
@@ -187,6 +192,11 @@
(encode value (output-stream *json-output*))
value)
+(defun encode-object-elements (&rest elements)
+ "Encode plist ELEMENTS as object elements."
+ (loop for (key value) on elements by #'cddr
+ do (encode-object-element key value)))
+
(defmacro with-object-element ((key) &body body)
"Open a new encoding context to encode a JSON object element. KEY
is the key of the element. The value will be whatever BODY
Modified: trunk/libraries/yason/package.lisp
===================================================================
--- trunk/libraries/yason/package.lisp 2008-11-26 21:28:07 UTC (rev 4083)
+++ trunk/libraries/yason/package.lisp 2008-11-27 09:36:39 UTC (rev 4084)
@@ -30,7 +30,9 @@
#:no-json-output-context
#:with-array
#:encode-array-element
+ #:encode-array-elements
#:with-object
#:encode-object-element
+ #:encode-object-elements
#:with-object-element
#:with-response))