code: add new command elsa

Author: jcs090218

cmds/lint/elsa.js

@@ -0,0 +1,34 @@
+/**
+ * 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";
+
+exports.command = ['elsa [files..]'];
+exports.desc = 'run elsa';
+exports.builder = {
+  files: {
+    description: 'files you want elsa to run on',
+    requiresArg: false,
+    type: 'array',
+  },
+};
+
+exports.handler = async (argv) => {
+  await UTIL.e_call(argv, 'lint/elsa', argv.files);
+};

lisp/lint/elsa.el

@@ -0,0 +1,56 @@
+;;; elsa.el --- Run elsa  -*- lexical-binding: t; -*-
+
+;;; Commentary:
+;;
+;; Commmand use to run `elsa' for all files
+;;
+;;   $ eask elsa
+;;
+;;
+;;  Initialization options:
+;;
+;;    [files..]     files you want elint to run on
+;;
+
+;;; Code:
+
+(load (expand-file-name
+       "../_prepare.el"
+       (file-name-directory (nth 1 (member "-scriptload" command-line-args))))
+      nil t)
+
+(defconst eask--elsa-version nil
+  "Elsa version.")
+
+(defun eask--elsa-process-file (filename)
+  "Process FILENAME."
+  (let* ((filename (expand-file-name filename))
+         (file (eask-root-del filename))
+         errors)
+    (eask-msg "")
+    (eask-msg "`%s` with elsa (%s)" (ansi-green file) eask--elsa-version)
+    (eask-with-verbosity 'debug
+      (setq errors (oref (elsa-process-file filename) errors)))
+    (if errors
+        (--each (reverse errors)
+          (let ((line (string-trim (concat file ":" (elsa-message-format it)))))
+            (cond ((string-match-p "[: ][Ee]rror:" line) (eask-error line))
+                  ((string-match-p "[: ][Ww]arning:" line) (eask-warn line))
+                  (t (eask-log line)))))
+      (eask-msg "No issues found"))))
+
+(eask-start
+  (eask-with-archives "melpa"
+    (eask-package-install 'elsa))
+  (setq eask--elsa-version (eask-package--version-string 'elsa))
+  (require 'elsa)
+  (if-let ((files (eask-args-or-package-el-files)))
+      (progn
+        (mapcar #'eask--elsa-process-file files)
+        (eask-info "(Total of %s files linted)" (length files)))
+    (eask-info "(No files have been linted)")
+    (if (eask-args)
+        (eask--print-no-matching-files)
+      (eask-help 'elsa))))
+
+;;; elsa.el ends here