fix textbox transparency

Author: tiye

calcit.cirru

@@ -672,8 +672,8 @@
         |style-message-box-panel $ %{} :CodeEntry (:doc |)
           :code $ quote
             defstyle style-message-box-panel $ {}
-              "\"&" $ {} (:position :absolute) (:bottom 0) (:opacity 0.9) (:width "\"100%")
-                :background-color $ hsl 0 0 100 0.9
+              "\"&" $ {} (:position :absolute) (:bottom 0) (:opacity 1) (:width "\"100%")
+                :background-color $ hsl 0 0 100 0.5
                 :border-top $ str "\"1px solid " (hsl 0 0 80 0.5)
         |style-message-list $ %{} :CodeEntry (:doc |)
           :code $ quote
@@ -698,8 +698,10 @@
         |style-textbox $ %{} :CodeEntry (:doc |)
           :code $ quote
             defstyle style-textbox $ {}
-              "\"&" $ {} (:border-radius 12) (:height "\"max(160px,20vh)") (:width "\"100%") (:transition-duration "\"320ms") (:border :none) (:background-color :transparent)
+              "\"&" $ {} (:border-radius 12) (:height "\"max(160px,20vh)") (:width "\"100%") (:transition-duration "\"320ms") (:border :none)
+                :background-color $ hsl 0 0 100 0.6
               "\"&.focus-within" $ {} (:height "\"max(240px,32vh)") (:border :none)
+                :background-color $ hsl 0 0 100 0.84
         |submit-message! $ %{} :CodeEntry (:doc |)
           :code $ quote
             defn submit-message! (cursor state prompt-text search? think? model d!) (hint-fn async)