isearch transient interface

[Inc0n]

I made a little transient interface for isearch, I would like to think this is a good addition to the guide.
This would my setup for isearch, that I would replace the advice version with.

(defun my/isearch ()
  "Isearch with transient map interface."
  (interactive)
  (isearch-forward-regexp nil nil)
  (set-transient-map
   (let ((map (make-sparse-keymap)))
     (define-key map "n" 'isearch-repeat-forward)
     (define-key map "N" 'isearch-repeat-backward)
     map)
   t
   (lambda ()                                ; cleanup
     (lazy-highlight-cleanup 'force)
     (when (cdr isearch-cmds)        ; avoid exiting twice
       (isearch-exit)))))

I have used n and N as an evil user, which may be best changed to n and p for others.

Edit: added isearch-mode check before exit