Changeset 9585 for lang/gauche

Timestamp:

04/16/08 21:14:51 (5 years ago)

Author:

kiyoka

Message:

Changed rule of page title of Wiki Page. WikiName? + firstline of wiki source.

Files:

• lang/gauche/oldtype/trunk/Kahua/oldtype/oldtype/oldtype.kahua (modified) (4 diffs)

lang/gauche/oldtype/trunk/Kahua/oldtype/oldtype/oldtype.kahua

@@ -49 +49 @@
          (else
           #t))))
-
-
+  
 ;; utility : internal sxml format to barcode link
 (define (sxml->barcode sxmls page-src)
@@ -129 +128 @@
                                                             (string-append orig "\n")))
                                                       page-src)))
+                                                   ""
                                                    )))))
                                          (node-set
@@ -245 +245 @@
 
 
-(define (standard-page wikiname barcode nodes)
-  (html/ (head/ (title/ wikiname)
+(define (standard-page wikiname barcode nodes first-line)
+  (html/ (head/ (title/ (string-append wikiname first-line))
                 (link/ (@/ (rel "stylesheet") (type "text/css")
                            (href (string-append "/kahua/" (kahua-worker-type) "/oldtype.css"))))
@@ -285 +285 @@
 
 
+(define (oldtype-first-line page-src)
+  (car 
+   (filter
+    (lambda (x)
+      (not (#/^[ ]*$/ x)))
+    page-src)))
+
+
 (define (show-page/page wikiname)
   (let1 sexp (oldtype:load-sexp (kahua-site-root) wikiname)
-        (standard-page
-         wikiname
-         (if sexp
-             (sxml->barcode
-              (car (assq-ref sexp 'sxml))
-              (car (assq-ref sexp 'src)))
-             (br/))
-         (if sexp
-             (sxml->higher-order-tag
-              wikiname
-              (car (assq-ref sexp 'sxml))
-              (car (assq-ref sexp 'src)))
-             (div/
-              (p/
-               (@/ (class "center"))
-               (strong/
-                (@/ (class "caption"))
-                "This wikipage was not found.")))))))
-
+        (let ((sxml (car (assq-ref sexp 'sxml)))
+              (src  (car (assq-ref sexp 'src))))
+          (standard-page
+           wikiname
+           (if sexp
+               (sxml->barcode sxml src)
+               (br/))
+           (if sexp
+               (sxml->higher-order-tag wikiname sxml src)
+               (div/
+                (p/
+                 (@/ (class "center"))
+                 (strong/
+                  (@/ (class "caption"))
+                  "This wikipage was not found."))))
+           (oldtype-first-line src)))))