diff options
author | Thierry Volpiatto <thierry.volpiatto@gmail.com> | 2015-04-19 06:52:52 +0200 |
---|---|---|
committer | Thierry Volpiatto <thierry.volpiatto@gmail.com> | 2015-04-19 06:52:52 +0200 |
commit | e3a78189ba6375416c4633409e8ecb1a78d02172 (patch) | |
tree | 1eace1cc53446092bd7c05498fcff7ccd25276ff /helm-bookmark.el | |
parent | a91b4caba50cc4943b369d65e666e3b7bf993c41 (diff) |
Allow customizing bookmark source list.
* helm-bookmark.el (helm-bookmark-default-filtered-sources): New.
(helm-filtered-bookmarks): Use it.
Diffstat (limited to 'helm-bookmark.el')
-rw-r--r-- | helm-bookmark.el | 28 |
1 files changed, 17 insertions, 11 deletions
diff --git a/helm-bookmark.el b/helm-bookmark.el index d8a5b889..5b5efe2b 100644 --- a/helm-bookmark.el +++ b/helm-bookmark.el @@ -39,6 +39,22 @@ :group 'helm-bookmark :type 'boolean) +(defcustom helm-bookmark-default-filtered-sources + (append '(helm-source-bookmark-files&dirs + helm-source-bookmark-helm-find-files + helm-source-bookmark-info + helm-source-bookmark-gnus + helm-source-bookmark-man + helm-source-bookmark-images + helm-source-bookmark-w3m) + (and (locate-library "addressbook-bookmark") + (list 'helm-source-bookmark-addressbook)) + (list 'helm-source-bookmark-uncategorized + 'helm-source-bookmark-set)) + "List of sources to use in `helm-filtered-bookmarks'." + :group 'helm-bookmark + :type '(repeat (choice symbol))) + (defface helm-bookmark-info '((t (:foreground "green"))) @@ -760,17 +776,7 @@ e.g prepended with *." Optional source `helm-source-bookmark-addressbook' is loaded only if external library addressbook-bookmark.el is available." (interactive) - (helm :sources (append '(helm-source-bookmark-files&dirs - helm-source-bookmark-helm-find-files - helm-source-bookmark-info - helm-source-bookmark-gnus - helm-source-bookmark-man - helm-source-bookmark-images - helm-source-bookmark-w3m) - (and (locate-library "addressbook-bookmark") - (list 'helm-source-bookmark-addressbook)) - (list helm-source-bookmark-uncategorized - 'helm-source-bookmark-set)) + (helm :sources helm-bookmark-default-filtered-sources :prompt "Search Bookmark: " :buffer "*helm filtered bookmarks*" :default (list (thing-at-point 'symbol) |