fix: Update add-namespace handler to ask for alias

liquidz · Mar 3, 2024 · 4daa624 · 4daa624
1 parent 6ef57ab
commit 4daa624
Showing 1 changed file with 6 additions and 1 deletion.
diff --git a/src/elin/handler/namespace.clj b/src/elin/handler/namespace.clj
@@ -22,7 +22,12 @@
                      (first)
                      (symbol)
                      (or (e/not-found)))
-          alias-sym (e.f.c.namespace/most-used-namespace-alias elin ns-sym)
+          default-alias-sym (e.f.c.namespace/most-used-namespace-alias elin ns-sym)
+          alias-str (e.f.vim/input!! host
+                                     (format "Alias for '%s': " ns-sym)
+                                     (str default-alias-sym))
+          alias-sym (when (seq alias-str)
+                      (symbol alias-str))
           ns-form (e.f.v.sexp/get-namespace-form!! host)]
     (if (has-namespace? ns-form ns-sym)
       (e.p.rpc/echo-text host (format "'%s' already exists." ns-sym) "WarningMsg")