Round 351: ArgoCD ext, FluxCD ext, Tekton ext, Spinnaker ext, Jenkins ext (20 commands)
ober
2dd2b0381689e0448a9d17b01e8d11ffa05d09ff
--- a/docs/jemacs-vs-emacs.md +++ b/docs/jemacs-vs-emacs.md @@ -4583,6 +4583,31 @@ No remaining Tier 1 gaps. All core editing, completion, and navigation features | ebib-import-file | :orange_circle: | Import file into Ebib | | ebib-push-citation | :orange_circle: | Push Ebib citation to buffer | +### Round 351 — ArgoCD ext, FluxCD ext, Tekton ext, Spinnaker ext, Jenkins ext + +| Feature | Status | Notes | +|---|---|---| +| argocd-app-list | :orange_circle: | ArgoCD: list applications | +| argocd-app-sync | :orange_circle: | ArgoCD: sync application | +| argocd-app-get | :orange_circle: | ArgoCD: show application | +| argocd-repo-list | :orange_circle: | ArgoCD: list repositories | +| fluxcd-sources | :orange_circle: | FluxCD: list sources | +| fluxcd-kustomizations | :orange_circle: | FluxCD: list kustomizations | +| fluxcd-helmreleases | :orange_circle: | FluxCD: list helm releases | +| fluxcd-reconcile | :orange_circle: | FluxCD: reconcile resource | +| tekton-pipelines | :orange_circle: | Tekton: list pipelines | +| tekton-tasks | :orange_circle: | Tekton: list tasks | +| tekton-runs | :orange_circle: | Tekton: list pipeline runs | +| tekton-logs | :orange_circle: | Tekton: show run logs | +| spinnaker-apps | :orange_circle: | Spinnaker: list applications | +| spinnaker-pipelines | :orange_circle: | Spinnaker: list pipelines | +| spinnaker-executions | :orange_circle: | Spinnaker: list executions | +| spinnaker-deploy | :orange_circle: | Spinnaker: deploy pipeline | +| jenkins-jobs | :orange_circle: | Jenkins: list jobs | +| jenkins-build | :orange_circle: | Jenkins: build a job | +| jenkins-console | :orange_circle: | Jenkins: show console output | +| jenkins-queue | :orange_circle: | Jenkins: show build queue | + ### Round 350 — Istio ext, Linkerd ext, Cilium ext, Calico ext, Flannel ext | Feature | Status | Notes | --- a/src/jerboa-emacs/editor-extra-final.ss +++ b/src/jerboa-emacs/editor-extra-final.ss @@ -25557,3 +25557,55 @@ (def (cmd-flannel-routes app) (let* ((echo (app-state-echo app))) (echo-message! echo "Flannel: showing routes"))) + +;;; Round 351 — Tekton ext, Spinnaker ext, Jenkins ext (batch 2) + +(def (cmd-tekton-runs app) + (let* ((echo (app-state-echo app))) + (echo-message! echo "Tekton: listing pipeline runs"))) + +(def (cmd-tekton-logs app) + (let* ((echo (app-state-echo app))) + (echo-read-string echo "Tekton run name: " + (lambda (name) + (echo-message! echo (str "Tekton: showing logs for " name)))))) + +(def (cmd-spinnaker-apps app) + (let* ((echo (app-state-echo app))) + (echo-message! echo "Spinnaker: listing applications"))) + +(def (cmd-spinnaker-pipelines app) + (let* ((echo (app-state-echo app))) + (echo-read-string echo "Spinnaker app name: " + (lambda (name) + (echo-message! echo (str "Spinnaker: listing pipelines for " name)))))) + +(def (cmd-spinnaker-executions app) + (let* ((echo (app-state-echo app))) + (echo-message! echo "Spinnaker: listing pipeline executions"))) + +(def (cmd-spinnaker-deploy app) + (let* ((echo (app-state-echo app))) + (echo-read-string echo "Spinnaker deploy pipeline: " + (lambda (pipe) + (echo-message! echo (str "Spinnaker: deploying " pipe)))))) + +(def (cmd-jenkins-jobs app) + (let* ((echo (app-state-echo app))) + (echo-message! echo "Jenkins: listing jobs"))) + +(def (cmd-jenkins-build app) + (let* ((echo (app-state-echo app))) + (echo-read-string echo "Jenkins build job: " + (lambda (job) + (echo-message! echo (str "Jenkins: building " job)))))) + +(def (cmd-jenkins-console app) + (let* ((echo (app-state-echo app))) + (echo-read-string echo "Jenkins console job: " + (lambda (job) + (echo-message! echo (str "Jenkins: showing console for " job)))))) + +(def (cmd-jenkins-queue app) + (let* ((echo (app-state-echo app))) + (echo-message! echo "Jenkins: showing build queue"))) --- a/src/jerboa-emacs/editor-extra-modes.ss +++ b/src/jerboa-emacs/editor-extra-modes.ss @@ -26276,3 +26276,51 @@ (def (cmd-cilium-endpoint app) (let* ((echo (app-state-echo app))) (echo-message! echo "Cilium: listing endpoints"))) + +;;; Round 351 — ArgoCD ext, FluxCD ext, Tekton ext, Spinnaker ext, Jenkins ext (batch 1) + +(def (cmd-argocd-app-list app) + (let* ((echo (app-state-echo app))) + (echo-message! echo "ArgoCD: listing applications"))) + +(def (cmd-argocd-app-sync app) + (let* ((echo (app-state-echo app))) + (echo-read-string echo "ArgoCD sync app: " + (lambda (name) + (echo-message! echo (str "ArgoCD: syncing " name)))))) + +(def (cmd-argocd-app-get app) + (let* ((echo (app-state-echo app))) + (echo-read-string echo "ArgoCD app name: " + (lambda (name) + (echo-message! echo (str "ArgoCD: showing app " name)))))) + +(def (cmd-argocd-repo-list app) + (let* ((echo (app-state-echo app))) + (echo-message! echo "ArgoCD: listing repositories"))) + +(def (cmd-fluxcd-sources app) + (let* ((echo (app-state-echo app))) + (echo-message! echo "FluxCD: listing sources"))) + +(def (cmd-fluxcd-kustomizations app) + (let* ((echo (app-state-echo app))) + (echo-message! echo "FluxCD: listing kustomizations"))) + +(def (cmd-fluxcd-helmreleases app) + (let* ((echo (app-state-echo app))) + (echo-message! echo "FluxCD: listing helm releases"))) + +(def (cmd-fluxcd-reconcile app) + (let* ((echo (app-state-echo app))) + (echo-read-string echo "FluxCD reconcile resource: " + (lambda (res) + (echo-message! echo (str "FluxCD: reconciling " res)))))) + +(def (cmd-tekton-pipelines app) + (let* ((echo (app-state-echo app))) + (echo-message! echo "Tekton: listing pipelines"))) + +(def (cmd-tekton-tasks app) + (let* ((echo (app-state-echo app))) + (echo-message! echo "Tekton: listing tasks"))) --- a/src/jerboa-emacs/editor-extra-regs2.ss +++ b/src/jerboa-emacs/editor-extra-regs2.ss @@ -8804,4 +8804,26 @@ (register-command! 'flannel-subnet cmd-flannel-subnet) (register-command! 'flannel-config cmd-flannel-config) (register-command! 'flannel-routes cmd-flannel-routes) + + ;; Round 351 — ArgoCD ext, FluxCD ext, Tekton ext, Spinnaker ext, Jenkins ext + (register-command! 'argocd-app-list cmd-argocd-app-list) + (register-command! 'argocd-app-sync cmd-argocd-app-sync) + (register-command! 'argocd-app-get cmd-argocd-app-get) + (register-command! 'argocd-repo-list cmd-argocd-repo-list) + (register-command! 'fluxcd-sources cmd-fluxcd-sources) + (register-command! 'fluxcd-kustomizations cmd-fluxcd-kustomizations) + (register-command! 'fluxcd-helmreleases cmd-fluxcd-helmreleases) + (register-command! 'fluxcd-reconcile cmd-fluxcd-reconcile) + (register-command! 'tekton-pipelines cmd-tekton-pipelines) + (register-command! 'tekton-tasks cmd-tekton-tasks) + (register-command! 'tekton-runs cmd-tekton-runs) + (register-command! 'tekton-logs cmd-tekton-logs) + (register-command! 'spinnaker-apps cmd-spinnaker-apps) + (register-command! 'spinnaker-pipelines cmd-spinnaker-pipelines) + (register-command! 'spinnaker-executions cmd-spinnaker-executions) + (register-command! 'spinnaker-deploy cmd-spinnaker-deploy) + (register-command! 'jenkins-jobs cmd-jenkins-jobs) + (register-command! 'jenkins-build cmd-jenkins-build) + (register-command! 'jenkins-console cmd-jenkins-console) + (register-command! 'jenkins-queue cmd-jenkins-queue) )