fix melpazoid errors

chatu-babashka.el

@@ -25,17 +25,26 @@
 ;; You should have received a copy of the GNU General Public License
 ;; along with this program.  If not, see <http://www.gnu.org/licenses/>.
 
+;;; Commentary:
+
+;; script and open function for babashka
+
 ;;; Code:
 
 (defun chatu-babashka-script (keyword-plist)
+  "Open input, KEYWORD-PLIST contains parameters from the chatu
+line."
   (let ((input-path (plist-get keyword-plist :input-path)))
     (format "bb %s"
             (shell-quote-argument input-path))))
 
 (defun chatu-babashka-open (keyword-plist)
-  "Open curl link."
+  "Open input file, KEYWORD-PLIST contains parameters from the
+chatu line."
   (interactive)
   (find-file-other-window
    (plist-get keyword-plist :input-path)))
 
 (provide 'chatu-babashka)
+
+;;; chatu-babashka.el ends here

chatu-curl.el

@@ -25,17 +25,24 @@
 ;; You should have received a copy of the GNU General Public License
 ;; along with this program.  If not, see <http://www.gnu.org/licenses/>.
 
+;;; Commentary:
+
+;; script and open function for curl
+
 ;;; Code:
 
 (defun chatu-curl-script (keyword-plist)
+  "Get conversion script. KEYWORD-PLIST contains parameters from
+ the chatu line."
   (let* ((input (plist-get keyword-plist :input))
          (output-path (plist-get keyword-plist :output-path)))
     (format "curl -o %s %s"
             (shell-quote-argument output-path)
             (shell-quote-argument input))))
 
 (defun chatu-curl-open (keyword-plist)
-  "Open curl link."
+  "Open curl link. KEYWORD-PLIST contains parameters from the
+ chatu line."
   (interactive)
   (let ((link (plist-get keyword-plist :input)))
     (cond
@@ -47,3 +54,5 @@
      )))
 
 (provide 'chatu-curl)
+
+;;; chatu-curl.el ends here

chatu-drawio.el

@@ -25,12 +25,19 @@
 ;; You should have received a copy of the GNU General Public License
 ;; along with this program.  If not, see <http://www.gnu.org/licenses/>.
 
+;;; Commentary:
+
+;; script and open function for drawio
+
 ;;; Code:
 
 (defun chatu-drawio-add-extention (path)
+  "Change to default extension for PATH of the input file."
   (file-name-with-extension path "drawio"))
 
 (defun chatu-drawio-script (keyword-plist)
+  "Get conversion script. KEYWORD-PLIST contains parameters from
+ the chatu line."
   (let* ((input-path
           (chatu-drawio-add-extention
            (plist-get keyword-plist :input-path)))
@@ -49,7 +56,8 @@
             (shell-quote-argument output-path-pdf))))
 
 (defun chatu-drawio-open (keyword-plist)
-  "Open .drawio file."
+  "Open .drawio file. KEYWORD-PLIST contains parameters from the
+ chatu line."
   (interactive)
   (let ((path (chatu-drawio-add-extention
                (plist-get keyword-plist :input-path))))
@@ -72,3 +80,5 @@
                      path)))))
 
 (provide 'chatu-drawio)
+
+;;; chatu-drawio.el ends here

chatu-plantuml.el

@@ -25,12 +25,19 @@
 ;; You should have received a copy of the GNU General Public License
 ;; along with this program.  If not, see <http://www.gnu.org/licenses/>.
 
+;;; Commentary:
+
+;; script and open function for plantuml
+
 ;;; Code:
 
 (defun chatu-plantuml-add-extention (path)
+  "Change to default extension for PATH of the input file."
   (file-name-with-extension path "puml"))
 
 (defun chatu-plantuml-script (keyword-plist)
+  "Get conversion script. KEYWORD-PLIST contains parameters from
+ the chatu line."
   (let ((page (plist-get keyword-plist :page)))
     (concat "java -jar "
             plantuml-jar-path
@@ -42,10 +49,13 @@
             (plist-get keyword-plist :output-path))))
 
 (defun chatu-plantuml-open (keyword-plist)
-  "Open .puml file."
+  "Open .puml file. KEYWORD-PLIST contains parameters from the
+ chatu line."
   (interactive)
   (find-file-other-window
    (chatu-plantuml-add-extention
     (plist-get keyword-plist :input-path))))
 
 (provide 'chatu-plantuml)
+
+;;; chatu-plantuml.el ends here