(setq ret (symbol-name ret))
(string-match "\\([0-9]+\\)-\\([0-9]+\\)" ret))
(setq ret
- (format
- "<img alt=\"HNG-card:%s\"
+ (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)))