Fix ivy--queue-exhibit: void-function nil error

Until Yevgnen/ivy-rich#51 is merged
This commit is contained in:
Henrik Lissner 2019-03-08 17:58:58 -05:00
parent 062652ec11
commit ee6e4a8b5c
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395

View file

@ -93,7 +93,17 @@ immediately runs it on the current candidate (ending the ivy session)."
(colplist (plist-get plist :columns))
(switch-buffer-alist (assq 'ivy-rich-candidate colplist)))
(when switch-buffer-alist
(setcar switch-buffer-alist '+ivy-rich-buffer-name))))
(setcar switch-buffer-alist '+ivy-rich-buffer-name)))
(defun +ivy*rich-counsel-function-docstring (candidate)
(let ((doc (replace-regexp-in-string
":\\(\\(before\\|after\\)\\(-\\(whilte\\|until\\)\\)?\\|around\\|override\\|\\(filter-\\(args\\|return\\)\\)\\) advice:[ ]*.+?[\r\n]+"
""
(or (ignore-errors (documentation (intern-soft candidate))) ""))))
(if (string-match "^\\(.+\\)\\([\r\n]\\)?" doc)
(setq doc (match-string 1 doc))
"")))
(advice-add #'ivy-rich-counsel-function-docstring :override #'+ivy*rich-counsel-function-docstring))
(def-package! counsel