Set error status when help is printed (#307)

* Fix: typo in some error messages

* Fix: minor style changes in lisp/help files

Call eask--exit when the message indicates an error

* Fix: bad help file link for analyze command

* Add exit-code param to eask--exit

* Add exit-code param to eask-help

* Fix: typo in run script cli doc

* Add tests for exit status when displaying help message

* Add CI job to test exit status in help commands

* Only run Help-Exit job on emacs 30.1

* Fix some CI errors

Author: joshbax189

.github/workflows/help_exit.yml

@@ -0,0 +1,52 @@
+name: Help-Exit
+
+on:
+  push:
+    branches:
+      - master
+    paths:
+      - 'eask'
+      - '**.yml'
+      - lisp/**
+      - cmds/**
+      - src/**
+      - test/**
+  pull_request:
+    branches:
+      - master
+    paths-ignore:
+      - '**.md'
+  workflow_dispatch:
+
+concurrency:
+  group: ${{ github.workflow }}-${{ github.ref }}
+  cancel-in-progress: true
+
+jobs:
+  test:
+    runs-on: ${{ matrix.os }}
+    strategy:
+      fail-fast: false
+      matrix:
+        os: [ubuntu-latest, macos-latest, windows-latest]
+
+    steps:
+    - uses: jcs090218/setup-emacs@master
+      with:
+        version: 30.1
+
+    - uses: actions/checkout@v4
+
+    - name: Prepare Eask (Unix)
+      if: matrix.os == 'ubuntu-latest' || matrix.os == 'macos-latest'
+      run: |
+        chmod -R 777 ./
+        .github/scripts/setup-eask
+
+    - name: Prepare Eask (Windows)
+      if: matrix.os == 'windows-latest'
+      run: .github/scripts/setup-eask.ps1
+
+    - name: Testing...
+      run: |
+        make command-help-exit

Makefile

@@ -32,30 +32,70 @@ command-config:
 command-local:
 	./test/commands/local/run.sh
 
+# new tests which check missing args not covered by existing tests
+command-help-exit: command-bump command-concat command-docs command-eval command-format command-info command-init command-lint command-recipe command-run command-source
+
 command-analyze:
 	./test/commands/analyze/dsl/run.sh
 	./test/commands/analyze/metadata/run.sh
+	./test/commands/analyze/error/run.sh
+
+command-bump:
+	./test/commands/bump/run.sh
+
+command-compile:
+	./test/commands/compile/run.sh
+
+command-concat:
+	./test/commands/concat/run.sh
 
 command-docker:
 	./test/commands/docker/run.sh
 
+command-docs:
+	./test/commands/docs/run.sh
+
+command-eval:
+	./test/commands/eval/run.sh
+
 command-exec:
 	./test/commands/exec/run.sh
 
 command-emacs:
 	./test/commands/emacs/run.sh
 
+command-format:
+	./test/commands/format/run.sh
+
+command-info:
+	./test/commands/info/run.sh
+
+command-init:
+	./test/commands/init/run.sh
+
 command-install:
 	./test/commands/install/run.sh
 
+command-link:
+	./test/commands/link/run.sh
+
+command-lint:
+	./test/commands/lint/run.sh
+
 command-outdated-upgrade:
 	./test/commands/outdated_upgrade/run.sh
 
+command-recipe:
+	./test/commands/recipe/run.sh
+
+command-run:
+	./test/commands/run/run.sh
+
 command-search:
 	./test/commands/search/run.sh
 
-command-link:
-	./test/commands/link/run.sh
+command-source:
+	./test/commands/source/run.sh
 
 test-ert:
 	./test/commands/test/ert/run.sh

cmds/run/script.js

@@ -21,7 +21,7 @@ const fs = require('fs');
 const child_process = require("child_process");
 
 exports.command = ['script [names..]'];
-exports.desc = 'Run script nameds [names..]';
+exports.desc = 'Run script named [names..]';
 exports.builder = yargs => yargs
   .positional(
     '[names..]', {

lisp/_prepare.el

@@ -1730,7 +1730,9 @@ Argument ARGS are direct arguments for functions `eask-error' or `eask-warn'."
   (declare (indent 0) (debug t))
   `(eask-ignore-errors (eask--silent-error ,@body)))
 
-(defun eask--exit (&rest _) "Send exit code." (kill-emacs 1))
+(defun eask--exit (&optional exit-code &rest _)
+  "Kill Emacs with EXIT-CODE (default 1)."
+  (kill-emacs (or exit-code 1)))
 
 (defun eask--trigger-error ()
   "Trigger error event."
@@ -1861,26 +1863,41 @@ Arguments FNC and ARGS are used for advice `:around'."
     (eask-msg (ansi-white (buffer-string)))
     (eask-msg (concat "''" (spaces-string max-column) "''"))))
 
-(defun eask-help (command)
-  "Show COMMAND's help instruction."
+(defun eask-help (command &optional print-or-exit-code)
+  "Show COMMAND's help instruction.
+
+When the optional variable PRINT-OR-EXIT-CODE is a number, it will exit with
+that code.  Set to non-nil would just print the help message without sending
+the exit code.  The default value `nil' will be replaced by `1'; therefore
+would send exit code of `1'."
   (let* ((command (eask-2str command))  ; convert to string
-         (help-file (concat eask-lisp-root "help/" command)))
+         (help-file (concat eask-lisp-root "help/" command))
+         ;; The default exit code is `1' since `eask-help' prints the help
+         ;; message on user error 99% of the time.
+         ;;
+         ;; TODO: Later replace exit code `1' with readable symbol after
+         ;; the exit code has specified.
+         (print-or-exit-code (or print-or-exit-code 1)))
     (if (file-exists-p help-file)
         (with-temp-buffer
           (insert-file-contents help-file)
           (unless (string-empty-p (buffer-string))
             (let ((buf-str (eask--msg-displayable-kwds (buffer-string))))
               (erase-buffer)
               (insert buf-str))
-            (eask--help-display)))
-      (eask-error "Help manual missig %s" help-file))))
+            (eask--help-display))
+          ;; Exit with code if needed
+          (cond ((numberp print-or-exit-code)
+                 (eask--exit print-or-exit-code))
+                (t )))  ; Don't exit with anything else.
+      (eask-error "Help manual missing %s" help-file))))
 
 ;;
 ;;; Checker
 
 (defun eask--checker-existence ()
   "Return errors if required metadata is missing."
-  (unless eask-package (eask-error "Missing metadata package; make sure you have create Eask-file with $ eask init!")))
+  (unless eask-package (eask-error "Missing metadata package; make sure you have created an Eask-file with $ eask init!")))
 
 (defun eask--check-strings (fmt f p &rest args)
   "Test strings (F and P); then print FMT and ARGS if not equal."

lisp/core/analyze.el

@@ -152,6 +152,6 @@ Argument LEVEL and MSG are data from the debug log signal."
    ;; Default, print help!
    (t
     (eask-info "(No Eask-files have been checked)")
-    (eask-help "checker/analyze"))))
+    (eask-help "core/analyze"))))
 
 ;;; core/analyze.el ends here

lisp/help/core/analyze

@@ -1,4 +1,4 @@
-    
-💡 You need to specify file(s) you want to Eask checker to check
+
+💡 You need to specify file(s) you want Eask checker to check
 
     $ eask analyze FILE-1 FILE-2

lisp/help/core/concat

@@ -1,4 +1,4 @@
 
-💡 You would need to specify the [names..] in order to make concatenation!
+💡 You need to specify the file [names..] in order to concatenate!
 
     $ eask concat [names..]

lisp/help/core/docs

@@ -1,4 +1,4 @@
 
-💡 You would need to specify the [names..] in order to build documentation!
+💡 You need to specify the file [names..] in order to build documentation!
 
     $ eask docs [names..]

lisp/help/core/eval

@@ -1,4 +1,4 @@
 
-💡 You would need to specify the [form] in order to make execution!
+💡 You need to specify the [form] to evaluate!
 
     $ eask eval [form]

lisp/help/core/exec

@@ -1,4 +1,4 @@
 
-💡 You would need to specify the program name in order to make execution!
-   
+💡 You need to specify the program name to execute!
+
     $ eask exec <program> [options..]