Helm: Add support for extra sources in deflister
parent
7d2586dda5
commit
b03cc68bb7
|
@ -20,7 +20,7 @@
|
||||||
(switch-to-buffer buffer))
|
(switch-to-buffer buffer))
|
||||||
(switch-to-buffer (funcall ,new-fn candidate))))))))
|
(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)))
|
(let ((buffer-source-name (format "%s buffers" name)))
|
||||||
(add-to-list 'helm-source-names-using-follow buffer-source-name)
|
(add-to-list 'helm-source-names-using-follow buffer-source-name)
|
||||||
`(defun ,(intern (format "helm-%s-buffers" (downcase name))) ()
|
`(defun ,(intern (format "helm-%s-buffers" (downcase name))) ()
|
||||||
|
@ -36,8 +36,9 @@
|
||||||
(when (fboundp mode)
|
(when (fboundp mode)
|
||||||
`((ambrevar/helm-source-buffer-not-found
|
`((ambrevar/helm-source-buffer-not-found
|
||||||
',mode
|
',mode
|
||||||
,new-fn)))))
|
,new-fn))))
|
||||||
:buffer ,(format "*helm-%s-buffers*" name)))))
|
,@extra-sources)
|
||||||
|
:buffer ,(format "*helm-%s-buffers*" name)))))
|
||||||
|
|
||||||
(defmacro helm-defswitcher (name predicate new-fn &optional helm-lister &rest extra-sources)
|
(defmacro helm-defswitcher (name predicate new-fn &optional helm-lister &rest extra-sources)
|
||||||
"Create an interactive buffer switcher for NAME.
|
"Create an interactive buffer switcher for NAME.
|
||||||
|
|
Loading…
Reference in New Issue