code: implement verbosity

eask

@@ -49,6 +49,12 @@ yargs
     description: 'turn on debug mode',
     type: 'boolean',
   })
+  .option('verbose', {
+    description: 'log level for all messages; 4 means trace most anything, 0 means nothing.',
+    alias: 'v',
+    requiresArg: true,
+    type: 'number',
+  })
   .demandCommand()
   .wrap(yargs.terminalWidth())
   .help().argv;

lisp/_prepare.el

@@ -63,8 +63,9 @@
 
 (defun eask-pkg-init ()
   "Package initialization."
-  (package-initialize)
-  (package-refresh-contents)
+  (eask-with-verbosity 1
+    (package-initialize)
+    (package-refresh-contents))
   (eask--silent
     (eask--update-exec-path)
     (eask--update-load-path)))
@@ -105,10 +106,12 @@
 
 ;;; Number (with arguments)
 (defun eask-depth () (eask--str2num (eask--flag-value "--depth")))  ; --depth is enabled
+(defun eask-verbose () (eask--str2num (eask--flag-value "--verbose")))
 
 (defun eask--handle-global-options ()
   "Handle global options."
   (when (eask-debug-p) (setq debug-on-error t))
+  (when (eask-verbose) (setq eask-verbosity (eask-verbose)))
   (eask--add-proxy "http"     (eask-proxy))
   (eask--add-proxy "https"    (eask-proxy))
   (eask--add-proxy "http"     (eask-http-proxy))
@@ -356,11 +359,46 @@ Eask file in the workspace."
   (unless eask--ignore-error-p
     ;; XXX Log out the error explicitly, so the user will know what causes Emacs
     ;; to crash.
-    (message "[ERROR] %s" (apply #'format-message args))
+    (eask-error 0 "%s" (apply #'format-message args))
     (add-hook 'eask-after-command-hook #'eask--exit)))
 
 (advice-add 'error :before #'eask--trigger-error)
 
+;;
+;;; Verbosity
+
+(defcustom eask-verbosity 3
+  "Log level for all messages; 4 means trace most anything, 0 means nothing."
+  :type 'integer
+  :group 'eask)
+
+(defcustom eask-timestamps t
+  "Log messages with timestamps."
+  :type 'boolean
+  :group 'eask)
+
+(defmacro eask-with-verbosity (level &rest body)
+  "If LEVEL is above `eask-verbosity'; hide all messages in BODY."
+  (declare (indent 1) (debug t))
+  `(if (>= eask-verbosity ,level) ,@body (eask--silent ,@body)))
+
+(defun eask-info (level msg &rest args) (apply #'eask--log level "[INFO]" msg args))
+(defun eask-warn (level msg &rest args) (apply #'eask--log level "[WARNING]" msg args))
+(defun eask-error (level msg &rest args) (apply #'eask--log level "[ERROR]" msg args))
+
+(defun eask--log (level prefix msg &rest args)
+  "If LEVEL is at or below `eask-verbosity', log message."
+  (eask-with-verbosity level
+    (message "%s" (apply #'eask--format prefix msg args))))
+
+(defun eask--format (prefix format-control &rest format-args)
+  "Format Eask messages."
+  (apply #'format
+         (concat (when eask-timestamps
+                   (concat (format-time-string "%Y-%m-%d %H:%M:%S ") prefix " "))
+                 format-control)
+         format-args))
+
 ;;
 ;;; File
 

lisp/archives.el

@@ -20,8 +20,8 @@
 (eask-start
   (if package-archives
       (progn
-        (message "")
-        (mapc #'eask--print-archive package-archives))
-    (message "\n No archive has been selected")))
+        (mapc #'eask--print-archive package-archives)
+        (eask-info 3 "(Total of %s archives)" (length package-archives)))
+    (eask-info 3 "(No archive has been selected)")))
 
 ;;; archives.el ends here

lisp/autoloads.el

@@ -17,6 +17,6 @@
   (let* ((name (eask-guess-package-name))
          (autoloads-file (expand-file-name (concat name "-autoloads.el"))))
     (package-generate-autoloads name default-directory)
-    (message "\nWrite file %s..." autoloads-file)))
+    (eask-info 3 "Write file %s..." autoloads-file)))
 
 ;;; autoloads.el ends here

lisp/clean-elc.el

@@ -18,8 +18,8 @@
       (progn
         (dolist (elc elcs)
           (ignore-errors (delete-file elc))
-          (message "Deleting %s..." elc))
-        (message "(Total of %s .elc files deleted)" (length elcs)))
-    (message "(No .elc file found in workspace)")))
+          (eask-info 3 "Deleting %s..." elc))
+        (eask-info 3 "(Total of %s .elc files deleted)" (length elcs)))
+    (eask-info 3 "(No .elc file found in workspace)")))
 
 ;;; clean-elc.el ends here

lisp/clean.el

@@ -19,7 +19,7 @@
            (file-name-directory (directory-file-name user-emacs-directory)))))
     (ignore-errors (delete-directory target-dir t))
     (if eask--first-init-p
-        (message "(Workspace already cleaned)")
-      (message "Done (workspace `%s` is cleaned)" target-dir))))
+        (eask-info 3 "(Workspace already cleaned)")
+      (eask-info 3 "Done (workspace `%s` is cleaned)" target-dir))))
 
 ;;; clean.el ends here

lisp/compile.el

@@ -29,9 +29,9 @@
 (eask-start
   (eask-pkg-init)
   (let ((files (or (eask-args) (eask-package-el-files))) compiled)
-    (dolist (filename files)
-      (when (eask--byte-compile-file filename)
-        (push filename compiled)))
-    (message "\n Total of %s files compiled" (length compiled))))
+    (eask-with-verbosity 3
+      (dolist (filename files)
+        (when (eask--byte-compile-file filename) (push filename compiled))))
+    (eask-info 3 "(Total of %s files compiled)" (length compiled))))
 
 ;;; compile.el ends here

src/util.js

@@ -64,6 +64,7 @@ function _global_options(argv) {
   flags.push(def_flag(argv['no-proxy'], '--no-proxy', argv['no-proxy']));
   /* Others */
   flags.push(def_flag(argv.debug, '--debug'));
+  flags.push(def_flag(argv.verbose, '--verbose'));
   return flags;
 }