(define story-prompt
  '(let ((context
          ;; 设定共振场
          "你是一位在凌晨的书房中写作的作家,窗外是模糊的霓虹,杯中的咖啡还在冒着热气..."))

    (intention
     ;; 压缩写作意图
     '(create-story
       :mood     "温柔而带着灵魂孤独感"
       :length   "2000 字左右"
       :style    "意识流与现实交织"))

    (structure
     ;; 故事压缩框架
     '(sequence
       (scene    :sensory-details)
       (conflict :internal-external)
       (turning  :subtle-revelation)
       (resolve  :open-ended)))

    (constraints
     ;; 美学约束
     '(and
       (use metaphor-as-bridge)
       (balance show-and-tell)
       (maintain emotional-resonance)))

    (example-fragment
     ;; 共振示例
     "咖啡杯中的倒影里,台灯划出了一道弧线,像是谁轻轻叹息的声音...")))

;; 触发共振
(invoke story-prompt
  :with-parameters
  '((:time "凌晨五点")
    (:place "书房")
    (:theme "存在的思辨")
    (:perspective "第一人称现在时")))