From 5d8be1b6cccf5daf0fa0d5cf2745e763bdcea104 Mon Sep 17 00:00:00 2001 From: MORIOKA Tomohiko Date: Fri, 19 Oct 2018 17:19:37 +0900 Subject: [PATCH] (concord-images-encode-url-as-id): Support image.chise.org and image.kanji.zinbun.kyoto-u.ac.jp. --- concord-images.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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)) -- 1.7.10.4