Changeset 21454 for lang/gauche

Timestamp:

10/17/08 00:17:09 (5 years ago)

Author:

kiyoka

Message:

Bugfix: 'Converting URL to ##(amazon ASIN) command' feature generates wrong ASIN code.

Files:

• lang/gauche/oldtype/trunk/Kahua/oldtype/oldtype/oldtype-mode.el (modified) (4 diffs)

lang/gauche/oldtype/trunk/Kahua/oldtype/oldtype/oldtype-mode.el

@@ -25 +25 @@
 ;;
 ;; How to nstall and How to use:
-;;     http://oldtype.sumibi.org/
+;;     http://oldtype.sumibi.org/show-page/oldtype-mode
 ;;
 ;;
 ;; ChangeLog:
+;;   [0.0.9]
+;;     1. Bugfix: 'Converting URL to ##(amazon ASIN) command' feature generates wrong ASIN code.
+;;
 ;;   [0.0.8]
 ;;     1. Fixed bug: illegal ASINCODE of amazon and VIDEOCODE of youtube use for image file creation.
@@ -57 +60 @@
 ;;
 ;;
-(defconst oldtype-version "0.0.8")
+(defconst oldtype-version "0.0.9")
 
 (defconst oldtype-wikiname-face 'oldtype-wikiname-face)
@@ -670 +673 @@
           (_url_amazon-pattern
            "\\(http://.*amazon[.]c.*\\)/\\([0-9A-Z-][0-9A-Z-][0-9A-Z-][0-9A-Z-][0-9A-Z-][0-9A-Z-][0-9A-Z-][0-9A-Z-][0-9A-Z-][0-9A-Z-]\\)[^0-9A-Z-]?\\(.*\\)")
+          (_url_amazon-pattern-part
+           "/dp/\\([0-9A-Z-][0-9A-Z-][0-9A-Z-][0-9A-Z-][0-9A-Z-][0-9A-Z-][0-9A-Z-][0-9A-Z-][0-9A-Z-][0-9A-Z-]\\)")
           (_url_youtube-pattern
            "\\(http://.*youtube[.]com/watch\\?v=\\)\\([0-9A-Za-z_-]+\\)\\(.*\\)"))
@@ -734 +739 @@
                  (e     (match-end 3))
                  (title (oldtype-fetch-html-title url)))
+            (message str)
+            (when (string-match    _url_amazon-pattern-part  str)
+              (setq asin (match-string 1 str)))
             (delete-region s e)
             (goto-char s)