Re: how to set button action

[Alex Kost <alezost@gmail.com>]

Stefan Huchler (2016-10-16 04:36 +0200) wrote:

> Hi,
>
> I am trying to get buttons working in a tabulated-list mode but when I
> press enter on that link it does not execute the print.
>
> also tried it without lambda and the funcions name. Is there a trick I
> am missing?
>
>
> (define-derived-mode test-foo-mode tabulated-list-mode "test-foo"
>   (setq tabulated-list-format [("Series" 10 t)])
>   (setq tabulated-list-entries '((nil [("test" . ('action (lambda (btn)
>     (print "action"))))])))

The foollowing works for me:

  (setq tabulated-list-entries
        '((nil [("test" action (lambda (btn) (print "action")))])))

>   (tabulated-list-init-header)
>   (tabulated-list-print)
>   )
>
> (defun test-foo ()
>   (interactive)
>   (let* ((name "*test-foo*")
> 	 (buffer (or (get-buffer name)
> 		     (generate-new-buffer name))))
>     (unless (eq buffer (current-buffer))
>       (with-current-buffer buffer
> 	(unless (eq major-mode 'test-foo-mode)
> 	  (condition-case e
> 	      (progn
> 		(test-foo-mode)
> 		)
> 	    (error
> 	     (kill-buffer buffer)
> 	     (signal (car e) (cdr e))))))
>       (switch-to-buffer-other-window buffer))))

-- 
Alex