refactor: move argToHtml to DocGen4.Output.Arg

DocGen4/Output/Arg.lean

@@ -0,0 +1,22 @@
+import DocGen4.Output.Base
+
+namespace DocGen4
+namespace Output
+
+open scoped DocGen4.Jsx
+
+/--
+Render an `Arg` as HTML, adding opacity effects etc. depending on what
+type of binder it has.
+-/
+def argToHtml (arg : Process.Arg) : HtmlM Html := do
+  let node ← infoFormatToHtml arg.binder
+  let inner := <span class="fn">[node]</span>
+  let html := Html.element "span" false #[("class", "decl_args")] #[inner]
+  if arg.implicit then
+    return <span class="impl_arg">{html}</span>
+  else
+    return html
+
+end Output
+end DocGen4

DocGen4/Output/Inductive.lean

@@ -1,3 +1,4 @@
+import DocGen4.Output.Arg
 import DocGen4.Output.Template
 import DocGen4.Output.DocString
 import DocGen4.Process
@@ -8,19 +9,6 @@ namespace Output
 open scoped DocGen4.Jsx
 open Lean
 
-/--
-Render an `Arg` as HTML, adding opacity effects etc. depending on what
-type of binder it has.
--/
-def argToHtml (arg : Process.Arg) : HtmlM Html := do
-  let node ← infoFormatToHtml arg.binder
-  let inner := <span class="fn">[node]</span>
-  let html := Html.element "span" false #[("class", "decl_args")] #[inner]
-  if arg.implicit then
-    return <span class="impl_arg">{html}</span>
-  else
-    return html
-
 def instancesForToHtml (typeName : Name) : BaseHtmlM Html := do
   pure
     <details id={s!"instances-for-list-{typeName}"} «class»="instances-for-list">