;; Workaround for https://github.com/joaotavora/sly/issues/452.
(defun ambrevar/disable-rainbow-delimiters (_orig &rest args)
  "`rainbow-delimiters-mode' interferes with `ffap' (and thus Helm) in SLY mrepl.
Example:

> (princ \"/home\")
/home
\"/home\"

Running `ffap' on the first /home would not work as expected."
  (rainbow-delimiters-mode -1))
(advice-add 'sly-mrepl-return :before 'ambrevar/disable-rainbow-delimiters)

(defun ambrevar/enable-rainbow-delimiters (_orig &rest args)
  "See `ambrevar/disable-rainbow-delimiters'."
  (rainbow-delimiters-mode 1))
(advice-add 'sly-mrepl--insert-prompt :before 'ambrevar/enable-rainbow-delimiters)

(provide 'patch-sly-rainbow)