[wowri update
tom@goto10.org**20080330133708] {
hunk ./db/wowri.xml 13
-    <!-- navigation. they refer to stuff in <content/> -->
+    <!-- navigation. they refer to stuff in <content/> 
+         order matters! -->
hunk ./db/wowri.xml 66
-	<img src="/bie.jpg"/> <br/>
-	It's snowing! 
-	Actually, now it's raining..
-	It's snowing again. Stormy weather. Please wrap around.
-	Broem broem broem, grote boot. Verzinnelingisatie.
-	And i want to just include a random
-	<a href="http://link">link</a> right here.
+
hunk ./db/wowri.xml 71
-	 ignored, and the index will point to the link. otherwize it
+	 ignored, and the index will point to the link. otherwise it
hunk ./db/wowri.xml 78
-    <calendar 
-	name="Calendar"
-	link="http://somewhere"/>
-
-    <fotos
-	name="Photo Gallery"
-	link="http://flicker"/>
-    
-    <videos
-	name="Videos"
-	link="http://youtube"/>
+    <calendar name="Calendar">
+      <xhtml>
+        Nothing yet.
+      </xhtml>
+    </calendar>
hunk ./db/wowri.xml 84
+    <fotos name="Photo Gallery">
+      <xhtml>
+        Nothing yet.
+      </xhtml>
+    </fotos>
hunk ./db/wowri.xml 90
+    <videos name="Videos">
+      <xhtml>
+        Nothing yet.
+      </xhtml>
+    </videos>
+        
hunk ./db/wowri.xml 134
-    
+
hunk ./doc/ramblings.txt 520
+Entry: wowri + sweb update
+Date: Sat Mar 29 12:34:30 EDT 2008
+
+sweb: link to current scat rambligns
+
+wowri: figure out where to put the data. sweb code should be on
+giebrok, but all the site data, managed by different people, should go
+on kurk.
+
+big choice: use sweb or just use wordpress or other cms? since this is
+not just for melissa, it's probably best to stick to something popular
+to limit the support cost..
+
+what's important in a wiki
+  - themes + customizable design
+  - data backend for backups
+  
+maybe i should go for a ruby on rails wiki, to get a chance to jump on
+that train? i'd like to do stuff in the scheme webserver, but that
+creates more dependencies.. maybe check on planet for a wiki?
+
+checked with the boss: she's the only one updating, so i can go on
+experimenting. was thinking about using scribble instead of xml..
+
hunk ./servlets/web-util.ss 3
-(module web-util mzscheme
+(module web-util scheme/base
hunk ./servlets/web-util.ss 7
-           (lib "list.ss" "srfi" "1")
hunk ./servlets/web-util.ss 13
-  (provide (all-defined))
+  (provide (all-defined-out))
hunk ./servlets/web-util.ss 77
-                      (fold-right clean-element
-                                  '() elements))))))))
+                      (foldr clean-element
+                             '() elements))))))))
hunk ./servlets/web-util.ss 83
+  (define (dict-not-found path)
+    (lambda ()
+      (raise-user-error
+       (format "Item ~a not found in site dictionary."
+               (apply
+                string-append
+                (map (lambda (x) (format "/~s" x))
+                     (reverse path)))))))
+        
+  
hunk ./servlets/web-util.ss 94
-  (define (dict-ref dict path)
+  (define (dict-ref dict path not-found)
hunk ./servlets/web-util.ss 101
-       ((null? d) #f) ;; (raise `(not-found ,path)))
+       ((null? d) (not-found))
hunk ./servlets/web-util.ss 116
-  (define ((dict->db dict) path)
-    (ref/ls dict path))
+  (define ((dict->db dict) path (not-found (dict-not-found path)))
+    (ref/ls dict path not-found))
hunk ./servlets/web-util.ss 125
-  (define (ref/ls dict path)
-    (let ((thing (dict-ref dict path)))
+  (define (ref/ls dict path not-found)
+    (let ((thing (dict-ref dict path not-found)))
hunk ./servlets/web-util.ss 137
-      ,@(fold-right
+      ,@(foldr
hunk ./servlets/wowri 10
+           "dynamic.ss"
hunk ./servlets/wowri 26
-  
+
hunk ./servlets/wowri 31
-                     (link  (or (db `(link ,p content)) ;; external
-                                (str p))))              ;; internal
+                     (link  (db `(link ,p content)      ;; external
+                                (lambda () (str p)))))  ;; internal  
hunk ./servlets/wowri 50
-    (printf "access: ~a\n" p)
+    ;; (printf "access: ~a\n" p)
hunk ./servlets/wowri 113
-  ;; cache
-  (define *dict* #f)
-  
+  ;; Cache
+  (define *cache*
+    (cached-file-object
+     (lambda (file)
+       (printf "loading ~a\n" file)
+       (dict->db
+        (read-website file)))
+     (sweb-file "db/wowri.xml")))
+
hunk ./servlets/wowri 128
-         (printf "wowri: ~a\n" path)
-
-         ;; load content dictionary
-         (unless #f ;; *dict*
-           (set! *dict*
-                 (read-website
-                  (sweb-file "db/wowri.xml"))))
-       
hunk ./servlets/wowri 129
-         (let ((db (dict->db *dict*)))
-           (match path
+         (let ((db (force-dynamic *cache*)))
+            (match path
}