20 lines
679 B
EmacsLisp
20 lines
679 B
EmacsLisp
;; 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)
|