{:deps 
 {io.github.escherize/ice {:git/sha "d55522c8f3dd078499f0eb9869cb2ddcc7e57b29"}}}

(require '[ice.core :as ice])

;; Basic colored output
;; p is for printing
(ice/p [:red "This text is red"])
(ice/p [:on-blue "This text has blue background"])
(ice/p [:bold "This text is bold"])

;; Combining colors with nesting
(ice/p [:red "This is red " [:blue "and this is blue"]])

;; Complex nested formatting
(ice/p [:red "Error: " [:bold "Operation failed"] " - please try again"])

;; Creating a color demo
(apply ice/p (vec 
               (mapcat (fn [color] [color (name color) " "]) 
                       (keys #'ice/colors))))

;; Getting colored string without printing (no newline added)
(def colored-text (ice/p-str [:green "Success!"]))
;; => Returns colored string without printing and without a trailing newline

;; Disable colors (useful for logging to files)
(binding [ice/*disable-colors* true]
  (ice/p [:red "This will not be colored"]))

;; Multiple arguments
(ice/p [:red "Error: "] [:bold "Failed!"] " Please try again.")

;; Print red text
(ice/p [:red "This is red"])

;; Print nested colors
(ice/p [:red "Red" [:blue " and blue"]])

;; Print multiple arguments
(ice/p [:red "Error:"] " " [:bold "Something went wrong"])

;; Get red text as a string
(def red-text (ice/p-str [:red "This is red"]))
;; => "\033[31mThis is red\033[0m"

;; Use in string operations
(str "Prefix: " (ice/p-str [:green "Success"]) " :Suffix")
;; => "Prefix: \033[32mSuccess\033[0m :Suffix"

;; Useful for logging
(log/info (ice/p-str [:yellow "Warning:"] " " [:bold "Disk space low"]))

(def red-text (ice/p-str [:red "This is red"]))

(= "This is red" (ice/strip-color red-text))
;; => true