From c7eacb59b6c11c458ee5b0d5af024090c09134b6 Mon Sep 17 00:00:00 2001
From: MORIOKA Tomohiko <tomo.git@chise.org>
Date: Wed, 30 Oct 2019 15:18:26 +0900
Subject: [PATCH] (www-display-object-desc): For genre `hng-card', add a link
 to card image for the corresponding image-resource page.

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

diff --git a/cwiki-view.el b/cwiki-view.el
index ca965f2..d626714 100644
--- a/cwiki-view.el
+++ b/cwiki-view.el
@@ -329,14 +329,21 @@ li { margin: 0 0 0 2em; }
 	     (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\"
+	(setq ret
+	     (format
+	      "<img alt=\"HNG-card:%s\"
 src=\"http://hng.chise.org/images/HNG/%03d/card/%04d.jpg\"
 style=\"height: 480px;\" />"
-	  ret
-	  (string-to-int (match-string 1 ret))
-	  (string-to-int (match-string 2 ret))))
+	      ret
+	      (string-to-int (match-string 1 ret))
+	      (string-to-int (match-string 2 ret))))
+	(princ
+	 (if (setq image-cobj
+		   (car (concord-object-get object '->image-resource)))
+	     (format "<a href=\"../image-resource/%s\">%s</a>"
+		     (www-uri-encode-object image-cobj)
+		     ret)
+	   ret))
 	)
        (t
 	(setq ret (www-format-encode-string
-- 
1.7.10.4