Changeset 28220 for lang/gauche

Timestamp:

01/10/09 00:55:05 (4 years ago)

Author:

kiyoka

Message:

Added oldtype:rss-limit.

Location:

lang/gauche/oldtype/trunk/Kahua/oldtype

Files:

• Makefile (modified) (1 diff)
• oldtype/oldtype-rss.kahua (modified) (1 diff)
• oldtype/util.scm (modified) (2 diffs)

lang/gauche/oldtype/trunk/Kahua/oldtype/Makefile

@@ -38 +38 @@
 SCRIPTFILES = \
         $(package)/$(package).kahua $(package)/version.kahua $(package)/util.kahua $(package)/oldtype-rss.kahua \
+        $(package)/oldtype-css.kahua \
         $(package)/format.scm $(package)/core.scm \
         $(package)/parse.scm $(package)/util.scm $(package)/pasttime.scm $(package)/page.scm $(package)/timeline.scm \
         $(package)/log.scm $(package)/svn.scm
-STATICFILES = $(package)/$(package).css $(package)/staticimg/*.png $(package)/staticimg/*.gif $(package)/*.el $(package)/import/*.js $(package)/import/*.css $(package)/$(package).js
+STATICFILES = $(package)/staticimg/*.png $(package)/staticimg/*.gif $(package)/*.el $(package)/import/*.js $(package)/import/*.css $(package)/$(package).js
 
 SOURCEDIR   = $(package)

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

@@ -32 +32 @@
          (entry-pages    (if (null? entry-pages)
                              (list index-page)
-                             entry-pages))
+                             (take* entry-pages oldtype:rss-limit)))
          (build-date-utc
           (last

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

@@ -42 +42 @@
           oldtype:site-url
           oldtype:rank-limit
+          oldtype:rss-limit
           oldtype:image-height-s
           oldtype:image-height-m
@@ -73 +74 @@
 (define oldtype:site-url "http://sourceforge.jp/projects/oldtype/")
 (define oldtype:rank-limit 5)
+(define oldtype:rss-limit 30)
 (define oldtype:image-height-s 40)
 (define oldtype:image-height-m 80)