add PrintToScript constructor

disberd · Oct 8, 2023 · 0e03802 · 0e03802 · disberd · Oct 8, 2023
1 parent eb94987
commit 0e03802
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 0 deletions.
diff --git a/src/combine_htl/constructors.jl b/src/combine_htl/constructors.jl
@@ -123,6 +123,7 @@ PrintToScript(@nospecialize(t); display_type = displaylocation(t)) = PrintToScri
 PrintToScript(@nospecialize(t::PrintToScript); display_type = displaylocation(t)) = PrintToScript(t.el, displaylocation(display_type))
 PrintToScript(@nospecialize(t::AbstractHTML); kwargs...) = error("You can't wrap object of type $(typeof(t)) with PrintToScript")
 PrintToScript(@nospecialize(t::Union{SingleScript, DualScript}); display_type = displaylocation(t)) = PrintToScript(t, displaylocation(display_type))
+PrintToScript(x::Union{AbstractString, ScriptContent, Result}; kwargs...) = PrintToScript(DualScript(ScriptContent(x)); kwargs...)
 
 # DualNode #
 DualNode(i, o) = DualNode(PlutoNode(i), NormalNode(o))

diff --git a/test/combinehtl_module.jl b/test/combinehtl_module.jl
@@ -126,6 +126,9 @@ using PlutoDevMacros.PlutoCombineHTL.AbstractPlutoDingetjes.Display
 
  @test PrintToScript(pts) === pts
  @test_throws "You can't wrap" PrintToScript(PlutoNode("asd"))
+
+ pts = PrintToScript("asd")
+ @test pts.el isa DualScript
 end
 
 @testset "make_node" begin