Changeset 15232 for lang/gauche

Timestamp:

07/06/08 00:54:46 (5 months ago)

Author:

kiyoka

Message:

Supported nolist command.

Location:

lang/gauche/oldtype/trunk

Files:

• Kahua/oldtype/oldtype/util.kahua (modified) (1 diff)
• bin/ot_RecentChanges (modified) (1 diff)
• command/blog (modified) (4 diffs)

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

@@ -349 +349 @@
                (tr/ (td/
                      (input/ (@/ (type "submit") (value "Submit comment"))))))))
-                    
+
+      ;; no listing to !RecentChanges
+      ((nolist)
+       (p/ ""))
+
       (else
        `(p/ ,(format "!!Error : no such macro \"~a\"!!" command))))))

lang/gauche/oldtype/trunk/bin/ot_RecentChanges

@@ -20 +20 @@
       eval ${line}
       name=`basename ${name} .ot`
-      echo "- ##(timestamp ${commit_utc}) ##(since ${commit_utc}): [[${name}]] by ([[${commit_author}]])"
+      if `grep '##(nolist)' ${OT_EDITHOME}/edit/${name}.ot > /dev/null` ; then
+        status=0
+      else
+        echo "- ##(timestamp ${commit_utc}) ##(since ${commit_utc}): [[${name}]] by ([[${commit_author}]])"
+      fi
   fi
 done | sort -r | head -${DISPLAY_LINES} >> ${OT_EDITHOME}/edit/!RecentChanges.ot.tmp

lang/gauche/oldtype/trunk/command/blog

@@ -22 +22 @@
                            "[.]([0-9]+)")))))
 
-(define (output-blog save-filename entrylist)
+(define (output-blog save-filename entrylist appendix)
   (with-output-to-file save-filename
     (lambda ()
@@ -37 +37 @@
                   (string-append "* [[" (oldtype:otpath->wikiname filename) "]]"))))
              (for-each print (port->string-list (current-input-port))))))
-       entrylist))))
+       entrylist)
+      (display appendix)
+      (newline))))
 
 
@@ -58 +60 @@
                (cons
                 ot-blog-header
-                (take (ot-blog-entrylist) ot-new-entry-limit)))
+                (take (ot-blog-entrylist) ot-new-entry-limit))
+               "")
   (output-blog-list (string-append ot-blog ".list.ot")
                     (ot-blog-entrylist))
@@ -68 +71 @@
                     (cons
                      ot-blog-header
-                     (reverse entries)))))
+                     (reverse entries))
+                    "##(nolist)")))
    (oldtype:grouping-blog-entries
     (ot-blog-entrylist)))