From 94afae05add89b808ec4054afd69409c5fc7c3f6 Mon Sep 17 00:00:00 2001
From: MORIOKA Tomohiko <tomo.git@chise.org>
Date: Wed, 8 Jun 2016 22:51:31 +0900
Subject: [PATCH] (www-display-object-desc): Add code for genre `hng-card' to
 display image of HNG-card.

---
 cwiki-view.el |   13 +++++++++++++
 1 file changed, 13 insertions(+)

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)))
-- 
1.7.10.4