upgrade deps; add llm files; tag 0.0.9

Author: tiye

.gitattributes

@@ -1,3 +1,5 @@
 
 calcit.cirru -diff linguist-generated
 yarn.lock -diff linguist-generated
+Agents.md -diff linguist-generated
+llms/*.md -diff linguist-generated

.github/workflows/upload.yaml

@@ -31,7 +31,7 @@ jobs:
 
     - name: "compiles to js"
       run: >
-        caps --ci && cr --emit-js --once
+        caps --ci && cr js -1
         && yarn && yarn vite build --base=./
 
     - name: Deploy to server

.gitignore

@@ -5,3 +5,5 @@
 js-out/
 node_modules/
 dist/
+
+.DS_Store

Agents.md

@@ -1,33 +1,55 @@
 
 {} (:package |respo-message)
-  :configs $ {} (:init-fn |respo-message.main/main!) (:reload-fn |respo-message.main/reload!) (:version |0.0.8)
+  :configs $ {} (:init-fn |respo-message.main/main!) (:reload-fn |respo-message.main/reload!) (:version |0.0.9)
     :modules $ [] |lilac/ |respo.calcit/ |memof/ |respo-ui.calcit/
   :entries $ {}
   :files $ {}
     |respo-message.action $ %{} :FileEntry
       :defs $ {}
-        |clear $ %{} :CodeEntry (:doc |)
+        |clear $ %{} :CodeEntry (:doc "|Action tag for clearing all messages. Use it with dispatch! to remove all displayed messages at once.")
           :code $ quote
             def clear $ gen-tag "\"message/clear"
-        |create $ %{} :CodeEntry (:doc |)
+          :examples $ []
+            quote $ dispatch! action/clear nil
+        |create $ %{} :CodeEntry (:doc "|Action tag for creating a new message. Use it with dispatch! to display a toast message.")
           :code $ quote
             def create $ gen-tag "\"message/create"
-        |dict $ %{} :CodeEntry (:doc |)
+          :examples $ []
+            quote $ dispatch! action/create
+              {} (:text "|Hello world!") (:token |msg-1)
+            quote $ dispatch! action/create
+              {} (:text "|Operation completed")
+                :style $ {}
+                  :background-color $ hsl 120 80 60
+        |dict $ %{} :CodeEntry (:doc "|Dictionary of all message action tags. Useful for pattern matching and validation.")
           :code $ quote
             def dict $ {} (:create create) (:remove-one remove-one) (:clear clear)
+          :examples $ []
+            quote $ get action/dict :create
+            quote $ keys action/dict
         |gen-tag $ %{} :CodeEntry (:doc |)
           :code $ quote
             defn gen-tag (x)
               turn-tag $ str x "\"_GEN_" 0
-        |message-action? $ %{} :CodeEntry (:doc |)
+          :examples $ []
+        |message-action? $ %{} :CodeEntry (:doc "|Predicate function to check if an operation is a message action. Returns true for create, clear, and remove-one actions.")
           :code $ quote
             defn message-action? (op)
               includes? (#{} clear create remove-one) op
-        |remove-one $ %{} :CodeEntry (:doc |)
+          :examples $ []
+            quote $ action/message-action? action/create
+            quote $ action/message-action? :unknown-action
+        |remove-one $ %{} :CodeEntry (:doc "|Action tag for removing a specific message. Messages can be identified by :id or :token field.")
           :code $ quote
             def remove-one $ gen-tag "\"message/remove-one"
+          :examples $ []
+            quote $ dispatch! action/remove-one
+              {} $ :token |msg-1
+            quote $ dispatch! action/remove-one
+              {} $ :id |some-id
       :ns $ %{} :CodeEntry (:doc |)
         :code $ quote (ns respo-message.action)
+        :examples $ []
     |respo-message.comp.container $ %{} :FileEntry
       :defs $ {}
         |comp-container $ %{} :CodeEntry (:doc |)
@@ -61,6 +83,7 @@
                   {} $ :bottom? false
                   fn (info d!) (d! action/remove-one info)
                 when config/dev? $ comp-inspect "\"messages" (:messages store) nil
+          :examples $ []
       :ns $ %{} :CodeEntry (:doc |)
         :code $ quote
           ns respo-message.comp.container $ :require
@@ -75,6 +98,7 @@
             respo-message.action :as action
             respo.comp.inspect :refer $ comp-inspect
             respo-message.config :as config
+        :examples $ []
     |respo-message.comp.message $ %{} :FileEntry
       :defs $ {}
         |comp-message $ %{} :CodeEntry (:doc |)
@@ -102,6 +126,7 @@
                             :time $ :time message
                           , d!
                     <> (:text message) nil
+          :examples $ []
         |css-message $ %{} :CodeEntry (:doc |)
           :code $ quote
             defstyle css-message $ {}
@@ -121,6 +146,7 @@
                 :cursor :pointer
                 :transition-duration |400ms
                 :box-shadow $ str "\"0px 0px 4px " (hsl 0 0 10 0.1)
+          :examples $ []
         |effect-fade $ %{} :CodeEntry (:doc |)
           :code $ quote
             defeffect effect-fade (message idx bottom?) (action el *local)
@@ -149,6 +175,7 @@
                     js/setTimeout
                       fn () $ .!remove cloned
                       , 400
+          :examples $ []
       :ns $ %{} :CodeEntry (:doc |)
         :code $ quote
           ns respo-message.comp.message $ :require
@@ -157,9 +184,10 @@
             respo.util.format :refer $ hsl
             respo-message.schema :as schema
             respo.css :refer $ defstyle
+        :examples $ []
     |respo-message.comp.messages $ %{} :FileEntry
       :defs $ {}
-        |comp-messages $ %{} :CodeEntry (:doc |)
+        |comp-messages $ %{} :CodeEntry (:doc "|Respo component that renders a list of toast messages. Pass messages map, options (with :bottom? flag for positioning), and on-remove! callback. Messages are auto-sorted by time (newest first) and rendered at fixed position (top-right or bottom-right).")
           :code $ quote
             defcomp comp-messages (messages options on-remove!)
               list->
@@ -175,11 +203,19 @@
                     - (:time m) (:time message)
                   map-indexed $ fn (idx message)
                     [] (:id message) (comp-message idx message options on-remove!)
+          :examples $ []
+            quote $ comp-messages (:messages store)
+              {} $ :bottom? true
+              fn (info d!) (d! action/remove-one info)
+            quote $ comp-messages (:messages store)
+              {} $ :bottom? false
+              fn (info d!) (d! action/remove-one info)
       :ns $ %{} :CodeEntry (:doc |)
         :code $ quote
           ns respo-message.comp.messages $ :require
             respo.core :refer $ defcomp list-> div span <>
             respo-message.comp.message :refer $ comp-message
+        :examples $ []
     |respo-message.config $ %{} :FileEntry
       :defs $ {}
         |cdn? $ %{} :CodeEntry (:doc |)
@@ -189,6 +225,7 @@
                 , false
               (exists? js/process) (= "\"true" js/process.env.cdn)
               true false
+          :examples $ []
         |dev? $ %{} :CodeEntry (:doc |)
           :code $ quote
             def dev? $ let
@@ -198,15 +235,19 @@
                   , debug?
                 (exists? js/process) (not= "\"true" js/process.env.release)
                 :else true
+          :examples $ []
         |site $ %{} :CodeEntry (:doc |)
           :code $ quote
             def site $ {} (:dev-ui "\"http://localhost:8100/main-fonts.css") (:release-ui "\"http://cdn.tiye.me/favored-fonts/main-fonts.css") (:cdn-url "\"http://cdn.tiye.me/respo-message/") (:title "\"Message") (:icon "\"http://cdn.tiye.me/logo/respo.png") (:storage-key "\"respo-message")
+          :examples $ []
       :ns $ %{} :CodeEntry (:doc |)
         :code $ quote (ns respo-message.config)
+        :examples $ []
     |respo-message.main $ %{} :FileEntry
       :defs $ {}
         |*store $ %{} :CodeEntry (:doc |)
           :code $ quote (defatom *store schema/store)
+          :examples $ []
         |dispatch! $ %{} :CodeEntry (:doc |)
           :code $ quote
             defn dispatch! (op)
@@ -223,6 +264,7 @@
                       :states cursor s
                       update-states store cursor s
                     _ $ do (eprintln "\"Unhandled operation:" op) store
+          :examples $ []
         |main! $ %{} :CodeEntry (:doc |)
           :code $ quote
             defn main! ()
@@ -233,18 +275,22 @@
                 dispatch! $ :: action/create
                   {} $ :text (lorem-ipsum/loremIpsum)
               println "|app started!"
+          :examples $ []
         |mount-target $ %{} :CodeEntry (:doc |)
           :code $ quote
             def mount-target $ js/document.querySelector |.app
+          :examples $ []
         |reload! $ %{} :CodeEntry (:doc |)
           :code $ quote
             defn reload! () (clear-cache!) (render-app! render!) (println "|Code update.")
               dispatch! $ :: action/create
                 {} $ :text (lorem-ipsum/loremIpsum)
+          :examples $ []
         |render-app! $ %{} :CodeEntry (:doc |)
           :code $ quote
             defn render-app! (renderer)
               renderer mount-target (comp-container @*store) dispatch!
+          :examples $ []
       :ns $ %{} :CodeEntry (:doc |)
         :code $ quote
           ns respo-message.main $ :require
@@ -257,22 +303,37 @@
             respo-message.updater :refer $ update-messages
             respo-message.action :as action
             respo-message.config :as config
+        :examples $ []
     |respo-message.schema $ %{} :FileEntry
       :defs $ {}
-        |message $ %{} :CodeEntry (:doc |)
+        |message $ %{} :CodeEntry (:doc "|Schema definition for a message object. Contains :id (auto-generated), :token (optional user-defined), :text (message content), :time (creation timestamp), and :style (custom CSS styles).")
           :code $ quote
             def message $ {} (:id nil) (:token nil) (:text "\"") (:time 0)
               :style $ {}
-        |store $ %{} :CodeEntry (:doc |)
+          :examples $ []
+            quote $ merge schema/message
+              {} (:text |Hello) (:token |msg-1)
+            quote $ merge schema/message
+              {} (:text "|Error occurred")
+                :style $ {}
+                  :background-color $ hsl 0 80 60
+        |store $ %{} :CodeEntry (:doc "|Schema definition for the message store. Contains :messages (hashmap of messages by id) and :states (component states storage).")
           :code $ quote
             def store $ {}
               :messages $ {}
               :states $ {}
+          :examples $ []
+            quote $ schema/store
+            quote $ merge schema/store
+              {} $ :messages
+                {} $ |msg-1
+                  {} $ :text |Hello
       :ns $ %{} :CodeEntry (:doc |)
         :code $ quote (ns respo-message.schema)
+        :examples $ []
     |respo-message.updater $ %{} :FileEntry
       :defs $ {}
-        |update-messages $ %{} :CodeEntry (:doc |)
+        |update-messages $ %{} :CodeEntry (:doc "|Updater function that processes message actions and updates the messages state. Handles create, clear, and remove-one operations. Should be called from your main updater when action/message-action? returns true.")
           :code $ quote
             defn update-messages (messages op op-data op-id op-time)
               cond
@@ -290,6 +351,12 @@
                       pairs-map
                     dissoc messages $ :id op-data
                 true messages
+          :examples $ []
+            quote $ update-messages ({}) action/create
+              {} $ :text |Hello
+              , |id-1 1234567890
+            quote $ update-messages existing-messages action/clear nil |id-2 1234567891
       :ns $ %{} :CodeEntry (:doc |)
         :code $ quote
           ns respo-message.updater $ :require (respo-message.schema :as schema) (respo-message.action :as action)
+        :examples $ []

calcit.cirru

@@ -0,0 +1,6 @@
+
+{} (:calcit-version |0.10.4)
+  :dependencies $ {} (|Respo/respo-ui.calcit |0.6.3)
+    |Respo/respo.calcit |0.16.23
+    |calcit-lang/lilac |main
+    |calcit-lang/memof |0.0.17