add emacs shortcut for generating

Aidbox · Sep 25, 2024 · 62493fb · 62493fb
1 parent e0d2dd3
commit 62493fb
Showing 1 changed file with 13 additions and 1 deletion.
diff --git a/.dir-locals.el b/.dir-locals.el
@@ -1 +1,13 @@
-((nil . ((cider-clojure-cli-aliases        . ":dev"))))
+((nil . ((cider-clojure-cli-aliases . ":dev")))
+ (clojure-mode
+  (eval . (defun aidbox-sdk-generate ()
+            (interactive)
+            (let ((language (completing-read "Select the language to generate: "
+                                             '("dotnet" "java" "python" "typescript"))))
+              (cider-interactive-eval
+               (format "(sdk/generate! :%s
+               \"http://localhost:3333/r4/fhir-packages\"
+               {:output-dir \"dist/%s\"
+                :auth-token \"YmFzaWM6c2VjcmV0\"
+                :exit (fn [_] nil)})"
+                       language language)))))))