Distinguish image denotations from those for links

Some kind of image support can be introduced in the future, and it's
not quite correct to present images as links.

1 files changed, 11 insertions, 2 deletions

diff --git a/pancake.el b/pancake.el
index b56e417..46d0ddb 100644
--- a/pancake.el
+++ b/pancake.el
@@ -175,7 +175,7 @@
 
 (defun pancake-button-action (button)
   "An action to be invoked on button activation."
-  (funcall 'browse-url (button-get button 'uri)))
+  (funcall 'browse-url (button-get button 'pancake-uri)))
 
 (defun pancake-print-elem (element)
   "Translate ELEMENT into a string."
@@ -204,7 +204,16 @@
         (`(denotation (link . ,uri) . ,rest)
          (pancake-print-line rest)
          (make-text-button start (point)
-                           'uri uri
+                           'pancake-uri uri
+                           'pancake-type 'link
+                           'help-echo uri
+                           'follow-link t
+                           'action #'pancake-button-action))
+        (`(denotation (image . ,uri) . ,rest)
+         (pancake-print-line rest)
+         (make-text-button start (point)
+                           'pancake-uri uri
+                           'pancake-type 'image
                            'help-echo uri
                            'follow-link t
                            'action #'pancake-button-action))