@lovelace_lol/polymer 0.0.6 → 0.0.8

package/shadow-cljs.edn

@@ -1,173 +0,0 @@
-{:source-paths ["src" "test"]
- :dependencies []
- :builds
- {:npm
-  {:target :esm
-   :output-dir "dist"
-   :js-options {:js-provider :import}
-   :modules {:index
-             {;; Closure cannot emit dynamic-import expressions from CLJS.
-              ;; This build-only ESM connector keeps the package name literal
-              ;; so downstream bundlers can resolve and split the dictionary.
-              :prepend "globalThis.__polymerLoadPronunciationDictionary = () => import('cmu-pronouncing-dictionary');\n"
-              :exports {:createBlinkAgency polymer.core/createBlinkAgency
-             :createAnimationAgency polymer.core/createAnimationAgency
-             :createAnimationService polymer.core/createAnimationService
-             :createEyeHeadTrackingService polymer.core/createEyeHeadTrackingService
-             :createTranscriptionService polymer.core/createTranscriptionService
-             :createConversationService polymer.core/createConversationService
-             :TranscriptionService polymer.core/TranscriptionService
-             :ConversationService polymer.core/ConversationService
-             :DEFAULT_EYE_HEAD_CONFIG polymer.core/DEFAULT_EYE_HEAD_CONFIG
-             :DEFAULT_ANIMATION_KEYS polymer.core/DEFAULT_ANIMATION_KEYS
-             :EYE_AUS polymer.core/EYE_AUS
-             :HEAD_AUS polymer.core/HEAD_AUS
-             :animationEventEmitter polymer.core/animationEventEmitter
-             :snippetList$ polymer.core/snippetList$
-             :snippetState$ polymer.core/snippetState$
-             :snippetTime$ polymer.core/snippetTime$
-             :globalPlaybackState$ polymer.core/globalPlaybackState$
-             :bakedClipList$ polymer.core/bakedClipList$
-             :playingBakedAnimations$ polymer.core/playingBakedAnimations$
-             :bakedAnimationProgress$ polymer.core/bakedAnimationProgress$
-             :bakedAnimationState$ polymer.core/bakedAnimationState$
-             :getBundledSnippetNames polymer.core/getBundledSnippetNames
-             :getStoredSnippetNames polymer.core/getStoredSnippetNames
-             :getAvailableSnippetNames polymer.core/getAvailableSnippetNames
-             :resolveSnippetEntry polymer.core/resolveSnippetEntry
-             :preloadAllSnippets polymer.core/preloadAllSnippets
-             :clearPreloadedSnippets polymer.core/clearPreloadedSnippets
-             :createGazeAgency polymer.core/createGazeAgency
-             :createEyeHeadTrackingAgency polymer.core/createEyeHeadTrackingAgency
-             :createLipSyncAgency polymer.core/createLipSyncAgency
-             :createTTSAgency polymer.core/createTTSAgency
-             :createGestureAgency polymer.core/createGestureAgency
-             :createProsodicAgency polymer.core/createProsodicAgency
-             :createConversationAgency polymer.core/createConversationAgency
-             :createTranscriptionAgency polymer.core/createTranscriptionAgency
-             :createCameraContextAgency polymer.core/createCameraContextAgency
-             :createCharacterAgencies polymer.core/createCharacterAgencies
-             :DEFAULT_AGENCY_SOCIETY polymer.core/DEFAULT_AGENCY_SOCIETY
-             :Embody polymer.runtime.embody/Embody
-             :BLENDING_MODES polymer.runtime.embody/BLENDING_MODES
-             :THREE_BLENDING_MODES polymer.runtime.embody/THREE_BLENDING_MODES
-             :collectMorphMeshes polymer.runtime.embody/collectMorphMeshes
-             :analyzeModel polymer.runtime.embody/analyzeModel
-             :extractModelData polymer.runtime.embody/extractModelData
-             :getPreset polymer.runtime.embody/getPreset
-             :validateMappings polymer.runtime.embody/validateMappings
-             :extendCharacterConfigWithPreset polymer.runtime.embody/extendCharacterConfigWithPreset
-             :extractProfileOverrides polymer.runtime.embody/extractProfileOverrides
-             :mergeCharacterRegionsByName polymer.runtime.embody/mergeCharacterRegionsByName
-             :applyAUBoneBindingUpdate polymer.runtime.embody/applyAUBoneBindingUpdate
-             :applyBilateralAxisBindingUpdate polymer.runtime.embody/applyBilateralAxisBindingUpdate
-             :applyBoneAxisBindingUpdate polymer.runtime.embody/applyBoneAxisBindingUpdate
-             :buildBoneAuOptions polymer.runtime.embody/buildBoneAuOptions
-             :classifyAuAsJointControl polymer.runtime.embody/classifyAuAsJointControl
-             :createBilateralBoneAxisAu polymer.runtime.embody/createBilateralBoneAxisAu
-             :createBoneAxisAu polymer.runtime.embody/createBoneAxisAu
-             :DEFAULT_AXIS_TO_CHANNEL polymer.runtime.embody/DEFAULT_AXIS_TO_CHANNEL
-             :DEFAULT_BONE_MAX_DEGREES polymer.runtime.embody/DEFAULT_BONE_MAX_DEGREES
-             :ensureBilateralBoneNodeKeys polymer.runtime.embody/ensureBilateralBoneNodeKeys
-             :ensureBoneNodeKey polymer.runtime.embody/ensureBoneNodeKey
-             :findNodeKeyForBone polymer.runtime.embody/findNodeKeyForBone
-             :formatAxisDirectionLabel polymer.runtime.embody/formatAxisDirectionLabel
-             :formatAxisLabel polymer.runtime.embody/formatAxisLabel
-             :getAUBoneBindingState polymer.runtime.embody/getAUBoneBindingState
-             :getAxisFromChannel polymer.runtime.embody/getAxisFromChannel
-             :getBilateralAxisBindingState polymer.runtime.embody/getBilateralAxisBindingState
-             :getBoneAxisBindingState polymer.runtime.embody/getBoneAxisBindingState
-             :inferChiralBoneNamePair polymer.runtime.embody/inferChiralBoneNamePair
-             :inferEyeControlFamily polymer.runtime.embody/inferEyeControlFamily
-             :inferEyeControlScope polymer.runtime.embody/inferEyeControlScope
-             :isJointControlAuInfo polymer.runtime.embody/isJointControlAuInfo
-             :isMaxDegreesOnlyAxisBindingUpdate polymer.runtime.embody/isMaxDegreesOnlyAxisBindingUpdate
-             :JOINT_CONTROL_SECTION polymer.runtime.embody/JOINT_CONTROL_SECTION
-             :resolveBoneAxisChannel polymer.runtime.embody/resolveBoneAxisChannel
-             :resolveBoneNameForNodeKey polymer.runtime.embody/resolveBoneNameForNodeKey
-             :resolveContinuumDisplayLabel polymer.runtime.embody/resolveContinuumDisplayLabel
-             :stripConfiguredBoneAffixes polymer.runtime.embody/stripConfiguredBoneAffixes
-             :computeCameraRelativeGazeOffset polymer.runtime.embody/computeCameraRelativeGazeOffset
-             :detectAnnotationLaterality polymer.runtime.embody/detectAnnotationLaterality
-             :fuzzyNameMatch polymer.runtime.embody/fuzzyNameMatch
-             :getDefaultAnnotationLaterality polymer.runtime.embody/getDefaultAnnotationLaterality
-             :getMeshNamesForAUProfile polymer.runtime.embody/getMeshNamesForAUProfile
-             :getModelLocalOrbitAngle polymer.runtime.embody/getModelLocalOrbitAngle
-             :getSemanticHorizontalSign polymer.runtime.embody/getSemanticHorizontalSign
-             :getSemanticHorizontalSignForSide polymer.runtime.embody/getSemanticHorizontalSignForSide
-             :getWorldDirectionForCameraAngle polymer.runtime.embody/getWorldDirectionForCameraAngle
-             :hasLeftRightMorphs polymer.runtime.embody/hasLeftRightMorphs
-             :isMixedAU polymer.runtime.embody/isMixedAU
-             :passesMarkerCameraAngleGate polymer.runtime.embody/passesMarkerCameraAngleGate
-             :resolveBoneNames polymer.runtime.embody/resolveBoneNames
-             :resolveFaceCenter polymer.runtime.embody/resolveFaceCenter
-             :resolveRegionCameraAngle polymer.runtime.embody/resolveRegionCameraAngle
-             :resolveRegionVisibilityCameraAngle polymer.runtime.embody/resolveRegionVisibilityCameraAngle
-             :toWorldDirection polymer.runtime.embody/toWorldDirection
-             :RustAnnotationCameraCore polymer.runtime.embody/RustAnnotationCameraCore
-             :createRustAnnotationCameraCore polymer.runtime.embody/createRustAnnotationCameraCore
-             :CC4_BONES polymer.runtime.embody/CC4_BONES
-             :VISEME_KEYS polymer.runtime.embody/VISEME_KEYS
-             :HAIR_COLOR_PRESETS polymer.runtime.embody/HAIR_COLOR_PRESETS
-             :DEFAULT_HAIR_COLOR_APPEARANCE polymer.runtime.embody/DEFAULT_HAIR_COLOR_APPEARANCE
-             :normalizeHairColorAppearance polymer.runtime.embody/normalizeHairColorAppearance
-             :HUMANOID_SKELETON_TEMPLATES polymer.runtime.embody/HUMANOID_SKELETON_TEMPLATES
-             :JONATHAN_HUMANOID_SKELETON_TEMPLATE polymer.runtime.embody/JONATHAN_HUMANOID_SKELETON_TEMPLATE
-             :getHumanoidSkeletonTemplate polymer.runtime.embody/getHumanoidSkeletonTemplate
-             :getHumanoidSkeletonTemplateBoneNames polymer.runtime.embody/getHumanoidSkeletonTemplateBoneNames
-             :createValidationSkeletonFromHumanoidTemplate polymer.runtime.embody/createValidationSkeletonFromHumanoidTemplate
-             :computeHumanoidSkeletonTemplateRestBounds polymer.runtime.embody/computeHumanoidSkeletonTemplateRestBounds
-             :extractHumanoidSkeletonTemplateFromModel polymer.runtime.embody/extractHumanoidSkeletonTemplateFromModel
-             :createCharacterHost polymer.runtime.embody/createCharacterHost
-             :createRustEmbodyHost polymer.runtime.embody/createRustEmbodyHost
-             :createRustEmbodyHostUnbound polymer.runtime.embody/createRustEmbodyHostUnbound
-             :supportsRustEmbodyPreset polymer.runtime.embody/supportsRustEmbodyPreset
-             :createDefaultCharacterScene polymer.runtime.embody/createDefaultCharacterScene
-             :createDefaultCharacterLighting polymer.runtime.embody/createDefaultCharacterLighting
-             :createShadowPlane polymer.runtime.embody/createShadowPlane
-             :loadCharacterModel polymer.runtime.embody/loadCharacterModel
-             :parseCharacterModel polymer.runtime.embody/parseCharacterModel
-             :applyCharacterModelTransform polymer.runtime.embody/applyCharacterModelTransform
-             :disposeCharacterModel polymer.runtime.embody/disposeCharacterModel
-             :DEFAULT_CHARACTER_LIGHTING_PRESET_ID polymer.runtime.embody/DEFAULT_CHARACTER_LIGHTING_PRESET_ID
-             :DEFAULT_CHARACTER_LIGHTING_PRESET_IDS polymer.runtime.embody/DEFAULT_CHARACTER_LIGHTING_PRESET_IDS
-             :DEFAULT_CHARACTER_LIGHTING_PRESETS polymer.runtime.embody/DEFAULT_CHARACTER_LIGHTING_PRESETS
-             :DEFAULT_CHARACTER_LIGHTING_SETTINGS polymer.runtime.embody/DEFAULT_CHARACTER_LIGHTING_SETTINGS
-             :normalizeDefaultCharacterLightingSettings polymer.runtime.embody/normalizeDefaultCharacterLightingSettings
-             :CHARACTER_SCENE_TYPES polymer.runtime.embody/CHARACTER_SCENE_TYPES
-             :CHARACTER_SCENE_TYPE_IDS polymer.runtime.embody/CHARACTER_SCENE_TYPE_IDS
-             :DEFAULT_CHARACTER_SCENE_TYPE_ID polymer.runtime.embody/DEFAULT_CHARACTER_SCENE_TYPE_ID
-             :initEmbodyCore polymer.runtime.embody-wasm/initEmbodyCore
-             :isEmbodyCoreReady polymer.runtime.embody-wasm/isEmbodyCoreReady
-             :getEmbodyCore polymer.runtime.embody-wasm/getEmbodyCore
-             :coreAbiVersion polymer.runtime.embody-wasm/coreAbiVersion
-             :packMorphFrameDelta polymer.runtime.embody-wasm/packMorphFrameDelta
-             :solveBilateralValues polymer.runtime.embody-wasm/solveBilateralValues
-             :solveMorphBatch polymer.runtime.embody-wasm/solveMorphBatch
-             :solveAxisQuaternion polymer.runtime.embody-wasm/solveAxisQuaternion
-             :analyzeMeshProportions polymer.runtime.embody-wasm/analyzeMeshProportions
-             :solveTemplateSkeletonFit polymer.runtime.embody-wasm/solveTemplateSkeletonFit
-             :composeTemplateFitAdjustment polymer.runtime.embody-wasm/composeTemplateFitAdjustment
-             :composeTemplateSkeletonFitTransform polymer.runtime.embody-wasm/composeTemplateSkeletonFitTransform
-             :defaultHairPhysicsConfigValues polymer.runtime.embody-wasm/defaultHairPhysicsConfigValues
-             :createHairPhysicsSolver polymer.runtime.embody-wasm/createHairPhysicsSolver
-             :createRuntimeCore polymer.runtime.embody-wasm/createRuntimeCore
-             :EMBODY_CORE_ABI_VERSION polymer.runtime.embody-wasm/EMBODY_CORE_ABI_VERSION
-             :PACKED_MORPH_FRAME_DELTA_STRIDE polymer.runtime.embody-wasm/PACKED_MORPH_FRAME_DELTA_STRIDE
-             :HAIR_CONFIG_STRIDE polymer.runtime.embody-wasm/HAIR_CONFIG_STRIDE
-             :HAIR_STATE_STRIDE polymer.runtime.embody-wasm/HAIR_STATE_STRIDE
-             :HAIR_HEAD_STATE_STRIDE polymer.runtime.embody-wasm/HAIR_HEAD_STATE_STRIDE
-             :HAIR_MORPH_OUTPUT_STRIDE polymer.runtime.embody-wasm/HAIR_MORPH_OUTPUT_STRIDE
-             :MESH_PROPORTIONS_STRIDE polymer.runtime.embody-wasm/MESH_PROPORTIONS_STRIDE
-             :TEMPLATE_SKELETON_FIT_SOLUTION_STRIDE polymer.runtime.embody-wasm/TEMPLATE_SKELETON_FIT_SOLUTION_STRIDE
-             :TEMPLATE_SKELETON_FIT_TRANSFORM_STRIDE polymer.runtime.embody-wasm/TEMPLATE_SKELETON_FIT_TRANSFORM_STRIDE}}}}
-
-  :worker
-  {:target :browser
-   :output-dir "dist/worker"
-   :modules {:agency-worker {:init-fn polymer.worker/init}}}
-
-  :test
-  {:target :node-test
-   :output-to "dist/test.cjs"
-   :ns-regexp "polymer\\..*-test$"}}}

package/src/polymer/animation/agency.cljs

@@ -1,84 +0,0 @@
-(ns polymer.animation.agency
-  (:require [polymer.animation.planner :as planner]
-            [polymer.animation.runtime :as runtime]
-            [polymer.animation.scheduler :as scheduler]
-            [polymer.animation.state :as state]
-            [polymer.stream :as stream]))
-
-;; Animation is Polymer's runtime-owning agency. Peer agencies send animation
-;; requests as plain data; this agency plans those requests, schedules ordered
-;; runtime work, and keeps the external animation handle lifecycle private.
-
-(defn debug-flag-enabled? [name]
-  (try
-    (let [search (when (exists? js/window)
-                   (.. js/window -location -search))
-          params (when search (js/URLSearchParams. search))
-          value (when params (.get params name))]
-      (or (= value "1") (= value "true")))
-    (catch :default _ false)))
-
-(defn animation-debug-enabled? []
-  (or (debug-flag-enabled? "polymerVocalDebug")
-      (debug-flag-enabled? "polymerLipSyncDebug")))
-
-(defn debug-log! [label payload]
-  (when (animation-debug-enabled?)
-    (.info js/console (str label " " (.stringify js/JSON (clj->js payload))))))
-
-(defn create-animation-agency [config]
-  (let [runtime (runtime/config->runtime config)
-        input-stream (stream/create-stream)
-        event-stream (stream/create-stream)
-        state-atom (atom state/default-state)
-        disposed? (atom false)
-        emit-input (:emit input-stream)
-        emit-event (:emit event-stream)
-        animation-scheduler (scheduler/create-scheduler
-                             {:runtime runtime
-                              :state-atom state-atom
-                              :emit-event emit-event
-                              :disposed? disposed?
-                              :debug-log! debug-log!})]
-    (letfn [(dispatch! [command]
-              (when-not @disposed?
-                (let [payload (js->clj command :keywordize-keys true)
-                      requested-at (state/now-ms)]
-                  (emit-input {:type "command"
-                               :agency "animation"
-                               :command payload})
-                  ((:enqueue-actions! animation-scheduler)
-                   (planner/plan-command @state-atom payload requested-at)))))]
-      #js {:dispatch dispatch!
-           :snapshot (fn [] (state/visible-state @state-atom))
-           :input (stream/writable-port input-stream dispatch!)
-           :events (stream/readable-port event-stream)
-           :subscribeInput (fn [listener] ((:subscribe input-stream) listener))
-           :subscribeEvents (fn [listener] ((:subscribe event-stream) listener))
-           :subscribe (fn [listener] ((:subscribe event-stream) listener))
-           :subscribeStatus (fn [listener] ((:subscribe event-stream) listener))
-           :scheduleSnippet (fn [snippet options]
-                              (dispatch! #js {:type "scheduleSnippet"
-                                              :sourceAgency "direct"
-                                              :snippet snippet
-                                              :options options}))
-           :removeSnippet (fn [name]
-                            (dispatch! #js {:type "removeSnippet"
-                                            :sourceAgency "direct"
-                                            :name name}))
-           :seekSnippet (fn [name offset-sec]
-                          (dispatch! #js {:type "seekSnippet"
-                                          :sourceAgency "direct"
-                                          :name name
-                                          :offsetSec offset-sec}))
-           :updateSnippet (fn [name params]
-                            (dispatch! #js {:type "updateSnippet"
-                                            :sourceAgency "direct"
-                                            :name name
-                                            :params params}))
-           :dispose (fn []
-                      (when-not @disposed?
-                        (reset! disposed? true)
-                        ((:dispose! animation-scheduler))
-                        ((:dispose input-stream))
-                        ((:dispose event-stream))))})))

package/src/polymer/animation/domain.cljs

@@ -1,110 +0,0 @@
-(ns polymer.animation.domain)
-
-;; Domain functions describe Polymer animation data without touching a runtime.
-;; They answer questions like "is this a typed viseme snippet?" and "which clip
-;; options should a runtime receive?" so the scheduler can stay focused on
-;; ordering and lifecycle.
-
-(defn viseme-snippet-category? [category]
-  (= "visemeSnippet" category))
-
-(defn typed-channels [snippet]
-  (let [channels (:channels snippet)]
-    (when (seq channels)
-      channels)))
-
-(defn typed-channel-target [channel]
-  (:target channel))
-
-(defn typed-viseme-channel? [channel]
-  (= "viseme" (:type (typed-channel-target channel))))
-
-(defn typed-jaw-channel? [channel]
-  (let [target (typed-channel-target channel)]
-    (or (and (= "au" (:type target))
-             (= 26 (:id target)))
-        (and (= "bone" (:type target))
-             (= "JAW" (:id target))))))
-
-(defn typed-viseme-snippet? [snippet]
-  (boolean (some typed-viseme-channel? (typed-channels snippet))))
-
-(defn typed-jaw-snippet? [snippet]
-  (boolean (some typed-jaw-channel? (typed-channels snippet))))
-
-(defn typed-channel-summary [snippet]
-  ;; The summary is diagnostic-only. A transducer is appropriate here because
-  ;; this is a pure map/reduce over channel data with no ordering side effects.
-  (into []
-        (map (fn [channel]
-               (let [keyframes (:keyframes channel)
-                     peak (transduce (map :intensity) max 0 keyframes)]
-                 {:target (:target channel)
-                  :frames (count keyframes)
-                  :firstSec (:time (first keyframes))
-                  :lastSec (:time (last keyframes))
-                  :peak peak})))
-        (or (typed-channels snippet) [])))
-
-(defn explicit-auto-viseme-jaw [snippet]
-  (when (contains? snippet :autoVisemeJaw)
-    (:autoVisemeJaw snippet)))
-
-(defn snippet->clip-options-map
-  ([snippet options] (snippet->clip-options-map snippet options false))
-  ([snippet options legacy-fallback?]
-   ;; Typed channels carry their own namespace, so the normal Embody path does
-   ;; not need snippetCategory. The legacy curve fallback still needs
-   ;; "visemeSnippet" because older runtimes otherwise treat numeric lip ids as
-   ;; facial AU ids.
-   (let [category (:snippetCategory snippet)
-         typed-viseme? (typed-viseme-snippet? snippet)
-         viseme-category? (or (viseme-snippet-category? category) typed-viseme?)
-         curves (or (:curves snippet) {})
-         has-jaw-curve? (or (contains? curves "26") (typed-jaw-snippet? snippet))
-         category-for-options (or category
-                                  (when (and legacy-fallback? typed-viseme?)
-                                    "visemeSnippet"))
-         loop? (boolean (:loop snippet))
-         loop-mode (or (:mixerLoopMode snippet) (if loop? "repeat" "once"))
-         playback-rate (or (:snippetPlaybackRate snippet) 1)
-         reverse? (boolean (:mixerReverse snippet))
-         signed-rate (if reverse? (- playback-rate) playback-rate)
-         intensity-scale (or (:snippetIntensityScale snippet) 1)
-         auto-viseme-jaw (if (contains? snippet :autoVisemeJaw)
-                           (explicit-auto-viseme-jaw snippet)
-                           (when (and viseme-category? has-jaw-curve?) false))]
-     (cond->
-      (merge
-       {:loop loop?
-        :loopMode loop-mode
-        :repeatCount (:mixerRepeatCount snippet)
-        :reverse reverse?
-        :priority (:snippetPriority snippet)
-        :playbackRate signed-rate
-        :rate signed-rate
-        :weight intensity-scale
-        :mixerWeight (:mixerWeight snippet)
-        :intensityScale intensity-scale
-        :balance (or (:snippetBalance snippet) 0)
-        :balanceMap (or (:snippetBalanceMap snippet) {})
-        :jawScale (or (:snippetJawScale snippet) 1)
-        :source "snippet"}
-       options)
-       category-for-options (assoc :snippetCategory category-for-options)
-       (some? auto-viseme-jaw) (assoc :autoVisemeJaw auto-viseme-jaw)))))
-
-(defn snippet->clip-options [snippet options]
-  (clj->js (snippet->clip-options-map snippet options false)))
-
-(defn snippet->legacy-clip-options [snippet options]
-  (clj->js (snippet->clip-options-map snippet options true)))
-
-(defn schedule-log-payload [snippet options source-agency]
-  {:name (:name snippet)
-   :sourceAgency source-agency
-   :typed (boolean (typed-channels snippet))
-   :channelCount (count (typed-channels snippet))
-   :channels (typed-channel-summary snippet)
-   :curveKeys (vec (keys (or (:curves snippet) {})))
-   :options options})

package/src/polymer/animation/planner.cljs

@@ -1,88 +0,0 @@
-(ns polymer.animation.planner
-  (:require [polymer.animation.state :as state]))
-
-;; The planner turns input stream commands into scheduler actions. It does not
-;; call runtimes, mutate handles, or emit events. Keeping those decisions as data
-;; makes Animation easier to test and lets future agencies negotiate by sending
-;; requests without knowing this agency's internals.
-
-(defn source-agency [payload]
-  (or (:sourceAgency payload) "unknown"))
-
-(defn error-action [message]
-  {:op :error
-   :message message})
-
-(defn schedule-action [payload requested-at]
-  (let [source (source-agency payload)
-        fallback-name (str "polymer:animation:" requested-at)
-        snippet (assoc (:snippet payload)
-                       :name (state/snippet-name (:snippet payload) fallback-name))
-        options (assoc (or (:options payload) {}) :sourceAgency source)]
-    {:op :schedule
-     :sourceAgency source
-     :requestedAt requested-at
-     :snippet snippet
-     :options options}))
-
-(defn remove-action [payload]
-  {:op :remove
-   :sourceAgency (source-agency payload)
-   :name (:name payload)
-   :reason "requested"})
-
-(defn seek-action [payload]
-  {:op :seek
-   :sourceAgency (source-agency payload)
-   :name (:name payload)
-   :offsetSec (max 0 (:offsetSec payload))})
-
-(defn update-action [payload]
-  {:op :update
-   :sourceAgency (source-agency payload)
-   :name (:name payload)
-   :params (:params payload)})
-
-(defn clear-action [current-state payload]
-  {:op :clear
-   :sourceAgency (source-agency payload)
-   :names (vec (keys (:scheduled current-state)))})
-
-(defn plan-command [current-state payload requested-at]
-  (case (:type payload)
-    "scheduleSnippet"
-    (if (:snippet payload)
-      [(schedule-action payload requested-at)]
-      [(error-action "Animation scheduleSnippet command requires a snippet")])
-
-    "removeSnippet"
-    (if-let [_name (:name payload)]
-      [(remove-action payload)]
-      [(error-action "Animation removeSnippet command requires a name")])
-
-    "seekSnippet"
-    (cond
-      (not (:name payload))
-      [(error-action "Animation seekSnippet command requires a name")]
-
-      (not (number? (:offsetSec payload)))
-      [(error-action "Animation seekSnippet command requires offsetSec")]
-
-      :else
-      [(seek-action payload)])
-
-    "updateSnippet"
-    (cond
-      (not (:name payload))
-      [(error-action "Animation updateSnippet command requires a name")]
-
-      (not (map? (:params payload)))
-      [(error-action "Animation updateSnippet command requires params")]
-
-      :else
-      [(update-action payload)])
-
-    "clear"
-    [(clear-action current-state payload)]
-
-    [(error-action (str "Unknown Animation command: " (:type payload)))]))

package/src/polymer/animation/runtime.cljs

@@ -1,137 +0,0 @@
-(ns polymer.animation.runtime
-  (:require [polymer.animation.domain :as domain]))
-
-;; Runtime functions are Animation's side-effect boundary. Everything here is
-;; allowed to touch JavaScript handles or an injected animation engine; planner,
-;; scheduler decision logic, and domain transforms are not.
-
-(defn js-callable? [value]
-  (= "function" (goog/typeOf value)))
-
-(defn js-method [target name]
-  (when target
-    (let [method (aget target name)]
-      (when (js-callable? method)
-        method))))
-
-(defn call-js [target name & args]
-  (when-let [method (js-method target name)]
-    (.apply method target (to-array args))))
-
-(defn play-built-handle! [handle]
-  (when-let [play (js-method handle "play")]
-    (.call play handle))
-  handle)
-
-(defn engine->runtime [engine]
-  ;; Some callers still pass a larger engine object. Animation adapts it once
-  ;; into the smaller runtime API it needs, keeping that dependency at this
-  ;; boundary instead of leaking engine calls into other agencies.
-  (let [runtime #js {:buildClip (fn [clip-name curves options]
-                                  (call-js engine "buildClip" clip-name curves options))
-                     :playSnippet (fn [clip-name curves options]
-                                    (or
-                                     (call-js engine "playSnippet" #js {:name clip-name :curves curves} options)
-                                     (let [handle (call-js engine "buildClip" clip-name curves options)]
-                                       (play-built-handle! handle))))
-                     :updateClipParams (fn [clip-name params]
-                                         (call-js engine "updateClipParams" clip-name params))
-                     :setSnippetTime (fn [clip-name offset-sec]
-                                       (or (call-js engine "setSnippetTime" clip-name offset-sec)
-                                           (call-js engine "seekSnippet" clip-name offset-sec)
-                                           (call-js engine "seek" clip-name offset-sec)))
-                     :cleanupSnippet (fn [clip-name]
-                                       (or (call-js engine "cleanupSnippet" clip-name)
-                                           (call-js engine "stopAnimation" clip-name)))
-                     :getAnimationState (fn [clip-name]
-                                          (call-js engine "getAnimationState" clip-name))}]
-    (when (js-method engine "buildTypedClip")
-      (aset runtime "buildTypedClip"
-            (fn [clip-name channels options]
-              (call-js engine "buildTypedClip" clip-name channels options))))
-    (when (or (js-method engine "playTypedSnippet")
-              (js-method engine "buildTypedClip"))
-      (aset runtime "playTypedSnippet"
-            (fn [snippet options]
-              (let [clip-name (aget snippet "name")
-                    channels (aget snippet "channels")]
-                (or
-                 (call-js engine "playTypedSnippet" snippet options)
-                 (play-built-handle!
-                  (call-js engine "buildTypedClip" clip-name channels options)))))))
-    runtime))
-
-(defn config->runtime [config]
-  (let [config (or config #js {})
-        runtime (aget config "runtime")
-        engine (aget config "engine")]
-    (cond
-      runtime runtime
-      engine (engine->runtime engine)
-      :else nil)))
-
-(defn typed-snippet-js [name channels]
-  (clj->js {:name name :channels channels}))
-
-(defn play-typed-snippet! [runtime snippet options]
-  (let [name (:name snippet)
-        channels (domain/typed-channels snippet)
-        channels-js (clj->js channels)
-        clip-options (domain/snippet->clip-options snippet options)
-        snippet-js (typed-snippet-js name channels)]
-    (if (false? (:autoPlay options))
-      (or (call-js runtime "buildTypedClip" name channels-js clip-options)
-          (call-js runtime "playTypedSnippet" snippet-js clip-options))
-      (or (call-js runtime "playTypedSnippet" snippet-js clip-options)
-          (play-built-handle!
-           (call-js runtime "buildTypedClip" name channels-js clip-options))))))
-
-(defn play-legacy-snippet! [runtime snippet options]
-  (when-let [curves (:curves snippet)]
-    (let [name (:name snippet)
-          curves-js (clj->js curves)
-          clip-options (domain/snippet->legacy-clip-options snippet options)]
-      (if (false? (:autoPlay options))
-        (or (call-js runtime "buildClip" name curves-js clip-options)
-            (call-js runtime "playSnippet" name curves-js clip-options))
-        (call-js runtime "playSnippet" name curves-js clip-options)))))
-
-(defn play-snippet! [runtime snippet options]
-  ;; Typed snippets are Polymer's canonical animation contract. Legacy curve
-  ;; playback is only a compatibility path for runtimes that have not adopted
-  ;; typed channels yet.
-  (if (domain/typed-channels snippet)
-    (if (or (js-method runtime "playTypedSnippet")
-            (js-method runtime "buildTypedClip"))
-      (play-typed-snippet! runtime snippet options)
-      (when (seq (:curves snippet))
-        (play-legacy-snippet! runtime snippet options)))
-    (play-legacy-snippet! runtime snippet options)))
-
-(defn cleanup-snippet! [runtime handle name]
-  (when-let [stop (js-method handle "stop")]
-    (.call stop handle))
-  (when runtime
-    (call-js runtime "cleanupSnippet" name)))
-
-(defn seek-snippet! [runtime handle name offset-sec]
-  (let [normalized-offset (max 0 (or offset-sec 0))]
-    (or (when handle
-          (or (call-js handle "setTime" normalized-offset)
-              (call-js handle "seek" normalized-offset)))
-        (when runtime
-          (or (call-js runtime "setSnippetTime" name normalized-offset)
-              (call-js runtime "seekSnippet" name normalized-offset)
-              (call-js runtime "seek" name normalized-offset)
-              (call-js runtime "updateClipParams"
-                       name
-                       (clj->js {:time normalized-offset
-                                 :offsetSec normalized-offset})))))))
-
-(defn update-snippet! [runtime handle name params]
-  (let [params-js (clj->js params)]
-    (or (when handle
-          (or (call-js handle "updateParams" params-js)
-              (call-js handle "setParams" params-js)))
-        (when runtime
-          (call-js runtime "updateClipParams" name params-js)))))