diff options
| author | Arun Isaac | 2026-06-21 00:53:46 +0100 |
|---|---|---|
| committer | Arun Isaac | 2026-06-21 00:53:46 +0100 |
| commit | 48bb01a674a8b75d2d9c90ce038ecb294f552ed5 (patch) | |
| tree | 7768dbcc554c7342408dbec68a8b190386a9b172 | |
| parent | 48b54461a93f88b4ef4e9a9d01325e63f5d541ca (diff) | |
| download | ccwl-48bb01a674a8b75d2d9c90ce038ecb294f552ed5.tar.gz ccwl-48bb01a674a8b75d2d9c90ce038ecb294f552ed5.tar.lz ccwl-48bb01a674a8b75d2d9c90ce038ecb294f552ed5.zip | |
ui: Handle ~A, ~a placeholders case-insensitively.
| -rw-r--r-- | ccwl/ui.scm | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/ccwl/ui.scm b/ccwl/ui.scm index 3b46a23..976e53d 100644 --- a/ccwl/ui.scm +++ b/ccwl/ui.scm @@ -1,5 +1,5 @@ ;;; ccwl --- Concise Common Workflow Language -;;; Copyright © 2022, 2023 Arun Isaac <arunisaac@systemreboot.net> +;;; Copyright © 2022, 2023, 2026 Arun Isaac <arunisaac@systemreboot.net> ;;; ;;; This file is part of ccwl. ;;; @@ -35,7 +35,10 @@ user." ;; the arguments are strings. (string-replace-substring (string-replace-substring - (formatted-message-format exception) + (string-replace-substring + (string-replace-substring + (formatted-message-format exception) "~A" "~a") + "~S" "~s") "~a" (colorize-string "~a" 'BOLD 'MAGENTA)) "~s" |