branch: elpa/flymake-collection
commit 976ac70153a0a18da22e068c740c3394bec28545
Author: Valeriy Litkovskyy <vlr.ltk...@protonmail.com>
Commit: GitHub <nore...@github.com>

    cleanup: Fix defcustom type definitions (#11)
---
 src/checkers/flymake-collection-gcc.el |  4 ++--
 src/flymake-collection-hook.el         | 16 ++++++++++++++--
 2 files changed, 16 insertions(+), 4 deletions(-)

diff --git a/src/checkers/flymake-collection-gcc.el 
b/src/checkers/flymake-collection-gcc.el
index 91334ecde0..3a17b9e400 100644
--- a/src/checkers/flymake-collection-gcc.el
+++ b/src/checkers/flymake-collection-gcc.el
@@ -34,12 +34,12 @@
 (defcustom flymake-collection-gcc-args
   '("-pedantic" "-pedantic-errors")
   "Command line arguments always passed to `flymake-collection-gcc'."
-  :type 'list
+  :type '(repeat :tag "Arguments" (string :tag "Argument"))
   :group 'flymake-collection)
 
 (defcustom flymake-collection-gcc-include-path nil
   "Default include path for gcc in `flymake-collection-gcc'."
-  :type 'list
+  :type '(repeat :tag "Paths" (string :tag "Path"))
   :group 'flymake-collection)
 
 ;;;###autoload (autoload 'flymake-collection-gcc "flymake-collection-gcc")
diff --git a/src/flymake-collection-hook.el b/src/flymake-collection-hook.el
index 3b0023d93d..e040123666 100644
--- a/src/flymake-collection-hook.el
+++ b/src/flymake-collection-hook.el
@@ -74,7 +74,19 @@
     (notmuch-message-mode flymake-collection-proselint)
     (nxml-mode flymake-collection-xmllint))
   "Configuration mapping major-modes to `flymake' backends."
-  :type 'list
+  :type '(alist
+          :key-type (symbol :tag "Mode")
+          :value-type
+          (repeat
+           :tag "Backends"
+           (choice
+            (symbol :tag "Backend")
+            (cons :tag "Backend with properties"
+                  (symbol :tag "Backend")
+                  (plist :tag "Properties"
+                         :options ((:disabled boolean)
+                                   (:depth integer)
+                                   (:predicate function)))))))
   :group 'flymake-collection)
 
 (defcustom flymake-collection-config-inherit nil
@@ -110,7 +122,7 @@
 
 (defcustom flymake-collection-hook-ignore-modes nil
   "List of modes in which `flymake-collection-hook' is inhibited."
-  :type '(list symbol)
+  :type '(repeat :tag "Modes" (symbol :tag "Mode"))
   :group 'flymake-collection)
 
 (defun flymake-collection-hook-set-backends ()

Reply via email to