How to make candidates clickable?

[okamsn]

At which point should the clickable text be added to the candidates? It must be added to selectrum--refined-candidates, yes?

[raxod502]

Well, text properties are never stripped, so I think adding at any point would be fine. Why not in the collection passed to completing-read?

(let ((button "Hello world")
      (keymap (make-sparse-keymap)))
  (define-key keymap
    [mouse-1]
    (lambda
      ()
      (interactive)
      (message "Hi there!")))
  (put-text-property
   0 (length button) 'keymap keymap button)
  (completing-read "Click me: " (list button)))

[okamsn]

I wanted to add the ability to select candidates via the mouse for all selections, but I'm not sure at what point the final candidates are decided.

I wanted to do something like the following.

  (seq-map-indexed (lambda (cand index)
                   (propertize
                    cand
                    'keymap (let ((keymap (make-sparse-keymap)))
                              (define-key keymap [mouse-1]
                                (lambda ()
                                  (interactive)
                                  (selectrum-select-current-candidate (1+ index))))
                              (define-key keymap [mouse-3]
                                (lambda ()
                                  (interactive)
                                  (selectrum-insert-current-candidate (1+ index)))))))
                 cands)

[raxod502]

I see. You were not talking about propertizing a particular candidate, rather you wanted to contribute a pull request that would allow mouse control of Selectrum. I think it would make the most sense to do this at the very end, around here where other text properties are handled:

https://github.com/raxod502/selectrum/blob/a6a2512e1970af1a8e4273a719160fc1d5cb7660/selectrum.el#L745-L756

[okamsn]

Thank you for your help. I made a pull request.