Helm: Add support for extra sources in deflister

master
Pierre Neidhardt 2019-03-03 17:20:07 +01:00
parent 7d2586dda5
commit b03cc68bb7
1 changed files with 4 additions and 3 deletions

View File

@ -20,7 +20,7 @@
(switch-to-buffer buffer))
(switch-to-buffer (funcall ,new-fn candidate))))))))
(defmacro helm-deflister (name predicate new-fn &rest extra-sources)
(defmacro helm-deflister (name predicate new-fn &optional extra-sources)
(let ((buffer-source-name (format "%s buffers" name)))
(add-to-list 'helm-source-names-using-follow buffer-source-name)
`(defun ,(intern (format "helm-%s-buffers" (downcase name))) ()
@ -36,8 +36,9 @@
(when (fboundp mode)
`((ambrevar/helm-source-buffer-not-found
',mode
,new-fn)))))
:buffer ,(format "*helm-%s-buffers*" name)))))
,new-fn))))
,@extra-sources)
:buffer ,(format "*helm-%s-buffers*" name)))))
(defmacro helm-defswitcher (name predicate new-fn &optional helm-lister &rest extra-sources)
"Create an interactive buffer switcher for NAME.