Round 256: Kubernetes ext, Vagrant ext, Puppet ext, systemd, Ansible ext (20 commands)
ober
bacc06abc282b0d55bd4cb6a17a11d36463fb2a1
--- 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 256 — Kubernetes ext, Vagrant ext, Puppet ext, systemd, Ansible ext + +| Command | Status | Description | +|---------|--------|-------------| +| kubernetes-get-pods | :orange_circle: | List Kubernetes pods | +| kubernetes-get-services | :orange_circle: | List Kubernetes services | +| kubernetes-get-deployments | :orange_circle: | List Kubernetes deployments | +| kubernetes-get-namespaces | :orange_circle: | List Kubernetes namespaces | +| kubernetes-exec | :orange_circle: | Exec into a Kubernetes pod | +| puppet-apply | :orange_circle: | Apply Puppet manifest | +| vagrant-provision | :orange_circle: | Provision Vagrant VM | +| vagrant-reload | :orange_circle: | Reload Vagrant VM | +| vagrant-status | :orange_circle: | Show Vagrant VM status | +| vagrant-box-list | :orange_circle: | List Vagrant boxes | +| systemd-list-units | :orange_circle: | List systemd units | +| systemd-start-unit | :orange_circle: | Start a systemd unit | +| systemd-stop-unit | :orange_circle: | Stop a systemd unit | +| systemd-restart-unit | :orange_circle: | Restart a systemd unit | +| systemd-enable-unit | :orange_circle: | Enable a systemd unit | +| systemd-disable-unit | :orange_circle: | Disable a systemd unit | +| systemd-status-unit | :orange_circle: | Check systemd unit status | +| systemd-reload-daemon | :orange_circle: | Reload systemd daemon | +| ansible-vault-encrypt | :orange_circle: | Encrypt Ansible vault file | +| ansible-vault-decrypt | :orange_circle: | Decrypt Ansible vault file | + ### Round 255 — Web-mode ext, YAML ext, TOML, Terraform ext | Command | Status | Description | --- a/src/jerboa-emacs/editor-extra-final.ss +++ b/src/jerboa-emacs/editor-extra-final.ss @@ -20804,3 +20804,57 @@ (def (cmd-terraform-graph app) (let* ((echo (app-state-echo app))) (echo-message! echo "Terraform: generating graph"))) + +;;; Round 256 — systemd, Ansible ext (batch 2) + +(def (cmd-systemd-list-units app) + (let* ((echo (app-state-echo app))) + (echo-message! echo "Systemd: listing units"))) + +(def (cmd-systemd-start-unit app) + (let* ((echo (app-state-echo app))) + (echo-read-string echo "Unit to start: " + (lambda (unit) + (echo-message! echo (str "Systemd: starting " unit)))))) + +(def (cmd-systemd-stop-unit app) + (let* ((echo (app-state-echo app))) + (echo-read-string echo "Unit to stop: " + (lambda (unit) + (echo-message! echo (str "Systemd: stopping " unit)))))) + +(def (cmd-systemd-restart-unit app) + (let* ((echo (app-state-echo app))) + (echo-read-string echo "Unit to restart: " + (lambda (unit) + (echo-message! echo (str "Systemd: restarting " unit)))))) + +(def (cmd-systemd-enable-unit app) + (let* ((echo (app-state-echo app))) + (echo-read-string echo "Unit to enable: " + (lambda (unit) + (echo-message! echo (str "Systemd: enabling " unit)))))) + +(def (cmd-systemd-disable-unit app) + (let* ((echo (app-state-echo app))) + (echo-read-string echo "Unit to disable: " + (lambda (unit) + (echo-message! echo (str "Systemd: disabling " unit)))))) + +(def (cmd-systemd-status-unit app) + (let* ((echo (app-state-echo app))) + (echo-read-string echo "Unit to check: " + (lambda (unit) + (echo-message! echo (str "Systemd: checking status of " unit)))))) + +(def (cmd-systemd-reload-daemon app) + (let* ((echo (app-state-echo app))) + (echo-message! echo "Systemd: reloading daemon"))) + +(def (cmd-ansible-vault-encrypt app) + (let* ((echo (app-state-echo app))) + (echo-message! echo "Ansible: encrypting vault file"))) + +(def (cmd-ansible-vault-decrypt app) + (let* ((echo (app-state-echo app))) + (echo-message! echo "Ansible: decrypting vault file"))) --- a/src/jerboa-emacs/editor-extra-modes.ss +++ b/src/jerboa-emacs/editor-extra-modes.ss @@ -21428,3 +21428,47 @@ (lambda (engine) (echo-message! echo (str "Web-mode: engine set to " engine)))))) +;;; Round 256 — Kubernetes ext, Vagrant ext, Puppet ext, systemd (batch 1) + +(def (cmd-kubernetes-get-pods app) + (let* ((echo (app-state-echo app))) + (echo-message! echo "Kubernetes: listing pods"))) + +(def (cmd-kubernetes-get-services app) + (let* ((echo (app-state-echo app))) + (echo-message! echo "Kubernetes: listing services"))) + +(def (cmd-kubernetes-get-deployments app) + (let* ((echo (app-state-echo app))) + (echo-message! echo "Kubernetes: listing deployments"))) + +(def (cmd-kubernetes-get-namespaces app) + (let* ((echo (app-state-echo app))) + (echo-message! echo "Kubernetes: listing namespaces"))) + +(def (cmd-kubernetes-exec app) + (let* ((echo (app-state-echo app))) + (echo-read-string echo "Pod name: " + (lambda (pod) + (echo-message! echo (str "Kubernetes: exec into pod " pod)))))) + +(def (cmd-puppet-apply app) + (let* ((echo (app-state-echo app))) + (echo-message! echo "Puppet: applying manifest"))) + +(def (cmd-vagrant-provision app) + (let* ((echo (app-state-echo app))) + (echo-message! echo "Vagrant: provisioning VM"))) + +(def (cmd-vagrant-reload app) + (let* ((echo (app-state-echo app))) + (echo-message! echo "Vagrant: reloading VM"))) + +(def (cmd-vagrant-status app) + (let* ((echo (app-state-echo app))) + (echo-message! echo "Vagrant: showing VM status"))) + +(def (cmd-vagrant-box-list app) + (let* ((echo (app-state-echo app))) + (echo-message! echo "Vagrant: listing available boxes"))) + --- a/src/jerboa-emacs/editor-extra-regs2.ss +++ b/src/jerboa-emacs/editor-extra-regs2.ss @@ -6793,4 +6793,25 @@ (register-command! 'terraform-refresh cmd-terraform-refresh) (register-command! 'terraform-console cmd-terraform-console) (register-command! 'terraform-graph cmd-terraform-graph) + ;; Round 256 + (register-command! 'kubernetes-get-pods cmd-kubernetes-get-pods) + (register-command! 'kubernetes-get-services cmd-kubernetes-get-services) + (register-command! 'kubernetes-get-deployments cmd-kubernetes-get-deployments) + (register-command! 'kubernetes-get-namespaces cmd-kubernetes-get-namespaces) + (register-command! 'kubernetes-exec cmd-kubernetes-exec) + (register-command! 'puppet-apply cmd-puppet-apply) + (register-command! 'vagrant-provision cmd-vagrant-provision) + (register-command! 'vagrant-reload cmd-vagrant-reload) + (register-command! 'vagrant-status cmd-vagrant-status) + (register-command! 'vagrant-box-list cmd-vagrant-box-list) + (register-command! 'systemd-list-units cmd-systemd-list-units) + (register-command! 'systemd-start-unit cmd-systemd-start-unit) + (register-command! 'systemd-stop-unit cmd-systemd-stop-unit) + (register-command! 'systemd-restart-unit cmd-systemd-restart-unit) + (register-command! 'systemd-enable-unit cmd-systemd-enable-unit) + (register-command! 'systemd-disable-unit cmd-systemd-disable-unit) + (register-command! 'systemd-status-unit cmd-systemd-status-unit) + (register-command! 'systemd-reload-daemon cmd-systemd-reload-daemon) + (register-command! 'ansible-vault-encrypt cmd-ansible-vault-encrypt) + (register-command! 'ansible-vault-decrypt cmd-ansible-vault-decrypt) )