fix: Print with stdout (#205)

* fix: Print with stdout

* docs: update

* changelog

Author: jcs090218

CHANGELOG.md

@@ -38,6 +38,7 @@ Check [Keep a Changelog](http://keepachangelog.com/) for recommendations on how
 * Add `melpazoid` command (#202)
 * Add `source` command and its subcommands (#203)
 * Add `bump` command (#204)
+* fix: Print with stdout (#205)
 
 ## 0.8.x
 > Released Mar 08, 2023

docs/content/en/Development-API/_index.md

@@ -753,17 +753,33 @@ to display.
 2022-04-14 17:31:54 [ERROR] This is ERROR message
 ```
 
+## 🔍 Function: eask-print (`msg` &rest `args`)
+
+Standard output printing without newline.
+
+```elisp
+(eask-println "Print to stdout!")
+```
+
+## 🔍 Function: eask-println (`msg` &rest `args`)
+
+Like the function `eask-print` but contains the newline at the end.
+
+```elisp
+(eask-println "Print to stdout! (with newline)")
+```
+
 ## 🔍 Function: eask-msg (`msg` &rest `args`)
 
-Like `message` function but will replace unicodes with color.
+Like the `message` function but will replace unicode with color.
 
 ```elisp
 (eask-msg "Print this message with newline!")
 ```
 
 ## 🔍 Function: eask-write (`msg` &rest `args`)
 
-Like `eask-msg` function but without newline at the end.
+Like the `eask-msg` function but without the newline at the end.
 
 ```elisp
 (eask-write "Print this message without newline...")

docs/content/zh-TW/Development-API/_index.md

@@ -743,6 +743,22 @@ $ cat /.log/messages.log
 2022-04-14 17:31:54 [ERROR] 這是錯誤信息
 ```
 
+## 🔍 函式: eask-print (`msg` &rest `args`)
+
+標準輸出列印不含換行符。
+
+```elisp
+(eask-println "打印到標準輸出！")
+```
+
+## 🔍 函式: eask-println (`msg` &rest `args`)
+
+與函數 `esk-print` 類似，但末尾包含換行符。
+
+```elisp
+(eask-println "打印到標準輸出！ (有換行符)")
+```
+
 ## 🔍 函式: eask-msg (`msg` &rest `args`)
 
 類似於 `message` 函數，但會用顏色替換 unicode。

lisp/_prepare.el

@@ -1102,7 +1102,7 @@ This uses function `locate-dominating-file' to look up directory tree."
                  (if (eask-file-try-load "./")
                      (eask-msg "✓ Loading Eask file in %s... done!" eask-file)
                    (eask-msg "✗ Loading Eask file... missing!"))
-                 (message ""))
+                 (eask-msg ""))
                (if (not eask-file)
                    (eask-help "core/init")
                  (package-activate-all)
@@ -1539,20 +1539,40 @@ character."
          (string (eask--msg-displayable-kwds string)))
     string))
 
+(defun eask-princ (object &optional stderr)
+  "Like function `princ'; with flag STDERR.
+
+For argument OBJECT, please see function `princ' for the detials.
+
+If optional argument STDERR is non-nil; use stderr instead."
+  (unless inhibit-message
+    (princ object (when stderr #'external-debugging-output))))
+
+(defun eask-print (msg &rest args)
+  "Standard output printing without newline.
+
+For arguments MSG and ARGS, please see function `eask--format-paint-kwds' for
+the detials."
+  (eask-princ (apply #'eask--format-paint-kwds msg args)))
+
+(defun eask-println (msg &rest args)
+  "Like the function `eask-print' but contains the newline at the end.
+
+For arguments MSG and ARGS, please see function `eask-print' for the detials."
+  (apply #'eask-print (concat msg "\n") args))
+
 (defun eask-msg (msg &rest args)
-  "Like function `message' but replace unicodes with color.
+  "Like the function `message' but replace unicode with color.
 
 For arguments MSG and ARGS, please see function `eask--format-paint-kwds' for
 the detials."
   (message (apply #'eask--format-paint-kwds msg args)))
 
 (defun eask-write (msg &rest args)
-  "Like function `eask-msg' but without newline at the end.
+  "Like the function `eask-msg' but without newline at the end.
 
-For arguments MSG and ARGS, please see function `eask--format-paint-kwds' for
-the detials."
-  (unless inhibit-message
-    (princ (apply #'eask--format-paint-kwds msg args) 'external-debugging-output)))
+For arguments MSG and ARGS, please see function `eask-msg' for the detials."
+  (eask-princ (apply #'eask--format-paint-kwds msg args) t))
 
 (defun eask-report (&rest args)
   "Report error/warning depends on strict flag.

lisp/core/archives.el

@@ -24,8 +24,9 @@
          (url (cdr archive))
          (priority (assoc name package-archive-priorities))
          (priority (cdr priority)))
-    (message (concat "  %-" eask--length-name "s  %-" eask--length-url "s  %-" eask--length-priority "s")
-             name (eask-2url url) (or priority 0))))
+    (eask-println
+     (concat "  %-" eask--length-name "s  %-" eask--length-url "s  %-" eask--length-priority "s")
+     name (eask-2url url) (or priority 0))))
 
 (defun eask--print-archive-alist (alist)
   "Print the archvie ALIST."
@@ -43,14 +44,12 @@
     (eask-info "Available archives:")
     (eask-msg "")
     (eask--print-archive-alist eask-source-mapping)
-    (eask-msg "")
     (eask-info "(Total of %s archive%s available)" (length eask-source-mapping)
                (eask--sinr eask-source-mapping "" "s")))
    (package-archives
     (eask-info "In used archives:")
     (eask-msg "")
     (eask--print-archive-alist package-archives)
-    (eask-msg "")
     (eask-info "(Total of %s archive%s listed)" (length package-archives)
                (eask--sinr package-archives "" "s")))
    (t

lisp/core/cat.el

@@ -46,8 +46,8 @@
               (let* ((line (buffer-substring (line-beginning-position) (line-end-position)))
                      (line (if ansi-inhibit-ansi line (e2ansi-string-to-ansi line))))
                 (if (eask-number-p)
-                    (message (concat "%" offset "d  %s") line-no line)
-                  (message "%s" line)))
+                    (eask-println (concat "%" offset "d  %s") line-no line)
+                  (eask-println "%s" line)))
               (forward-line 1)
               (cl-incf line-no)))))
     (eask-info "(No files match wildcard: %s)"

lisp/core/exec-path.el

@@ -18,7 +18,7 @@
 
 (defun eask--print-exec-path (path)
   "Print out the PATH."
-  (message "%s" path))
+  (eask-println "%s" path))
 
 (eask-start
   (eask-pkg-init)
@@ -30,7 +30,6 @@
     (mapc #'eask--print-exec-path exec-path)
     (if (zerop (length exec-path))
         (eask-info "(No exec-path found)")
-      (eask-msg "")
       (eask-info "(Total of %s exec-path)" (length exec-path)))))
 
 ;;; core/exec-path.el ends here

lisp/core/files.el

@@ -16,7 +16,7 @@
 
 (defun eask--print-filename (filename)
   "Print out the FILENAME."
-  (message "%s" filename))
+  (eask-println "%s" filename))
 
 (eask-start
   (let* ((patterns (eask-args))
@@ -26,7 +26,6 @@
     (mapc #'eask--print-filename files)
     (if (zerop (length files))
         (eask-info "(No package files found)")
-      (eask-msg "")
       (eask-info "(Total of %s item%s listed)" (length files) (eask--sinr files "" "s")))))
 
 ;;; core/files.el ends here

lisp/core/info.el

@@ -19,8 +19,8 @@
 (defun eask--print-deps (title dependencies)
   "Print DEPENDENCIES with TITLE identifier."
   (when dependencies
-    (eask-msg "")
-    (eask-msg title)
+    (eask-println "")
+    (eask-println title)
     (let* ((names (mapcar #'car dependencies))
            (offset (eask-seq-str-max names)))
       (setq eask--max-offset (max offset eask--max-offset)
@@ -30,33 +30,33 @@
                (target-version (if (= (length target-version) 1)
                                    (nth 0 target-version)
                                  "specified")))
-          (eask-msg (concat "  %-" offset "s (%s)") (car dep) target-version)
+          (eask-println (concat "  %-" offset "s (%s)") (car dep) target-version)
           (eask-debug "    Recipe: %s" (car dep)))))))
 
 (eask-start
   (if eask-package
       (progn
-        (eask-msg "%s (%s) | deps: %s | devDeps: %s"
+        (eask-println "%s (%s) | deps: %s | devDeps: %s"
                   (ansi-green (eask-package-name))
                   (ansi-yellow (eask-package-version))
                   (ansi-cyan (eask-2str (length eask-depends-on)))
                   (ansi-cyan (eask-2str (length eask-depends-on-dev))))
         (unless (string-empty-p (eask-package-description))
-          (eask-msg (eask-package-description)))
+          (eask-println (eask-package-description)))
         (when-let* ((url (or (eask-package-desc-url) eask-website-url))
                     ((not (string-empty-p url))))
-          (eask-msg (ansi-cyan url)))
+          (eask-println (ansi-cyan url)))
         (when-let ((keywords (or (eask-package-desc-keywords) eask-keywords)))
-          (eask-msg "")
-          (eask-msg "keywords: %s" (string-join keywords ", ")))
-        (eask-msg "")
+          (eask-println "")
+          (eask-println "keywords: %s" (string-join keywords ", ")))
+        (eask-println "")
         (when eask-package-file
-          (eask-msg "entry: %s" (eask-root-del eask-package-file)))
-        (eask-msg "kind: %s" (if (eask-package-multi-p) "tar" "single"))
-        (eask-msg "")
-        (eask-msg "dist")
-        (eask-msg ".total-files: %s" (length (eask-package-files)))
-        (eask-msg ".unpacked-size: %s" (eask-unpacked-size))
+          (eask-println "entry: %s" (eask-root-del eask-package-file)))
+        (eask-println "kind: %s" (if (eask-package-multi-p) "tar" "single"))
+        (eask-println "")
+        (eask-println "dist")
+        (eask-println ".total-files: %s" (length (eask-package-files)))
+        (eask-println ".unpacked-size: %s" (eask-unpacked-size))
         (eask--print-deps "dependencies:" eask-depends-on)
         (eask--print-deps "devDependencies:" eask-depends-on-dev))
     (eask-info "(Eask file has no package information)")

lisp/core/keywords.el

@@ -21,8 +21,7 @@
          (offset (eask-seq-str-max keywords))
          (fmt (concat "  %-" (eask-2str offset) "s  %s")))
     (dolist (keyword keywords)
-      (eask-msg fmt keyword (cdr (assq keyword finder-known-keywords))))
-    (eask-msg "")
+      (eask-println fmt keyword (cdr (assq keyword finder-known-keywords))))
     (eask-info "(Total of %s keywords listed)" (length keywords))))
 
 ;;; core/keywords.el ends here