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.

13 files changed, 46 insertions, 22 deletions

diff --git a/helm-dabbrev.el b/helm-dabbrev.el
index dece1ef2..49b80759 100644
--- a/helm-dabbrev.el
+++ b/helm-dabbrev.el
@@ -316,7 +316,8 @@ but the initial search for all candidates in buffer(s)."
                              :persistent-action 'ignore
                              :persistent-help "DoNothing"
                              :keymap helm-dabbrev-map
-                             :action 'helm-dabbrev-default-action)
+                             :action 'helm-dabbrev-default-action
+                             :group 'helm-dabbrev)
                   :buffer "*helm dabbrev*"
                   :input (concat "^" dabbrev " ")
                   :resume 'noresume
diff --git a/helm-elisp-package.el b/helm-elisp-package.el
index cf7f0c52..e5c629f2 100644
--- a/helm-elisp-package.el
+++ b/helm-elisp-package.el
@@ -361,7 +361,8 @@
    (update :initform 'helm-el-package--update)
    (candidate-number-limit :initform 9999)
    (action :initform '(("Describe package" . helm-el-package-describe)
-                       ("Visit homepage" . helm-el-package-visit-homepage)))))
+                       ("Visit homepage" . helm-el-package-visit-homepage)))
+   (group :initform 'helm-el-package)))
 
 (defun helm-el-package--action-transformer (actions candidate)
   (let* ((pkg-desc (get-text-property 0 'tabulated-list-id candidate))
diff --git a/helm-files.el b/helm-files.el
index a6345dae..1b9a04fc 100644
--- a/helm-files.el
+++ b/helm-files.el
@@ -561,7 +561,8 @@ Should not be used among other sources.")
     :initform 'helm-find-files-action-transformer)
    (action :initform 'helm-find-files-actions)
    (before-init-hook :initform 'helm-find-files-before-init-hook)
-   (after-init-hook :initform 'helm-find-files-after-init-hook)))
+   (after-init-hook :initform 'helm-find-files-after-init-hook)
+   (group :initform 'helm-files)))
 
 ;; Bookmark handlers.
 ;;
diff --git a/helm-grep.el b/helm-grep.el
index 1182cbfe..6a2c64ed 100644
--- a/helm-grep.el
+++ b/helm-grep.el
@@ -990,7 +990,8 @@ These extensions will be added to command line with --include arg of grep."
    (action :initform 'helm-grep-actions)
    (persistent-action :initform 'helm-grep-persistent-action)
    (persistent-help :initform "Jump to line (`C-u' Record in mark ring)")
-   (requires-pattern :initform 2)))
+   (requires-pattern :initform 2)
+   (group :initform 'helm-grep)))
 
 (defvar helm-source-grep nil)
 
@@ -1493,7 +1494,8 @@ if available with current AG version."
    (candidate-number-limit :initform 99999)
    (requires-pattern :initform 2)
    (nomark :initform t)
-   (action :initform 'helm-grep-actions)))
+   (action :initform 'helm-grep-actions)
+   (group :initform 'helm-grep)))
 
 (defvar helm-source-grep-ag nil)
 
diff --git a/helm-imenu.el b/helm-imenu.el
index 6e225456..52482619 100644
--- a/helm-imenu.el
+++ b/helm-imenu.el
@@ -143,7 +143,8 @@ Each car is a regexp match pattern of the imenu type string."
    (nomark :initform t)
    (keymap :initform helm-imenu-map)
    (help-message :initform 'helm-imenu-help-message)
-   (action :initform 'helm-imenu-action)))
+   (action :initform 'helm-imenu-action)
+   (group :initform 'helm-imenu)))
 
 (defcustom helm-imenu-fuzzy-match nil
   "Enable fuzzy matching in `helm-source-imenu'."
diff --git a/helm-locate.el b/helm-locate.el
index c8ff9cf8..01c7738f 100644
--- a/helm-locate.el
+++ b/helm-locate.el
@@ -349,7 +349,8 @@ Sort is done on basename of CANDIDATES."
    (history :initform 'helm-file-name-history)
    (persistent-action :initform 'helm-ff-kill-or-find-buffer-fname)
    (candidate-number-limit :initform 9999)
-   (redisplay :initform (progn helm-locate-fuzzy-sort-fn))))
+   (redisplay :initform (progn helm-locate-fuzzy-sort-fn))
+   (group :initform 'helm-locate)))
 
 (defvar helm-source-locate
   (helm-make-source "Locate" 'helm-locate-source
@@ -405,7 +406,8 @@ Sort is done on basename of CANDIDATES."
    (subdir :initarg :subdir
            :initform nil
            :custom 'string)
-   (data :initform #'helm-locate-init-subdirs)))
+   (data :initform #'helm-locate-init-subdirs)
+   (group :initform 'helm-locate)))
 
 (defun helm-locate-init-subdirs ()
   (with-temp-buffer
diff --git a/helm-man.el b/helm-man.el
index 04d56cf8..8062ecb6 100644
--- a/helm-man.el
+++ b/helm-man.el
@@ -96,7 +96,8 @@ source.")
     :filtered-candidate-transformer
      (lambda (candidates _source)
        (sort candidates #'helm-generic-sort-fn))
-    :action  '(("Display Man page" . helm-man-default-action))))
+    :action  '(("Display Man page" . helm-man-default-action))
+    :group 'helm-man))
 
 ;;;###autoload
 (defun helm-man-woman (arg)
diff --git a/helm-org.el b/helm-org.el
index 8dde1c2c..ff3570d2 100644
--- a/helm-org.el
+++ b/helm-org.el
@@ -130,7 +130,8 @@ Note this have no effect in `helm-org-in-buffer-headings'."
                candidate))))
    (help-message :initform 'helm-org-headings-help-message)
    (action :initform 'helm-org-headings-actions)
-   (keymap :initform 'helm-org-headings-map)))
+   (keymap :initform 'helm-org-headings-map)
+   (group :initform 'helm-org)))
 
 (defmethod helm--setup-source :after ((source helm-org-headings-class))
   (let ((parents (slot-value source 'parents)))
diff --git a/helm-regexp.el b/helm-regexp.el
index 1456cbb2..bb8f4e73 100644
--- a/helm-regexp.el
+++ b/helm-regexp.el
@@ -140,6 +140,7 @@ i.e Don't replace inside a word, regexp is surrounded with \\bregexp\\b."
     :multiline t
     :multimatch nil
     :requires-pattern 2
+    :group 'helm-regexp
     :mode-line "Press TAB to select action."
     :action '(("Kill Regexp as sexp" . helm-kill-regexp-as-sexp)
               ("Query Replace Regexp (C-u Not inside word.)"
@@ -329,7 +330,8 @@ Same as `helm-moccur-goto-line' but go in new frame."
    (help-message :initform 'helm-moccur-help-message)
    (keymap :initform helm-moccur-map)
    (history :initform 'helm-occur-history)
-   (requires-pattern :initform 2)))
+   (requires-pattern :initform 2)
+   (group :initform 'helm-regexp)))
 
 (defun helm-moccur-resume-fn ()
   (with-helm-buffer
diff --git a/helm-ring.el b/helm-ring.el
index 4217ed52..3b142063 100644
--- a/helm-ring.el
+++ b/helm-ring.el
@@ -88,7 +88,8 @@ will not have anymore separators between candidates."
     :persistent-help "DoNothing"
     :keymap helm-kill-ring-map
     :migemo t
-    :multiline 'helm-kill-ring-max-offset)
+    :multiline 'helm-kill-ring-max-offset
+    :group 'helm-ring)
   "Source for browse and insert contents of kill-ring.")
 
 (defun helm-kill-ring-candidates ()
@@ -247,14 +248,16 @@ This is a command for `helm-kill-ring-map'."
   (helm-build-sync-source "mark-ring"
     :candidates #'helm-mark-ring-get-candidates
     :action '(("Goto line" . helm-mark-ring-default-action)) 
-    :persistent-help "Show this line"))
+    :persistent-help "Show this line"
+    :group 'helm-ring))
 
 ;;; Global-mark-ring
 (defvar helm-source-global-mark-ring
   (helm-build-sync-source "global-mark-ring"
     :candidates #'helm-global-mark-ring-get-candidates
     :action '(("Goto line" . helm-mark-ring-default-action))
-    :persistent-help "Show this line"))
+    :persistent-help "Show this line"
+    :group 'helm-ring))
 
 (defun helm-global-mark-ring-format-buffer (marker)
   (with-current-buffer (marker-buffer marker)
@@ -332,7 +335,8 @@ the `global-mark-ring' after each new visit."
                           for register = (car candidate)
                           do (setq register-alist
                                 (delq (assoc register register-alist)
-                                      register-alist)))))))
+                                      register-alist))))))
+    :group 'helm-ring)
   "See (info \"(emacs)Registers\")")
 
 (defun helm-register-candidates ()
@@ -512,7 +516,8 @@ This command is useful when used with persistent action."
              (kmacro-push-ring)
              (kmacro-split-ring-element candidate)
              (kmacro-exec-ring-item
-              candidate helm-current-prefix-arg))))
+              candidate helm-current-prefix-arg)))
+          :group 'helm-ring)
         :buffer "*helm kmacro*"))
 
 (provide 'helm-ring)
diff --git a/helm-sys.el b/helm-sys.el
index 9ada3732..204ac4ed 100644
--- a/helm-sys.el
+++ b/helm-sys.el
@@ -188,7 +188,8 @@ This affect also sorting functions in the same way."
     :follow 'never
     :keymap helm-top-map
     :filtered-candidate-transformer #'helm-top-sort-transformer
-    :action-transformer #'helm-top-action-transformer))
+    :action-transformer #'helm-top-action-transformer
+    :group 'helm-sys))
 
 (defvar helm-top--line nil)
 (defun helm-top-transformer (candidates _source)
diff --git a/helm-tags.el b/helm-tags.el
index 7dc6896d..f374fccc 100644
--- a/helm-tags.el
+++ b/helm-tags.el
@@ -234,6 +234,7 @@ If no entry in cache, create one."
                                               (helm-etags-action-goto
                                                'find-file-other-frame
                                                c))))
+    :group 'helm-tags
     :persistent-help "Go to line"
     :persistent-action (lambda (candidate)
                          (helm-etags-action-goto 'find-file candidate)
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 ()