diff options
author | Thierry Volpiatto <thierry.volpiatto@gmail.com> | 2017-05-24 07:05:19 +0200 |
---|---|---|
committer | Thierry Volpiatto <thierry.volpiatto@gmail.com> | 2017-05-24 07:38:54 +0200 |
commit | ee2acf04873ae513855c03f4cf0cc2b1feb2e87d (patch) | |
tree | 6f316b86db07eaf0aa1cdf1070338d7e48d7700a /helm-types.el | |
parent | 3a1e91978703e057909c95b646073b289b81cb00 (diff) |
Start adding group in some sources.
* helm-files.el (helm-source-ffiles): Do it.
* helm-types.el (helm--setup-source): Do it.
* helm-dabbrev.el (helm-dabbrev): Do it.
* helm-elisp-package.el (helm-list-el-package-source): Do it.
* helm-grep.el (helm-grep-class): Do it.
(helm-grep-ag-class): Do it.
* helm-imenu.el (helm-imenu-source): Do it.
* helm-locate.el (helm-locate-source): Do it.
(helm-locate-subdirs-source): Do it.
* helm-man.el (helm-source-man-pages): Do it.
* helm-org.el (helm-org-headings-class): Do it.
* helm-regexp.el (helm-source-regexp): Do it.
(helm-source-multi-occur): Do it.
* helm-ring.el (helm-source-kill-ring): Do it.
(helm-source-mark-ring): Do it.
(helm-source-global-mark-ring): Do it.
(helm-source-register): Do it.
(helm-execute-kmacro): Do it.
* helm-sys.el (helm-source-top): Do it.
* helm-tags.el (helm-etags-build-source): Do it.
Diffstat (limited to 'helm-types.el')
-rw-r--r-- | helm-types.el | 15 |
1 files changed, 10 insertions, 5 deletions
diff --git a/helm-types.el b/helm-types.el index 9385cf72..2002019f 100644 --- a/helm-types.el +++ b/helm-types.el @@ -84,7 +84,8 @@ 'helm-highlight-files) (setf (slot-value source 'help-message) 'helm-generic-file-help-message) (setf (slot-value source 'mode-line) (list "File(s)" helm-mode-line-string)) - (setf (slot-value source 'keymap) helm-generic-files-map)) + (setf (slot-value source 'keymap) helm-generic-files-map) + (setf (slot-value source 'group) 'helm-files)) ;; Bookmarks @@ -117,7 +118,8 @@ (setf (slot-value source 'mode-line) (list "Bookmark(s)" helm-mode-line-string)) (setf (slot-value source 'help-message) 'helm-bookmark-help-message) (setf (slot-value source 'migemo) t) - (setf (slot-value source 'follow) 'never)) + (setf (slot-value source 'follow) 'never) + (setf (slot-value source 'group) 'helm-bookmark)) ;; Buffers @@ -168,7 +170,8 @@ (setf (slot-value source 'filtered-candidate-transformer) '(helm-skip-boring-buffers helm-buffers-sort-transformer - helm-highlight-buffers))) + helm-highlight-buffers)) + (setf (slot-value source 'group) 'helm-buffers)) ;; Functions (defclass helm-type-function (helm-source) () @@ -229,7 +232,8 @@ (defmethod helm--setup-source :before ((source helm-type-command)) (setf (slot-value source 'action) 'helm-type-command-actions) (setf (slot-value source 'coerce) 'helm-symbolify) - (setf (slot-value source 'persistent-action) 'describe-function)) + (setf (slot-value source 'persistent-action) 'describe-function) + (setf (slot-value source 'group) 'helm-command)) ;; Timers (defclass helm-type-timers (helm-source) () @@ -258,7 +262,8 @@ (setf (slot-value source 'persistent-action) (lambda (tm) (describe-function (timer--function tm)))) - (setf (slot-value source 'persistent-help) "Describe Function")) + (setf (slot-value source 'persistent-help) "Describe Function") + (setf (slot-value source 'group) 'helm-elisp)) ;; Builders. (defun helm-build-type-file () |