Round 216: CIDER ext (20 commands)
ober
244e9ba1de33401dfbf23b22825a6c68faf41e51
--- 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 216 — CIDER ext + +| Command | Status | Description | +|---------|--------|-------------| +| cider-connect-clj | :orange_circle: | Connect to CLJ nREPL | +| cider-connect-cljs | :orange_circle: | Connect to CLJS nREPL | +| cider-jack-in-clj | :orange_circle: | Jack in CLJ REPL | +| cider-jack-in-cljs | :orange_circle: | Jack in CLJS REPL | +| cider-eval-last-sexp-to-repl | :orange_circle: | Eval last sexp to REPL | +| cider-eval-region | :orange_circle: | Eval region | +| cider-eval-ns-form | :orange_circle: | Eval namespace form | +| cider-load-buffer | :orange_circle: | Load current buffer | +| cider-load-file | :orange_circle: | Load file | +| cider-switch-to-repl-buffer | :orange_circle: | Switch to REPL buffer | +| cider-javadoc | :orange_circle: | Show Javadoc | +| cider-test-run-ns-tests | :orange_circle: | Run namespace tests | +| cider-test-run-project-tests | :orange_circle: | Run project tests | +| cider-inspect-last-result | :orange_circle: | Inspect last result | +| cider-macroexpand-1 | :orange_circle: | Macroexpand-1 | +| cider-macroexpand-all | :orange_circle: | Macroexpand all | +| cider-ns-reload | :orange_circle: | Reload namespace | +| cider-ns-reload-all | :orange_circle: | Reload all namespaces | +| cider-repl-clear-buffer | :orange_circle: | Clear REPL buffer | +| cider-format-buffer | :orange_circle: | Format buffer | + ### Round 215 — Docker ext | Command | Status | Description | --- a/src/jerboa-emacs/editor-extra-final.ss +++ b/src/jerboa-emacs/editor-extra-final.ss @@ -18952,3 +18952,45 @@ (echo-read-string echo "Service command: " (lambda (cmd) (echo-message! echo (str "Docker Compose: exec " cmd)))))) + +;;; Round 216 — CIDER ext (batch 2) + +(def (cmd-cider-javadoc app) + (let* ((echo (app-state-echo app))) + (echo-message! echo "CIDER: showing Javadoc"))) + +(def (cmd-cider-test-run-ns-tests app) + (let* ((echo (app-state-echo app))) + (echo-message! echo "CIDER: running namespace tests"))) + +(def (cmd-cider-test-run-project-tests app) + (let* ((echo (app-state-echo app))) + (echo-message! echo "CIDER: running project tests"))) + +(def (cmd-cider-inspect-last-result app) + (let* ((echo (app-state-echo app))) + (echo-message! echo "CIDER: inspecting last result"))) + +(def (cmd-cider-macroexpand-1 app) + (let* ((echo (app-state-echo app))) + (echo-message! echo "CIDER: macroexpand-1"))) + +(def (cmd-cider-macroexpand-all app) + (let* ((echo (app-state-echo app))) + (echo-message! echo "CIDER: macroexpand-all"))) + +(def (cmd-cider-ns-reload app) + (let* ((echo (app-state-echo app))) + (echo-message! echo "CIDER: reloaded namespace"))) + +(def (cmd-cider-ns-reload-all app) + (let* ((echo (app-state-echo app))) + (echo-message! echo "CIDER: reloaded all namespaces"))) + +(def (cmd-cider-repl-clear-buffer app) + (let* ((echo (app-state-echo app))) + (echo-message! echo "CIDER: cleared REPL buffer"))) + +(def (cmd-cider-format-buffer app) + (let* ((echo (app-state-echo app))) + (echo-message! echo "CIDER: formatted buffer"))) --- a/src/jerboa-emacs/editor-extra-modes.ss +++ b/src/jerboa-emacs/editor-extra-modes.ss @@ -19569,3 +19569,49 @@ (def (cmd-docker-image-rm app) (let* ((echo (app-state-echo app))) (echo-message! echo "Docker: removed image"))) + +;;; Round 216 — CIDER ext (batch 1) + +(def (cmd-cider-connect-clj app) + (let* ((echo (app-state-echo app))) + (echo-read-string echo "Host:port: " + (lambda (hp) + (echo-message! echo (str "CIDER: connecting CLJ to " hp)))))) + +(def (cmd-cider-connect-cljs app) + (let* ((echo (app-state-echo app))) + (echo-read-string echo "Host:port: " + (lambda (hp) + (echo-message! echo (str "CIDER: connecting CLJS to " hp)))))) + +(def (cmd-cider-jack-in-clj app) + (let* ((echo (app-state-echo app))) + (echo-message! echo "CIDER: jacking in CLJ"))) + +(def (cmd-cider-jack-in-cljs app) + (let* ((echo (app-state-echo app))) + (echo-message! echo "CIDER: jacking in CLJS"))) + +(def (cmd-cider-eval-last-sexp-to-repl app) + (let* ((echo (app-state-echo app))) + (echo-message! echo "CIDER: evaluated last sexp to REPL"))) + +(def (cmd-cider-eval-region app) + (let* ((echo (app-state-echo app))) + (echo-message! echo "CIDER: evaluated region"))) + +(def (cmd-cider-eval-ns-form app) + (let* ((echo (app-state-echo app))) + (echo-message! echo "CIDER: evaluated ns form"))) + +(def (cmd-cider-load-buffer app) + (let* ((echo (app-state-echo app))) + (echo-message! echo "CIDER: loaded buffer"))) + +(def (cmd-cider-load-file app) + (let* ((echo (app-state-echo app))) + (echo-message! echo "CIDER: loaded file"))) + +(def (cmd-cider-switch-to-repl-buffer app) + (let* ((echo (app-state-echo app))) + (echo-message! echo "CIDER: switched to REPL buffer"))) --- a/src/jerboa-emacs/editor-extra-regs2.ss +++ b/src/jerboa-emacs/editor-extra-regs2.ss @@ -5969,4 +5969,25 @@ (register-command! 'docker-compose-start cmd-docker-compose-start) (register-command! 'docker-compose-rm cmd-docker-compose-rm) (register-command! 'docker-compose-exec cmd-docker-compose-exec) + ;; Round 216 + (register-command! 'cider-connect-clj cmd-cider-connect-clj) + (register-command! 'cider-connect-cljs cmd-cider-connect-cljs) + (register-command! 'cider-jack-in-clj cmd-cider-jack-in-clj) + (register-command! 'cider-jack-in-cljs cmd-cider-jack-in-cljs) + (register-command! 'cider-eval-last-sexp-to-repl cmd-cider-eval-last-sexp-to-repl) + (register-command! 'cider-eval-region cmd-cider-eval-region) + (register-command! 'cider-eval-ns-form cmd-cider-eval-ns-form) + (register-command! 'cider-load-buffer cmd-cider-load-buffer) + (register-command! 'cider-load-file cmd-cider-load-file) + (register-command! 'cider-switch-to-repl-buffer cmd-cider-switch-to-repl-buffer) + (register-command! 'cider-javadoc cmd-cider-javadoc) + (register-command! 'cider-test-run-ns-tests cmd-cider-test-run-ns-tests) + (register-command! 'cider-test-run-project-tests cmd-cider-test-run-project-tests) + (register-command! 'cider-inspect-last-result cmd-cider-inspect-last-result) + (register-command! 'cider-macroexpand-1 cmd-cider-macroexpand-1) + (register-command! 'cider-macroexpand-all cmd-cider-macroexpand-all) + (register-command! 'cider-ns-reload cmd-cider-ns-reload) + (register-command! 'cider-ns-reload-all cmd-cider-ns-reload-all) + (register-command! 'cider-repl-clear-buffer cmd-cider-repl-clear-buffer) + (register-command! 'cider-format-buffer cmd-cider-format-buffer) )