(:macro seq ())

(:macro c-not ( c )
        )
; works because this has a higher constraints score:
(:macro c-not ( (c (:c-eq () _)) )
        ())

(:macro seq-exp (hd)
        (':ot (':str-cat "- " (':t2ot-elt hd))))
(:macro seq-exp (hd .. tl)
        (':seq-exp hd) (':seq-exp tl))

(:macro seq (hd)
        (':t (':seq-exp hd)))
(:macro seq (hd .. tl)
        (':t (':seq-exp hd tl)))

(:macro c-paren-eval ())
(:macro c-paren-eval (x)
        (':c-atm x)
        (':c-not (':c-colon-id x)))

(:macro @ ( (k(:c-paren-eval _)) )
        (':t (':str-cat (':t2ot-elt k) ":")))

(:macro @ ( (k(:c-paren-eval _)) v )
        (':t k ": " v))

(:macro @ ( (k(:c-paren-eval _)) (v(:c-atm _)) )
        (':t (':str-cat (':str-cat (':atm-to-str k) ": ") (':atm-to-str v) )))

(:macro @ ( (k(:c-paren-eval _)) v .. other)
        (k v)
        other)

(:macro t2ot-elt ( hd )
        (':atm-to-str hd))

(:macro t2ot-elt ( hd .. tl )
        (':tree
         (':t2ot-elt hd)
         (':t2ot-elt tl)))

(:macro t () (':ot))
(:macro t ( .. tl )
        (':ot
          (':t2ot-elt tl)))

(:macro ot ( x )
        (':yot (':indent x)))

(:macro indent ( (x(:c-str _)) )
        (':str-cat "  " x))

(:macro indent ( (hd(:c-atm _)) .. tl )
        (':indent hd)
        (':indent tl))

(:macro indent-each ( hd .. tl )
        (':indent hd)
        (':indent tl))

(:macro rm-first (x .. tl)
        tl)

(:macro indent ( (x(:c-li0-eq _ :tree)) )
        (':tree (':indent-each (':rm-first (':unpack x)))))

(name "Complex CI/CD Pipeline")

(on
  (push
    (branches
      (:seq "main" "release/*")))
  (pull_requests
    (types
      (:seq opened synchronize reopened)))
  (workflow_dispatch))

(env
  (NODE_VERSION 20)
  (PYTHON_VERSION "3.11"))