Re: Adding hypertlink buttons

[Davin Pearson <davin.pearson@gmail.com>]

The code you sent me works just fine.  Thanking you for your time and energy
involved in constructing a reply to my original email message.

On Thu, 1 Nov 2018 at 03:36, <mail@xuchunyang.me> wrote:

>    A
>
>    A
>
>    26.10.2018, 08:21, "Davin Pearson" <davin.pearson@gmail.com>:
>
>    > I have written a drop in replacement for speedbar,el called
>    d-speedbar.el
>
>    > and I want to get left mouse button hyperlinks online instead of
>    pressing ENTER on the function browser window to take you to the
>    corresponding line for that function in the code browser window.
>
>    A
>
>    After consultingA (info "(elisp) Clickable Text") yesterday, IA wrote
>    the following to insert a link to the init file, I can click or press
>    RET onA the link to open the file.
>
>    A
>
>    (insert
>    A (propertize user-init-file
>    A  A  A  A  A  A  A 'mouse-face 'highlight
>    A  A  A  A  A  A  A 'help-echo "mouse-2: visit this file"
>    A  A  A  A  A  A  A 'follow-link t
>    A  A  A  A  A  A  A 'keymap
>    A  A  A  A  A  A  A (let ((map (make-sparse-keymap))
>    A  A  A  A  A  A  A  A  A  A (cmd (lambda ()
>    A  A  A  A  A  A  A  A  A  A  A  A  A  (interactive)
>    A  A  A  A  A  A  A  A  A  A  A  A  A  (find-file user-init-file))))
>    A  A  A  A  A  A  A  A (define-key map [mouse-2] cmd)
>    A  A  A  A  A  A  A  A (define-key map [?\C-m] cmd)
>    A  A  A  A  A  A  A  A map))
>    A ?\n)
>    A
>    I am not sure if `:follow-link t` is correct, but it seems it is
>    required because I remember click won't work without it.
>


-- 
Sincerely and kindest regards, Davin.
Davin Pearson    http://davin.50webs.com