Supply entries.

Author: jcs090218

clients/docstr-actionscript.el

@@ -36,9 +36,15 @@
   :type 'string
   :group 'docstr)
 
+(defun docstr-actionscript-config ()
+  "Automatically configure style according to variable `docstr-actionscript-style'."
+  (cl-case docstr-actionscript-style
+    (t (docstr-util-default-format))))
+
 ;;;###autoload
 (defun docstr-writers-actionscript (search-string)
   "Insert document string for ActionScript using SEARCH-STRING."
+  (docstr-actionscript-config)
   (let* ((start (point)) (prefix docstr-actionscript-prefix)
          (paren-param-list (docstr-writers--paren-param-list-behind search-string ":"))
          (param-types (nth 0 paren-param-list))

clients/docstr-c++.el

@@ -26,10 +26,26 @@
 
 (require 'docstr)
 
+(defcustom docstr-c++-style nil
+  "Style specification for document string in C++."
+  :type '(choice (const :tag "No specify" nil))
+  :group 'docstr)
+
+(defcustom docstr-c++-prefix "* "
+  "Prefix you use on each newline."
+  :type 'string
+  :group 'docstr)
+
+(defun docstr-c++-config ()
+  "Automatically configure style according to variable `docstr-c++-style'."
+  (cl-case docstr-c++-style
+    (t (docstr-util-default-format))))
+
 ;;;###autoload
 (defun docstr-writers-c++ (search-string)
   "Insert document string for C++ using SEARCH-STRING."
-  (let* ((start (point)) (prefix "\n* ")
+  (docstr-c++-config)
+  (let* ((start (point)) (prefix docstr-c++-prefix)
          (paren-param-list (docstr-writers--paren-param-list search-string))
          (param-types (nth 0 paren-param-list))
          (param-vars (nth 1 paren-param-list))

clients/docstr-c.el

@@ -28,9 +28,25 @@
 
 (declare-function docstr-writers-c++ "ext:docstr-c.el")
 
+(defcustom docstr-c-style nil
+  "Style specification for document string in C."
+  :type '(choice (const :tag "No specify" nil))
+  :group 'docstr)
+
+(defcustom docstr-c-prefix "* "
+  "Prefix you use on each newline."
+  :type 'string
+  :group 'docstr)
+
+(defun docstr-c-config ()
+  "Automatically configure style according to variable `docstr-c-style'."
+  (cl-case docstr-c-style
+    (t (docstr-util-default-format))))
+
 ;;;###autoload
 (defun docstr-writers-c (search-string)
   "Insert document string for C using SEARCH-STRING."
+  (docstr-c-config)
   (docstr-writers-c++ search-string))
 
 (provide 'docstr-c)

clients/docstr-groovy.el

@@ -28,9 +28,20 @@
 
 (declare-function docstr-writers-javascript "ext:docstr-js.el")
 
+(defcustom docstr-groovy-style nil
+  "Style specification for document string in Groovy."
+  :type '(choice (const :tag "No specify" nil))
+  :group 'docstr)
+
+(defun docstr-groovy-config ()
+  "Automatically configure style according to variable `docstr-groovy-style'."
+  (cl-case docstr-groovy-style
+    (t (docstr-util-default-format))))
+
 ;;;###autoload
 (defun docstr-writers-groovy (search-string)
   "Insert document string for Groovy using SEARCH-STRING."
+  (docstr-groovy-config)
   (docstr-writers-javascript search-string))
 
 (provide 'docstr-groovy)

clients/docstr-lua.el

@@ -44,7 +44,7 @@
   :group 'docstr)
 
 (defun docstr-lua-config-lua-wiki ()
-  ""
+  "Configre for convention, Lua-Users Wiki."
   (docstr-util-default-format)
   (setq-local docstr-lua-prefix "-- "))
 

clients/docstr-php.el

@@ -29,13 +29,19 @@
 (declare-function docstr-writers-javascript "ext:docstr-js.el")
 
 (defcustom docstr-php-style nil
-  "Style specification for document string in PGP."
+  "Style specification for document string in PHP."
   :type '(choice (const :tag "No specify" nil))
   :group 'docstr)
 
+(defun docstr-php-config ()
+  "Automatically configure style according to variable `docstr-php-style'."
+  (cl-case docstr-php-style
+    (t (docstr-util-default-format))))
+
 ;;;###autoload
 (defun docstr-writers-php (search-string)
   "Insert document string for PHP using SEARCH-STRING."
+  (docstr-php-config)
   (docstr-writers-javascript search-string))
 
 (provide 'docstr-php)

clients/docstr-rust.el

@@ -26,9 +26,20 @@
 
 (require 'docstr)
 
+(defcustom docstr-rust-style nil
+  "Style specification for document string in Rust."
+  :type '(choice (const :tag "No specify" nil))
+  :group 'docstr)
+
+(defun docstr-rust-config ()
+  "Automatically configure style according to variable `docstr-rust-style'."
+  (cl-case docstr-rust-style
+    (t (docstr-util-default-format))))
+
 ;;;###autoload
 (defun docstr-writers-rust (search-string)
   "Insert document string for Rust using SEARCH-STRING."
+  (docstr-rust-config)
   (let* ((start (point)) (prefix "\n* ")
          (paren-param-list (docstr-writers--paren-param-list-behind search-string ":" t))
          (param-types (nth 0 paren-param-list))

clients/docstr-scala.el

@@ -28,9 +28,20 @@
 
 (declare-function docstr-writers-rust "ext:docstr-rust.el")
 
+(defcustom docstr-scala-style nil
+  "Style specification for document string in Scala."
+  :type '(choice (const :tag "No specify" nil))
+  :group 'docstr)
+
+(defun docstr-scala-config ()
+  "Automatically configure style according to variable `docstr-scala-style'."
+  (cl-case docstr-scala-style
+    (t (docstr-util-default-format))))
+
 ;;;###autoload
 (defun docstr-writers-scala (search-string)
   "Insert document string for Scala using SEARCH-STRING."
+  (docstr-scala-config)
   (docstr-writers-rust search-string))
 
 (provide 'docstr-scala)

clients/docstr-typescript.el

@@ -28,9 +28,20 @@
 
 (declare-function docstr-writers-actionscript "ext:docstr-actionscript.el")
 
+(defcustom docstr-typescript-style nil
+  "Style specification for document string in TypeScript."
+  :type '(choice (const :tag "No specify" nil))
+  :group 'docstr)
+
+(defun docstr-typescript-config ()
+  "Automatically configure style according to variable `docstr-typescript-style'."
+  (cl-case docstr-typescript-style
+    (t (docstr-util-default-format))))
+
 ;;;###autoload
 (defun docstr-writers-typescript (search-string)
   "Insert document string for TypesSript using SEARCH-STRING."
+  (docstr-typescript-config)
   (docstr-writers-actionscript search-string))
 
 (provide 'docstr-typescript)