From 53d7b8175ff897391fda84eb3dc71af31d364f7e Mon Sep 17 00:00:00 2001 From: defanor Date: Sun, 26 Nov 2017 08:52:32 +0300 Subject: 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. --- pancake.el | 13 +++++++++++-- 1 file changed, 11 insertions(+), 2 deletions(-) (limited to 'pancake.el') 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)) -- cgit v1.2.3