Skip to content

Commit 662dfdc

Browse files
committed
Add macroexpand forms for Lumo
1 parent d3c0d4f commit 662dfdc

File tree

1 file changed

+16
-0
lines changed

1 file changed

+16
-0
lines changed

inf-clojure.el

Lines changed: 16 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -970,12 +970,20 @@ If you are using REPL types, it will pickup the most approapriate
970970
:safe #'stringp
971971
:package-version '(inf-clojure . "2.0.0"))
972972

973+
(defcustom inf-clojure-macroexpand-form-lumo
974+
"(macroexpand '%s)"
975+
"Lumo form to invoke macroexpand."
976+
:type 'string
977+
:safe #'stringp
978+
:package-version '(inf-clojure . "2.2.0"))
979+
973980
(defun inf-clojure-macroexpand-form (proc)
974981
"Return the form for macroexpansion in the Inf-Clojure PROC.
975982
If you are using REPL types, it will pickup the most approapriate
976983
`inf-clojure-macroexpand-form` variant."
977984
(inf-clojure--sanitize-command
978985
(pcase (inf-clojure--set-repl-type proc)
986+
(`lumo inf-clojure-macroexpand-form-lumo)
979987
(`planck inf-clojure-macroexpand-form-planck)
980988
(_ inf-clojure-macroexpand-form))))
981989

@@ -995,12 +1003,20 @@ If you are using REPL types, it will pickup the most approapriate
9951003
:safe #'stringp
9961004
:package-version '(inf-clojure . "2.0.0"))
9971005

1006+
(defcustom inf-clojure-macroexpand-1-form-lumo
1007+
"(macroexpand-1 '%s)"
1008+
"Lumo form to invoke macroexpand-1."
1009+
:type 'string
1010+
:safe #'stringp
1011+
:package-version '(inf-clojure . "2.2.0"))
1012+
9981013
(defun inf-clojure-macroexpand-1-form (proc)
9991014
"Return the form for macroexpand-1 in the Inf-Clojure PROC.
10001015
If you are using REPL types, it will pickup the most approapriate
10011016
`inf-clojure-macroexpand-1-form` variant."
10021017
(inf-clojure--sanitize-command
10031018
(pcase (inf-clojure--set-repl-type proc)
1019+
(`lumo inf-clojure-macroexpand-1-form-lumo)
10041020
(`planck inf-clojure-macroexpand-1-form-planck)
10051021
(_ inf-clojure-macroexpand-1-form))))
10061022

0 commit comments

Comments
 (0)