parent
fba7bf7748
commit
60c965ded8
1 changed files with 1 additions and 11 deletions
|
@ -93,17 +93,7 @@ immediately runs it on the current candidate (ending the ivy session)."
|
||||||
(colplist (plist-get plist :columns))
|
(colplist (plist-get plist :columns))
|
||||||
(switch-buffer-alist (assq 'ivy-rich-candidate colplist)))
|
(switch-buffer-alist (assq 'ivy-rich-candidate colplist)))
|
||||||
(when switch-buffer-alist
|
(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
|
(def-package! counsel
|
||||||
|
|
Loading…
Add table
Add a link
Reference in a new issue