How can I append actions to a command

[DamienCassou]

I would like, from my init.el, to add an action to counsel-find-file. Currently, ivy only proposes to set actions, which replaces the existing actions I want to keep.

[abo-abo]

Like this:

(ivy-set-actions
 'counsel-find-file
 (append
  '(("t" (lambda (x) (message "test: %S" x)) "test"))
  (plist-get ivy--actions-list 'counsel-find-file)))

But I prefer to keep everything in one place. Must easier to experiment.

[DamienCassou]

I should I have been more explicit sorry: I meant "is it possible for ivy to provide a new function that would ease adding new actions to a command?". If I understand your last sentence properly, does it mean you don't expect users to add actions to existing commands such as swiper or counsel-find-file?

[abo-abo]

you don't expect users to add actions to existing commands such as swiper or counsel-find-file

I do, but the idea is for the user to first copy the default ivy-set-actions for a particular command from counsel.el and then customize it. This way, if you mess them up (I do it often when e.g. testing code for issues) you can reset all of them to your preferred state with a single key in a single place.

But if you really want to PR with ivy-add-actions, I don't mind. Just don't forget to delete-dups.

[abo-abo]

I've added the new function. But it's a real pain to use, at least for me. The major problem is that if you add a bad action, there's no easy way to remove it. So I'd need to have this code around in *scratch*, so that I can reset if I mess up:

(ivy-set-actions t nil)
(ivy-add-actions t '(("f" (lambda (x) (message "foobar")) "foobar")))

One advantage of ivy-set-actions is that it automatically resets when I mess up.