Changeset 21126 for lang/gauche/oldtype/trunk/Kahua/oldtype/oldtype/util.scm

Timestamp:

10/11/08 16:57:22 (3 months ago)

Author:

kiyoka

Message:

Added monthly index feature to blog-list page.

Files:

• lang/gauche/oldtype/trunk/Kahua/oldtype/oldtype/util.scm (modified) (2 diffs)

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

@@ -56 +56 @@
           oldtype:utc->ago-string
           oldtype:grouping-blog-entries
+          oldtype:thumbnail-filter
           pretty-print-sexp))
 (select-module oldtype.util)
@@ -307 +308 @@
 
 
+;;
+;; test pattern:
+;;   (thumbnail-filter '("line 1"
+;;                       "line 2"
+;;                       "line 3"
+;;                       "line 4"
+;;                       "##(amazon 4873113482)       ##(img-s ../img/abc.jpg)"
+;;                       "! ##(youtube 4873113482)    ##(img-m ../img/abc.jpg)"
+;;                       ))
+;; result:
+;;  "##(img-s ../img/abc.jpg)  ##(amazon-s 4873113482) "
+;; 
+(define (oldtype:thumbnail-filter str-list)
+  (let1 ret '()
+        (for-each
+         (lambda (line)
+           (when (not (#/^[!]/ line))
+             (regexp-replace-all
+              #/##\((img|img-s|img-m|youtube|youtube-s|youtube-m|amazon|amazon-s|amazon-m)[ ]+([^\)]+)\)/
+              line
+              (lambda (m)
+                (push! ret (list
+                            (rxmatch-substring m 1)
+                            (rxmatch-substring m 2)))))))
+         str-list)
+        (string-join
+         (map
+          (lambda (x)
+            (let1 command-pair (string-split (car x) #\-)
+                  (string-append
+                   "##(" (car command-pair) "-s " (cadr x) ") ")))
+          (reverse ret)))))
+
+
 (provide "oldtype/util")