code: new command checkdoc

Author: jcs090218

cmds/checkdoc.js

@@ -0,0 +1,36 @@
+/**
+ * Copyright (C) 2022 Jen-Chieh Shen
+ *
+ * This program is free software; you can redistribute it and/or modify
+ * it under the terms of the GNU General Public License as published by
+ * the Free Software Foundation; either version 3, or (at your option)
+ * any later version.
+ *
+ * This program is distributed in the hope that it will be useful,
+ * but WITHOUT ANY WARRANTY; without even the implied warranty of
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+ * GNU General Public License for more details.
+ *
+ * You should have received a copy of the GNU General Public License
+ * along with GNU Emacs; see the file COPYING.  If not, write to the
+ * Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
+ * Boston, MA 02110-1301, USA.
+ */
+
+"use strict";
+
+const util = require("../src/util");
+
+exports.command = ['checkdoc [files..]', 'lint-checkdoc [files..]'];
+exports.desc = 'run checkdoc';
+exports.builder = {
+  files: {
+    description: 'files you want checkdoc to run on',
+    requiresArg: false,
+    type: 'array',
+  },
+};
+
+exports.handler = async (argv) => {
+  await util.e_call(argv, 'checkdoc', argv.files);
+};

lisp/checkdoc.el

@@ -0,0 +1,35 @@
+;;; checkdoc.el --- Run checkdoc  -*- lexical-binding: t; -*-
+
+;;; Commentary:
+;;
+;; Commmand use to run `checkdoc' for all files
+;;
+;;   $ eask checkdoc
+;;
+
+;;; Code:
+
+(load (expand-file-name
+       "_prepare.el"
+       (file-name-directory (nth 1 (member "-scriptload" command-line-args))))
+      nil t)
+
+(defun eask--checkdoc-print-error (text start end &optional unfixable)
+  "Print error for checkdoc."
+  (let ((msg (concat (checkdoc-buffer-label) ":"
+                     (int-to-string (count-lines (point-min) (or start (point-min))))
+                     ": " text)))
+    (if (eask-strict-p) (error msg) (warn msg))
+    ;; Return nil because we *are* generating a buffered list of errors.
+    nil))
+
+(setq checkdoc-create-error-function #'eask--checkdoc-print-error)
+
+(eask-start
+  (if-let ((files (eask-args)))
+      (mapcar #'checkdoc-file files)
+    (message "You need to specify the file you want the checkdoc to run on")
+    (message "For example,")
+    (message "  eask checkdoc FILE-1 FILE-2")))
+
+;;; checkdoc.el ends here