Add group slot to helm-source and use it.

* helm-source.el (helm-source): Do it.
* helm.el (helm-map): Bind customize fn.
(helm-customize-group): New.

1 files changed, 9 insertions, 0 deletions

diff --git a/helm.el b/helm.el
index 2bd2e9fd..4a42886c 100644
--- a/helm.el
+++ b/helm.el
@@ -243,6 +243,7 @@ vectors, so don't use strings to define them."
     ;; Debugging command
     (define-key map (kbd "C-h C-d")    'undefined)
     (define-key map (kbd "C-h C-d")    'helm-enable-or-switch-to-debug)
+    (define-key map (kbd "C-h c")      'helm-customize-group)
     ;; Allow to eval keymap without errors.
     (define-key map [f1] nil)
     (define-key map (kbd "C-h C-h")    'undefined)
@@ -263,6 +264,14 @@ vectors, so don't use strings to define them."
     map)
   "Keymap for helm.")
 
+(defun helm-customize-group ()
+  "Jump to customization group of current source.
+
+Default to `helm' when group is not defined in source."
+  (interactive)
+  (helm-run-after-exit 'customize-group (helm-attr 'group)))
+(put 'helm-customize-group 'helm-only t)
+
 (defun helm--action-at-nth-set-fn-1 (value &optional negative)
   (cl-loop for n from 1 to 9
         for key = (format value n)