[Top][All Lists]

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[elpa] master 68bcf86 2/4: package/names: :group can be given a list

From: Artur Malabarba
Subject: [elpa] master 68bcf86 2/4: package/names: :group can be given a list
Date: Mon, 12 Jan 2015 11:29:54 +0000

branch: master
commit 68bcf8640f75304f432899ec264ae5db1a1de12d
Author: Artur Malabarba <address@hidden>
Commit: Artur Malabarba <address@hidden>

    package/names: :group can be given a list
 names.el |   16 +++++++++++-----
 1 files changed, 11 insertions(+), 5 deletions(-)

diff --git a/names.el b/names.el
index ed6db7e..56713ce 100644
--- a/names.el
+++ b/names.el
@@ -185,7 +185,7 @@ Used to define a constant and a command.")
 (defconst names--keyword-list
      1 (lambda (x)
-         (if (symbolp x)
+         (if (or (symbolp x) (listp x))
              (setq names--group-parent x)
             "Argument given to :group is not a symbol: %s" x)))
@@ -194,6 +194,10 @@ The name of the group is the package name (see :package 
 This keyword should be given one argument, the name of the PARENT
 group as an unquoted symbol.
+Alternatively, the argument can be a list, in which case it is a
+list of arguments to be passed to `defgroup' (essentially, a full
+group definition without the leading `defgroup').
 If this keyword is provided, besides including a defgroup, Names
 will also include a :group keyword in every `defcustom' (and
 similar forms) that don't already contain one.")
@@ -546,10 +550,12 @@ Decide package name based on several factors. In order:
 (defun names--generate-defgroup ()
   "Return a `defgroup' form for the current namespace."
-  (list 'defgroup (names--package-name) nil
-        (format "Customization group for %s." (names--package-name))
-        :prefix (symbol-name names--name)
-        :group `',names--group-parent))
+  (if (listp names--group-parent)
+      (cons 'defgroup names--group-parent)
+    (list 'defgroup (names--package-name) nil
+          (format "Customization group for %s." (names--package-name))
+          :prefix (symbol-name names--name)
+          :group `',names--group-parent)))
 (defun names--generate-version ()
   "Return a `defun' and a `defconst' forms declaring the package version.

reply via email to

[Prev in Thread] Current Thread [Next in Thread]