From: MORIOKA Tomohiko <tomo.git@chise.org>
Date: Wed, 8 Jun 2016 13:51:31 +0000 (+0900)
Subject: (www-display-object-desc): Add code for genre `hng-card' to display
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=94afae05add89b808ec4054afd69409c5fc7c3f6;p=chise%2Fest.git

(www-display-object-desc): Add code for genre `hng-card' to display
image of HNG-card.
---

diff --git a/cwiki-view.el b/cwiki-view.el
index b0c1454..3ce51b5 100644
--- a/cwiki-view.el
+++ b/cwiki-view.el
@@ -224,6 +224,19 @@ li { margin: 0 0 0 2em; }
 	   (format "<img alt=\"%s\" src=\"%s\" />"
 		   ret ret)))
 	)
+       ((and (eq genre 'hng-card)
+	     (setq ret (concord-object-get object '=hng-card))
+	     (setq ret (symbol-name ret))
+	     (string-match "\\([0-9]+\\)-\\([0-9]+\\)" ret))
+	(princ
+	 (format
+	  "<img alt=\"HNG-card:%s\"
+src=\"http://hng.chise.org/images/HNG/%03d/cards/%04d.jpg\"
+style=\"height: 480px;\" />"
+	  ret
+	  (string-to-int (match-string 1 ret))
+	  (string-to-int (match-string 2 ret))))
+	)
        (t
 	(setq ret (www-format-encode-string
 		   (est-format-object object 'readable)))