From 39b6930e14cfda58fd066805f5da447c685ab67f Mon Sep 17 00:00:00 2001 From: Your Name Date: Sun, 16 Mar 2025 02:01:52 +0530 Subject: Rename all compiler files to cljc. --- cljcc-compiler/src/cljcc/log.cljc | 28 ++++++++++++++++++++++++++++ 1 file changed, 28 insertions(+) create mode 100644 cljcc-compiler/src/cljcc/log.cljc (limited to 'cljcc-compiler/src/cljcc/log.cljc') diff --git a/cljcc-compiler/src/cljcc/log.cljc b/cljcc-compiler/src/cljcc/log.cljc new file mode 100644 index 0000000..3dbc4fb --- /dev/null +++ b/cljcc-compiler/src/cljcc/log.cljc @@ -0,0 +1,28 @@ +(ns cljcc.log + (:require [clojure.string :as str])) + +(def ^:private log-colors + {:debug "\u001b[36m" ; Cyan + :info "\u001b[32m" ; Green + :warn "\u001b[33m" ; Yellow + :error "\u001b[31m" ; Red + :reset "\u001b[0m"}) ; Reset color + +(def reset-color (get log-colors :reset)) + +(defn- log-message [level message] + (let [color (get log-colors level) + formatted-message (str color "[" (str/upper-case (name level)) "] " message reset-color)] + (println formatted-message))) + +(defn debug [msg] + (log-message :debug msg)) + +(defn info [msg] + (log-message :info msg)) + +(defn warn [msg] + (log-message :warn msg)) + +(defn error [msg] + (log-message :error msg)) -- cgit v1.2.3