small fixes

debug.lsp

@@ -1,35 +1,26 @@
 
-; (print (sprintf "\033[31mred text"))
-; (print (sprintf "\x1B[31mred text"))
+;; (print (sprintf "%.2f" (list 1.25)))
+
+;; (print (sprintf "%.2f" '(1.23456)))
+;; (print (sprintf "%d" '(10000000)))
+
+(define q 1.23)
+(print (sprintf "%+.2f%%" (list q)))
+
+(define q -1.23)
+(print (sprintf "%+.2f%%" (list q)))
 
 (define term-rst-esc "\x1B[0m")
 (define term-red-esc '"\x1B[31m")
 (define term-green-esc "\x1B[32m")
-(define term-yellow-esc "\x1B[33m")
-(define term-blue-esc "\x1B[34m")
-(define term-magenta-esc "\x1B[35m")
-(define term-cyan-esc "\x1B[36m")
-(define term-white-esc "\x1B[37m")
-(define term-bold-esc "\x1B[1m")
-(define term-underline-esc "\x1B[4m")
 
 (defun term-red (str) (sprintf (+ term-red-esc str term-rst-esc)))
-(defun term-green (str) (sprintf (+ term-green-esc str term-rst-esc)))
-(defun term-yellow (str) (sprintf (+ term-yellow-esc str term-rst-esc)))
-(defun term-blue (str) (sprintf (+ term-blue-esc str term-rst-esc)))
-(defun term-magenta (str) (sprintf (+ term-magenta-esc str term-rst-esc)))
-(defun term-cyan (str) (sprintf (+ term-cyan-esc str term-rst-esc)))
-(defun term-white (str) (sprintf (+ term-white-esc str term-rst-esc)))
-(defun term-bold (str) (sprintf (+ term-bold-esc str term-rst-esc)))
-(defun term-underline (str) (sprintf (+ term-underline-esc str term-rst-esc)))
 
-(print (term-red "red text"))
-(print (term-green "green text"))
-(print (term-yellow "yellow text"))
-(print (term-blue "blue text"))
-(print (term-magenta "magenta text"))
-(print (term-cyan "cyan text"))
-(print (term-white "white text"))
-(print (term-bold "bold text"))
-(print (term-underline "underline text"))
-(print "normal text")
+(print (term-red "red") (sprintf "%.2f" (list 1.11)) "ss")
+
+    (define q_change_str (sprintf "%+.2f %%" (list q)))
+    ;; (if (>= q_change 0.0) 
+    ;;     (define q_change_str (term-green q_change_str))
+    ;;     (define q_change_str (term-red q_change_str)))
+
+