.github/dependabot.yml

@@ -0,0 +1,6 @@
+version: 2
+updates:
+  - package-ecosystem: github-actions
+    directory: /
+    schedule:
+      interval: daily

.github/workflows/test.yml

@@ -14,27 +14,41 @@ concurrency:
 jobs:
   test:
     runs-on: ${{ matrix.os }}
+    continue-on-error: ${{ matrix.experimental }}
     strategy:
       fail-fast: false
       matrix:
         os: [ubuntu-latest, macos-latest, windows-latest]
         emacs-version:
           - 26.3
           - 27.2
-          - 28.1
-          - snapshot
+          - 28.2
+          - 29.4
+          - 30.1
+        experimental: [false]
+        include:
+        - os: ubuntu-latest
+          emacs-version: snapshot
+          experimental: true
+        - os: macos-latest
+          emacs-version: snapshot
+          experimental: true
+        - os: windows-latest
+          emacs-version: snapshot
+          experimental: true
+        exclude:
+          - os: macos-latest
+            emacs-version: 26.3
+          - os: macos-latest
+            emacs-version: 27.2
 
     steps:
-    - uses: actions/checkout@v2
+    - uses: actions/checkout@v4
 
     - uses: jcs090218/setup-emacs@master
       with:
         version: ${{ matrix.emacs-version }}
 
-    - uses: actions/setup-node@v2
-      with:
-        node-version: '16'
-
     - uses: emacs-eask/setup-eask@master
       with:
         version: 'snapshot'

.gitignore

@@ -13,3 +13,6 @@ dist/
 # packaging
 *-autoloads.el
 *-pkg.el
+
+# OS generated
+.DS_Store

CHANGELOG.md

@@ -8,7 +8,8 @@ Check [Keep a Changelog](http://keepachangelog.com/) for recommendations on how
 ## 0.1.1 (Unreleased)
 > Released N/A
 
-* N/A
+* Add utility functions `sleep`/`sit` (5f1d14db7695109a12ce30346beb2d5523981c4c)
+* Extract current message's format string (690df6d067fd2d79f975d4d34f58e1350e417dc3)
 
 ## 0.1.0
 > Released Sep 07, 2022

Eask

@@ -7,6 +7,8 @@
 
 (package-file "msgu.el")
 
+(script "test" "echo \"Error: no test specified\" && exit 1")
+
 (source "gnu")
 
 (depends-on "emacs" "26.1")

Makefile

@@ -30,4 +30,4 @@ lint:
 	$(EASK) lint package
 
 clean:
-	$(EASK) clean-all
+	$(EASK) clean all

README.md

@@ -1,12 +1,70 @@
 [![License: GPL v3](https://img.shields.io/badge/License-GPL%20v3-blue.svg)](https://www.gnu.org/licenses/gpl-3.0)
 [![JCS-ELPA](https://raw.githubusercontent.com/jcs-emacs/badges/master/elpa/v/msgu.svg)](https://jcs-emacs.github.io/jcs-elpa/#/msgu)
+<a href="https://jcs-emacs.github.io/"><img align="right" src="https://raw.githubusercontent.com/jcs-emacs/badges/master/others/built-with/dark.svg" alt="Built with"></a>
 
 # msgu
 > Utility functions help output the messages
 
 [![CI](https://github.com/jcs-elpa/msgu/actions/workflows/test.yml/badge.svg)](https://github.com/jcs-elpa/msgu/actions/workflows/test.yml)
 
-## Contribute
+## 🔧 Usage
+
+### msgu-silent
+
+Silent a code block.
+
+```elisp
+(msgu-silent
+  (message "This cannot be seen..."))
+```
+
+### msgu-unsilent
+
+Unsilent a code block.
+
+```elisp
+(msgu-unsilent
+  (message "This can be seen!"))
+```
+
+### msgu-inhibit-log
+
+Display in echo area, but don't output to `*Messages*` buffer.
+
+```elisp
+(msgu-inhibit-log
+  (message "Display message in Echo area!"))
+```
+
+### msgu-color `(fmt args)`
+
+Print a message with color.
+
+```elisp
+(msgu-color (propertize "red" 'face '(:foreground "red")))
+```
+
+### msgu-current `(fmt args)`
+
+Print a message with the last message above.
+
+```elisp
+(message "This is last message.")        ; set current message
+
+(msgu-current "New message!~")  ; output with last message
+```
+
+output:
+
+```
+This is last message.
+
+New message!~
+```
+
+You can `msgu-currnet-format` to adjust string format, default is `"%s\n\n"`.
+
+## 🛠️ Contribute
 
 [![PRs Welcome](https://img.shields.io/badge/PRs-welcome-brightgreen.svg)](http://makeapullrequest.com)
 [![Elisp styleguide](https://img.shields.io/badge/elisp-style%20guide-purple)](https://github.com/bbatsov/emacs-lisp-style-guide)
@@ -17,3 +75,62 @@ If you would like to contribute to this project, you may either
 clone and make pull requests to this repository. Or you can
 clone the project and establish your own branch of this tool.
 Any methods are welcome!
+
+### 🔬 Development
+
+To run the test locally, you will need the following tools:
+
+- [Eask](https://emacs-eask.github.io/)
+- [Make](https://www.gnu.org/software/make/) (optional)
+
+Install all dependencies and development dependencies:
+
+```sh
+eask install-deps --dev
+```
+
+To test the package's installation:
+
+```sh
+eask package
+eask install
+```
+
+To test compilation:
+
+```sh
+eask compile
+```
+
+**🪧 The following steps are optional, but we recommend you follow these lint results!**
+
+The built-in `checkdoc` linter:
+
+```sh
+eask lint checkdoc
+```
+
+The standard `package` linter:
+
+```sh
+eask lint package
+```
+
+*📝 P.S. For more information, find the Eask manual at https://emacs-eask.github.io/.*
+
+## ⚜️ License
+
+This program is free software; you can redistribute it and/or modify
+it under the terms of the GNU General Public License as published by
+the Free Software Foundation, either version 3 of the License, or
+(at your option) any later version.
+
+This program is distributed in the hope that it will be useful,
+but WITHOUT ANY WARRANTY; without even the implied warranty of
+MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+GNU General Public License for more details.
+
+You should have received a copy of the GNU General Public License
+along with this program.  If not, see <https://www.gnu.org/licenses/>.
+
+See [`LICENSE`](./LICENSE.txt) for details.

msgu.el

@@ -1,12 +1,12 @@
 ;;; msgu.el --- Utility functions help output the messages  -*- lexical-binding: t; -*-
 
-;; Copyright (C) 2022  Shen, Jen-Chieh
+;; Copyright (C) 2022-2025  Shen, Jen-Chieh
 
 ;; Author: Shen, Jen-Chieh <jcs090218@gmail.com>
 ;; Maintainer: Shen, Jen-Chieh <jcs090218@gmail.com>
 ;; URL: https://github.com/jcs-elpa/msgu
 ;; Version: 0.1.0
-;; Package-Requires: ((emacs "24.3"))
+;; Package-Requires: ((emacs "26.1"))
 ;; Keywords: lisp
 
 ;; This file is not part of GNU Emacs.
@@ -37,6 +37,13 @@
   :group 'convenience
   :link '(url-link :tag "Repository" "https://github.com/jcs-elpa/msgu"))
 
+(defcustom msgu-log-max (or (ignore-errors (default-value 'message-log-max))
+                            1000)
+  "`message-log-max' for unsilencing."
+  :type 'integer
+  :group 'msgu)
+
+;;;###autoload
 (defmacro msgu-inhibit-log (&rest body)
   "Execute BODY without write it to message buffer."
   (declare (indent 0) (debug t))
@@ -54,14 +61,88 @@
 (defmacro msgu-unsilent (&rest body)
   "Execute BODY with ensuring message log."
   (declare (indent 0) (debug t))
-  `(let ((message-log-max 1000)) ,@body))
+  `(let ((message-log-max msgu-log-max)) ,@body))
+
+;;
+;; (@* "Util" )
+;;
+
+(defun msgu-2str (obj)
+  "Convert OBJ to string."
+  (format "%s" obj))
+
+(defun msgu--count-matches (pattern str)
+  "Count occurrences of PATTERN in STR.
+
+Like function `s-count-matches' but faster."
+  (max 0 (1- (length (split-string str pattern)))))
+
+;;
+;; (@* "Delay" )
+;;
+
+(defcustom msgu-sleep-seconds 0.4
+  "Default seconds to sleep after calling `msgu-sleep' function."
+  :type 'number
+  :group 'msgu)
+
+(defcustom msgu-sit-seconds 100
+  "Default seconds to sit after calling `msgu-sit' function."
+  :type 'number
+  :group 'msgu)
+
+;;;###autoload
+(defun msgu-sleep (&optional seconds milliseconds)
+  "Wrap `sleep-for' function width default SECONDS and MILLISECONDS."
+  (sleep-for (or seconds msgu-sleep-seconds) milliseconds))
+
+;;;###autoload
+(defun msgu-sit (&optional seconds nodisp)
+  "Wrap `sit-for' function with default SECONDS and NODISP."
+  (sit-for (or seconds msgu-sit-seconds) nodisp))
+
+;;
+;; (@* "Color" )
+;;
+
+;; TOPIC: How to preserve color in *Messages* buffer?
+;; SOURCE: https://emacs.stackexchange.com/questions/20171/how-to-preserve-color-in-messages-buffer
+
+(defun msgu-color (fmt &rest args)
+  "Like function `message' but preserve color in the buffer.
+
+Arguments FMT and ARGS are used for format message."
+  (msgu-inhibit-log (apply 'message fmt args))
+  (with-current-buffer (messages-buffer)
+    (save-excursion
+      (goto-char (point-max))
+      (let ((inhibit-read-only t))
+        (insert (apply 'format fmt args))))))
+
+;;
+;; (@* "Others" )
+;;
+
+(defcustom msgu-currnet-format "%s\n\n"
+  "String use to format current message."
+  :type 'string
+  :group 'msgu)
 
 ;;;###autoload
 (defun msgu-current (fmt &rest args)
-  "Log messages with current message on top if available."
-  (message "%s%s"
-           (if (current-message) (concat (current-message) "\n\n") "")
-           (apply #'format fmt args)))
+  "Log messages with current message on top if available.
+
+Arguments FMT and ARGS are used for format message."
+  (let* ((msg (current-message))
+         (one-line (and msg (< (msgu--count-matches "\n" msg) 1))))
+    (message "%s%s"
+             (cond (one-line
+                    (msgu-2str msg))
+                   (msg
+                    (format msgu-currnet-format msg))
+                   (t
+                    ""))
+             (apply #'format fmt args))))
 
 (provide 'msgu)
 ;;; msgu.el ends here