From 48bb01a674a8b75d2d9c90ce038ecb294f552ed5 Mon Sep 17 00:00:00 2001 From: Arun Isaac Date: Sun, 21 Jun 2026 00:53:46 +0100 Subject: ui: Handle ~A, ~a placeholders case-insensitively. --- ccwl/ui.scm | 7 +++++-- 1 file 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 +;;; Copyright © 2022, 2023, 2026 Arun Isaac ;;; ;;; 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" -- cgit 1.4.1