Skip to content

Commit 7e39277

Browse files
committed
code: add more checker rule on package directive
1 parent 35185c1 commit 7e39277

File tree

1 file changed

+15
-1
lines changed

1 file changed

+15
-1
lines changed

lisp/_prepare.el

Lines changed: 15 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -602,7 +602,11 @@ Eask file in the workspace."
602602
"Set the package information."
603603
(if eask-package
604604
(eask-error "Multiple definition of `package'")
605-
(setq eask-package `(:name ,name :version ,version :description ,description))))
605+
(setq eask-package `(:name ,name :version ,version :description ,description))
606+
(progn ; Run checker
607+
(eask--checker-string "Name" name)
608+
(version= version "0.1.0")
609+
(eask--checker-string "Description" description))))
606610

607611
(defun eask-package-file (file)
608612
"Set package file."
@@ -936,6 +940,16 @@ Standard is, 0 (error), 1 (warning), 2 (info), 3 (log), 4 or above (debug)."
936940
(eask-msg (ansi-white (buffer-string)))))
937941
(eask-error "Help manual missig %s" help-file))))
938942

943+
;;
944+
;;; Checker
945+
946+
(defun eask--checker-string (name var)
947+
"Run checker for VAR."
948+
(unless (stringp var)
949+
(eask-error "%s must be a string" name))
950+
(when (string-empty-p var)
951+
(eask-warn "%s cannot be an empty string" name)))
952+
939953
;;
940954
;;; User customization
941955

0 commit comments

Comments
 (0)