Skip to content

Commit e6a76d4

Browse files
committed
Call eask-help-error when the message indicates an error
1 parent 92519ea commit e6a76d4

38 files changed

+40
-40
lines changed

lisp/core/analyze.el

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -152,6 +152,6 @@ Argument LEVEL and MSG are data from the debug log signal."
152152
;; Default, print help!
153153
(t
154154
(eask-info "(No Eask-files have been checked)")
155-
(eask-help "core/analyze"))))
155+
(eask-help-error "core/analyze"))))
156156

157157
;;; core/analyze.el ends here

lisp/core/bump.el

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -50,7 +50,7 @@
5050
((and (not (member "major" levels))
5151
(not (member "minor" levels))
5252
(not (member "patch" levels)))
53-
(eask-help "core/bump"))
53+
(eask-help-error "core/bump"))
5454
((not (file-exists-p package-file))
5555
(eask-info "(No package file found)"))
5656
(t

lisp/core/compile.el

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -143,6 +143,6 @@ The CMD is the command to start a new Emacs session."
143143
;; Default, print help!
144144
(t
145145
(eask-info "(No files have been compiled)")
146-
(eask-help "core/compile")))))
146+
(eask-help-error "core/compile")))))
147147

148148
;;; core/compile.el ends here

lisp/core/concat.el

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -56,6 +56,6 @@
5656
;; Default, print help!
5757
(t
5858
(eask-info "(No files have been concatenated)")
59-
(eask-help "core/concat")))))
59+
(eask-help-error "core/concat")))))
6060

6161
;;; core/concat.el ends here

lisp/core/docs.el

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -70,6 +70,6 @@
7070
;; Default, print help!
7171
(t
7272
(eask-info "(No elisp source can be read)")
73-
(eask-help "core/docs")))))
73+
(eask-help-error "core/docs")))))
7474

7575
;;; core/docs.el ends here

lisp/core/eval.el

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -26,6 +26,6 @@
2626
(eask-exec-export-env)
2727
(ansi-green "done ✓"))
2828
(eask-info "(No expression found)")
29-
(eask-help "core/eval")))
29+
(eask-help-error "core/eval")))
3030

3131
;;; core/eval.el ends here

lisp/core/exec.el

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -43,6 +43,6 @@
4343
(eask-exec-export-env)
4444
(ansi-green "done ✓"))
4545
(eask-info "(No exeuction output)")
46-
(eask-help "core/exec")))
46+
(eask-help-error "core/exec")))
4747

4848
;;; core/exec.el ends here

lisp/core/info.el

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -60,6 +60,6 @@
6060
(eask-info--print-deps "dependencies:" eask-depends-on)
6161
(eask-info--print-deps "devDependencies:" eask-depends-on-dev))
6262
(eask-info "(Eask file has no package information)")
63-
(eask-help "core/info")))
63+
(eask-help-error "core/info")))
6464

6565
;;; core/info.el ends here

lisp/core/install.el

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -99,6 +99,6 @@ For argument FILE, please see function `package-install-file' for the details."
9999
(eask-info "(Installed in %s)"
100100
(file-name-directory (locate-library name))))
101101
(eask-info "(No files have been intalled)")
102-
(eask-help "core/install")))))
102+
(eask-help-error "core/install")))))
103103

104104
;;; core/install.el ends here

lisp/core/recipe.el

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -44,6 +44,6 @@
4444
(eask-msg "%s" (pp-to-string recipe)))
4545
(eask-msg "")
4646
(eask-info "(Repository URL is required to form a recipe)")
47-
(eask-help "core/recipe")))
47+
(eask-help-error "core/recipe")))
4848

4949
;;; core/recipe.el ends here

lisp/core/reinstall.el

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -49,6 +49,6 @@
4949
(eask-info "(Package `%s' reinstalled.)" name))
5050
(eask-msg "")
5151
(eask-info "(No packages have been reintalled)")
52-
(eask-help "core/reinstall"))))
52+
(eask-help-error "core/reinstall"))))
5353

5454
;;; core/reinstall.el ends here

lisp/core/search.el

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -42,6 +42,6 @@
4242
(eask--sinr result "" "s")))
4343
(eask-msg "")
4444
(eask-info "(No search operation; missing queries specification)")
45-
(eask-help "core/search")))
45+
(eask-help-error "core/search")))
4646

4747
;;; core/search.el ends here

lisp/core/uninstall.el

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -44,6 +44,6 @@
4444
(eask-msg "")
4545
(eask-info "(Package `%s' deleted.)" name))
4646
(eask-info "(No packages have been uninstalled)")
47-
(eask-help "core/uninstall"))))
47+
(eask-help-error "core/uninstall"))))
4848

4949
;;; core/uninstall.el ends here

lisp/format/elfmt.el

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -74,6 +74,6 @@
7474
;; Default, print help!
7575
(t
7676
(eask-info "(No files have been formatted)")
77-
(eask-help "format/elfmt")))))
77+
(eask-help-error "format/elfmt")))))
7878

7979
;;; format/elfmt.el ends here

lisp/format/elisp-autofmt.el

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -74,6 +74,6 @@
7474
;; Default, print help!
7575
(t
7676
(eask-info "(No files have been formatted)")
77-
(eask-help "format/elisp-autofmt")))))
77+
(eask-help-error "format/elisp-autofmt")))))
7878

7979
;;; format/elisp-autofmt.el ends here

lisp/help/format/elfmt

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -1,5 +1,5 @@
11

2-
💡 You need to specify file(s) you want elfmt to run
2+
💡 You need to specify file(s) you want elfmt to format
33

44
$ eask format elfmt FILE-1 FILE-2
55

lisp/help/format/elisp-autofmt

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -1,5 +1,5 @@
11

2-
💡 You need to specify file(s) you want elisp-autofmt to run
2+
💡 You need to specify file(s) you want elisp-autofmt to format
33

44
$ eask format elisp-autofmt FILE-1 FILE-2
55

lisp/init/cask.el

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -232,6 +232,6 @@ Optional argument CONTENTS is used for nested directives. e.g. development."
232232
;; Default, print help!
233233
(t
234234
(eask-info "(No Cask-files have been converted to Eask)")
235-
(eask-help "init/cask")))))
235+
(eask-help-error "init/cask")))))
236236

237237
;;; init/cask.el ends here

lisp/init/eldev.el

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -107,6 +107,6 @@
107107
;; Default, print help!
108108
(t
109109
(eask-info "(No Eldev-files have been converted to Eask)")
110-
(eask-help "init/eldev")))))
110+
(eask-help-error "init/eldev")))))
111111

112112
;;; init/eldev.el ends here

lisp/init/keg.el

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -154,6 +154,6 @@ If no found the Keg file, returns nil."
154154
;; Default, print help!
155155
(t
156156
(eask-info "(No Keg-files have been converted to Eask)")
157-
(eask-help "init/keg")))))
157+
(eask-help-error "init/keg")))))
158158

159159
;;; init/keg.el ends here

lisp/init/source.el

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -103,6 +103,6 @@
103103
;; Default, print help!
104104
(t
105105
(eask-info "(No elisp files have been converted to Eask)")
106-
(eask-help "init/source")))))
106+
(eask-help-error "init/source")))))
107107

108108
;;; init/source.el ends here

lisp/link/add.el

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -117,6 +117,6 @@
117117
(eask-error "✗ Error loading Eask-file: %s" pkg-eask)))
118118
(t
119119
(eask-info "(Missing `%s-pkg.el` file in your source folder)" name)
120-
(eask-help "link/add/error"))))))))
120+
(eask-help-error "link/add/error"))))))))
121121

122122
;;; link/add.el ends here

lisp/link/delete.el

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -48,7 +48,7 @@
4848
;; Argument check.
4949
((zerop (length names))
5050
(eask-info "✗ No package to unlink, please specify with the package name")
51-
(eask-help "link/delete"))
51+
(eask-help-error "link/delete"))
5252
;; No link to delete
5353
((zerop (length links))
5454
(eask-info "No links present; task ended with no operation"))

lisp/lint/checkdoc.el

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -83,6 +83,6 @@ be assigned to variable `checkdoc-create-error-function'."
8383
;; Default, print help!
8484
(t
8585
(eask-info "(No files have been linted)")
86-
(eask-help "lint/checkdoc")))))
86+
(eask-help-error "lint/checkdoc")))))
8787

8888
;;; lint/checkdoc.el ends here

lisp/lint/declare.el

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -66,6 +66,6 @@
6666
;; Default, print help!
6767
(t
6868
(eask-info "(No files have been linted)")
69-
(eask-help "lint/declare")))))
69+
(eask-help-error "lint/declare")))))
7070

7171
;;; lint/declare.el ends here

lisp/lint/elint.el

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -65,6 +65,6 @@
6565
(t
6666
(eask-msg "")
6767
(eask-info "(No files have been linted)")
68-
(eask-help "lint/elint")))))
68+
(eask-help-error "lint/elint")))))
6969

7070
;;; lint/elint.el ends here

lisp/lint/elisp-lint.el

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -78,6 +78,6 @@
7878
(t
7979
(eask-msg "")
8080
(eask-info "(No files have been linted)")
81-
(eask-help "lint/elisp-lint")))))
81+
(eask-help-error "lint/elisp-lint")))))
8282

8383
;;; lint/elisp-lint.el ends here

lisp/lint/elsa.el

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -87,6 +87,6 @@
8787
(t
8888
(eask-msg "")
8989
(eask-info "(No files have been linted)")
90-
(eask-help "lint/elsa")))))
90+
(eask-help-error "lint/elsa")))))
9191

9292
;;; lint/elsa.el ends here

lisp/lint/indent.el

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -85,6 +85,6 @@
8585
;; Default, print help!
8686
(t
8787
(eask-info "(No files have been linted)")
88-
(eask-help "lint/indent")))))
88+
(eask-help-error "lint/indent")))))
8989

9090
;;; lint/indent.el ends here

lisp/lint/keywords.el

Lines changed: 3 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -39,10 +39,10 @@
3939
(cond
4040
((not eask-package-file)
4141
(eask-report "Can't lint keywords without the package-file specified")
42-
(eask-help "lint/keywords-file"))
42+
(eask-help-error "lint/keywords-file"))
4343
((not keywords)
4444
(eask-report "Keywords header seems to be missing in the `%s' file" file)
45-
(eask-help "lint/keywords-header"))
45+
(eask-help-error "lint/keywords-header"))
4646
(t
4747
(eask-lint-first-newline)
4848
(eask-msg "`%s` with keywords-lint" (ansi-green file))
@@ -51,6 +51,6 @@
5151
(eask-msg "")
5252
(eask-info "(No issues found.)"))
5353
(eask-report "Missing a standard keyword, consider adding one to the Keywords header!")
54-
(eask-help "lint/keywords"))))))
54+
(eask-help-error "lint/keywords"))))))
5555

5656
;;; lint/keywords.el ends here

lisp/lint/package.el

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -87,6 +87,6 @@
8787
(t
8888
(eask-msg "")
8989
(eask-info "(No files have been linted)")
90-
(eask-help "lint/package")))))
90+
(eask-help-error "lint/package")))))
9191

9292
;;; lint/package.el ends here

lisp/lint/regexps.el

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -87,6 +87,6 @@
8787
(t
8888
(eask-msg "")
8989
(eask-info "(No files have been linted)")
90-
(eask-help "lint/regexps")))))
90+
(eask-help-error "lint/regexps")))))
9191

9292
;;; lint/regexps.el ends here

lisp/run/command.el

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -52,7 +52,7 @@
5252
(eask-start
5353
(cond ((null eask-commands)
5454
(eask-info "(No command specified)")
55-
(eask-help "run/command"))
55+
(eask-help-error "run/command"))
5656
((eask-all-p)
5757
(dolist (name (reverse eask-commands))
5858
(eask-run-command--execute name)))

lisp/run/script.el

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -63,7 +63,7 @@
6363
(cond
6464
((null eask-scripts)
6565
(eask-info "(No scripts specified)")
66-
(eask-help "run/script"))
66+
(eask-help-error "run/script"))
6767
((eask-all-p) ; Run all scripts
6868
(dolist (data (reverse eask-scripts))
6969
(eask-run-command--export (cdr data))))

lisp/source/add.el

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -115,6 +115,6 @@ Do you want to overwrite it? ")
115115
(url (eask-source-url name))) ; Use the URL from our database!
116116
(eask-source-add--ask-if-overwrite name url)
117117
(eask-info "(Invalid source name, `%s')" name)
118-
(eask-help "source/add"))))))
118+
(eask-help-error "source/add"))))))
119119

120120
;;; source/add.el ends here

lisp/source/delete.el

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -34,6 +34,6 @@
3434
(if-let* ((exists (assoc name package-archives)))
3535
(eask-source-delete name)
3636
(eask-info "(Invalid source name, `%s')" name)
37-
(eask-help "source/delete"))))
37+
(eask-help-error "source/delete"))))
3838

3939
;;; source/delete.el ends here

lisp/test/ert.el

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -62,6 +62,6 @@ Arguments FNC and ARGS are used for advice `:around'."
6262
;; Default, print help!
6363
(t
6464
(eask-info "(No tests found.)")
65-
(eask-help "test/ert")))))
65+
(eask-help-error "test/ert")))))
6666

6767
;;; test/ert.el ends here

lisp/test/melpazoid.el

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -45,6 +45,6 @@
4545
;; Default, print help!
4646
(t
4747
(eask-info "(No tests found.)")
48-
(eask-help "test/melpazoid")))))
48+
(eask-help-error "test/melpazoid")))))
4949

5050
;;; test/melpazoid.el ends here

0 commit comments

Comments
 (0)