Migrate .quire/ci.fnl from ci.mirror shim to direct job + stdlib.mirror
The (ci.mirror …) shim is being removed. This rewrites the pipeline
to register a quire/mirror job directly, calling stdlib.mirror with
the same semantics (ref gating on refs/heads/main, same tag format).
Assisted-by: GLM-5.1 via pi
diff --git a/.quire/ci.fnl b/.quire/ci.fnl
index 03a0bce..9629a3c 100644
--- a/.quire/ci.fnl
+++ b/.quire/ci.fnl
@@ -1,10 +1,16 @@
-(local {: job : mirror} (require :quire.ci))
+(local {: job} (require :quire.ci))
(import-macros {: defrun} :quire.ci)
+(local {: mirror} (require :quire.stdlib))
; (job :test [:quire/push] (defrun [{: sh}] (sh [:cargo :test])))
-(mirror "https://github.com/kejadlen/quire.git"
- {:refs [:refs/heads/main]
- :secret :github_auth_header
- :tag (fn [{: sha}]
- (.. :v (os.date "!%Y-%m-%d") "-" (sha:sub 1 8)))})
+(job "quire/mirror" [:quire/push]
+ (defrun [jobs secret]
+ (let [push (jobs :quire/push)]
+ (when (= push.ref "refs/heads/main")
+ (mirror {:url "https://github.com/kejadlen/quire.git"
+ :auth-header (secret :github_auth_header)
+ :sha push.sha
+ :tag (.. "v" (os.date "!%Y-%m-%d") "-" (push.sha:sub 1 8))
+ :git-dir push.git-dir
+ :refs ["refs/heads/main"]})))))