From: MORIOKA Tomohiko <tomo.git@chise.org>
Date: Fri, 19 Oct 2018 08:19:37 +0000 (+0900)
Subject: (concord-images-encode-url-as-id): Support image.chise.org and
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=5d8be1b6cccf5daf0fa0d5cf2745e763bdcea104;p=chise%2Fconcord-images.git

(concord-images-encode-url-as-id): Support image.chise.org and
image.kanji.zinbun.kyoto-u.ac.jp.
---

diff --git a/concord-images.el b/concord-images.el
index 84a6461..e51775d 100644
--- a/concord-images.el
+++ b/concord-images.el
@@ -3,13 +3,13 @@
 (defun concord-images-encode-url-as-id (url)
   (let (ret)
     (cond
-     ((string-match "^http://hng\\.chise\\.org/images/iiif/" url)
+     ((string-match "^http://\\(hng\\|image\\)\\.\\(chise\\.org\\|kanji\\.zinbun\\.kyoto-u\\.ac\\.jp\\)/images/iiif/" url)
       (setq ret (substring url (match-end 0)))
       (if (string-match "\\.[a-zA-Z0-9]+$" ret)
 	  (substring ret 0 (match-beginning 0))
 	ret)
       )
-     ((string-match "^http://hng\\.chise\\.org/images/" url)
+     ((string-match "^http://\\(hng\\|image\\)\\.\\(chise\\.org\\|kanji\\.zinbun\\.kyoto-u\\.ac\\.jp\\)/images/" url)
       (setq ret (substring url (match-end 0)))
       (if (string-match "\\.[a-zA-Z0-9]+$" ret)
 	  (substring ret 0 (match-beginning 0))