Add details (#288)

Co-authored-by: Fons van der Plas <fonsvdplas@gmail.com>

src/Details.jl

@@ -0,0 +1,264 @@
+### A Pluto.jl notebook ###
+# v0.19.38
+
+using Markdown
+using InteractiveUtils
+
+# This Pluto notebook uses @bind for interactivity. When running this notebook outside of Pluto, the following 'mock version' of @bind gives bound variables a default value (instead of an error).
+macro bind(def, element)
+    quote
+        local iv = try Base.loaded_modules[Base.PkgId(Base.UUID("6e696c72-6542-2067-7265-42206c756150"), "AbstractPlutoDingetjes")].Bonds.initial_value catch; b -> missing; end
+        local el = $(esc(element))
+        global $(esc(def)) = Core.applicable(Base.get, el) ? Base.get(el) : iv(el)
+        el
+    end
+end
+
+# ╔═╡ 81f5b495-76c4-4c54-93ab-b49c5ecb810a
+# ╠═╡ skip_as_script = true
+#=╠═╡
+begin
+	import Pkg
+	Pkg.activate(Base.current_project(@__DIR__))
+	Pkg.instantiate()
+	md"**Project env active**"
+end
+  ╠═╡ =#
+
+# ╔═╡ b7b18a54-afd7-4467-83ed-cc4f07c321fb
+using HypertextLiteral
+
+# ╔═╡ b3732e34-d331-4dd2-b4fb-11b2f397d7c1
+# ╠═╡ skip_as_script = true
+#=╠═╡
+const testslider = html"<input>"
+  ╠═╡ =#
+
+# ╔═╡ 13e81634-3b72-4b1d-a89b-36d184698d21
+const details_css = @htl("""
+<style type="text/css">
+pluto-output details {
+	border: 1px solid var(--rule-color);
+	border-radius: 4px;
+	padding: 0.5em 0.5em 0;
+	margin-block-start: 0;
+	margin-block-end: var(--pluto-cell-spacing);
+}
+
+pluto-output details:first-child {
+	margin-block-start: 0;
+}
+
+pluto-output details:last-child {
+	margin-block-end: 0;
+}
+
+pluto-output details summary {
+	cursor: pointer;
+	font-weight: bold;
+	margin: -0.5em -0.5em 0;
+	padding: 0.5em;
+	font-family: var(--system-ui-font-stack);
+	border-radius: 3px;
+	transition: color .25s ease-in-out, background-color .25s ease-in-out;
+}
+
+pluto-output details summary:hover {
+	color: var(--blockquote-color);
+	background-color: var(--blockquote-bg);
+}
+
+pluto-output details[open] {
+	padding: 0.5em;
+}
+
+pluto-output details[open] summary {
+	border-radius: 3px 3px 0 0;
+	border-bottom: 1px solid var(--rule-color);
+	margin-bottom: 0.5em;
+}
+
+plutoui-detail {
+	display: block;
+	margin-block-end: var(--pluto-cell-spacing);
+}
+plutoui-detail:last-child {
+	margin-block-end: 0;
+}
+</style>
+""")
+
+# ╔═╡ df840588-23bd-4b03-b5ab-ef273052d198
+const Iterable = Union{AbstractVector, Tuple, Base.Generator}
+
+# ╔═╡ 46521e2b-ea06-491a-9842-13dff7dc8299
+begin
+	embed_detail(x) = isdefined(Main, :PlutoRunner) && isdefined(Main.PlutoRunner, :embed_display) ? Main.PlutoRunner.embed_display(x) : x
+	embed_detail(x::AbstractString) = x
+
+	function details(summary::AbstractString, contents::Iterable; open::Bool=false)
+		@htl("""
+		<details $(open ? (open=true,) : nothing)>
+			<summary>$(summary)</summary>
+			<div class="details-content">
+				$(Iterators.map(contents) do detail
+					@htl("<plutoui-detail>$(embed_detail(detail))</plutoui-detail>")
+				end)
+			</div>
+		</details>
+		$(details_css)
+		""")
+	end
+
+	# Convenience function for when you just provide a single detail
+	details(summary::AbstractString, contents; open::Bool=false) = details(summary, (contents,); open)
+
+	"""
+	```julia
+	details(summary::AbstractString, contents; open::Bool=false)
+	```
+	
+	Create a collapsable details disclosure element (`<details>`).
+	
+	Useful for initially hiding content that may be important yet overly verbose or exposing advanced variables that may not always need displayed.
+	
+	# Arguments
+	
+	- `summary::AbstractString`: the always visible summary of the details element.
+	- `contents::Any`: the item(s) to nest within the details element.
+	
+	# Keyword arguments
+	
+	- `open::Bool=false`: whether the details element is initially open.
+	
+	# Examples
+	
+	```julia
+	details("My summary", "Some contents")
+	```
+	
+	```julia
+	details(
+		"My summary",
+		[
+			"My first item",
+			(@bind my_var Slider(1:10)),
+			md"How are you feeling? \$(@bind feeling Slider(1:10))",
+		],
+		open=true,
+	)
+	```
+	
+	!!! warning "Beware @bind in collection declaration"
+		You may want to `@bind` several variables within the `contents` argument by declaring a collection of `@bind` expressions. **Wrap each `@bind` expression in parenthesis** or interpolate them in `md` strings like the example above to prevent macro expansion from modifying how your collection declaration is interpreted.
+	
+	```julia
+	# This example will cause an error
+	details(
+		"My summary",
+		[
+			"My first item",
+			@bind my_var Slider(1:10),
+		]
+	)
+	```
+	"""
+	details
+end
+
+# ╔═╡ da0fb772-9a70-4616-a540-5770a8d48476
+# ╠═╡ skip_as_script = true
+#=╠═╡
+begin
+	my_details = details(
+		"I'm going to take over the world! Would you like to know more?", 
+		[
+			"I'm going to start small",
+			"I'm going to start small",
+			"I'm going to start small",
+			md"#### But don't mark me down just yet!",
+			md"""
+			Here are my steps for world domination! 🌍
+			- Perfect my **evil laugh** 🦹
+			- Create **_Laser (Pointer) of Doom_™** ⚡
+			- Train **ninja cats** 🥷🐈
+			- Build **volcanic lair** 🌋
+			""",
+			@htl("<p>Fantastic!</p>"),
+			["Cat", "Laser (Pointer) ", "Volcano"],
+			Dict(
+				:cat => "Fluffy",
+				:laser => "Pointy",
+				:volcano => "Toasty",
+			),
+		]; open=true
+	)
+	
+	md"""
+	# Details
+	
+	$(my_details)
+	"""
+end
+  ╠═╡ =#
+
+# ╔═╡ b8434c11-2bb5-47ba-8562-e1176cba0af7
+# ╠═╡ skip_as_script = true
+#=╠═╡
+details("hello", "asdf")
+  ╠═╡ =#
+
+# ╔═╡ f833a0bf-f7f7-417d-8cd9-5f93a90aecf6
+# ╠═╡ skip_as_script = true
+#=╠═╡
+details("hello", "asdf"; open=true)
+  ╠═╡ =#
+
+# ╔═╡ ef3ebb39-03ce-407b-9796-cae10d88f4a0
+# ╠═╡ skip_as_script = true
+#=╠═╡
+details("hello", md"asdf"; open=true)
+  ╠═╡ =#
+
+# ╔═╡ b7349133-2590-415c-9a11-15c85e897a5c
+# ╠═╡ skip_as_script = true
+#=╠═╡
+details(
+	"My summary",
+	[
+		"My first item",
+		(@bind my_var testslider),
+		md"How are you feeling? $(@bind feeling testslider)",
+	],
+	open=true,
+)
+  ╠═╡ =#
+
+# ╔═╡ a5663932-9a19-4d6d-9b20-d6fefac8cf9d
+#=╠═╡
+my_var
+  ╠═╡ =#
+
+# ╔═╡ cd2bcfa2-5759-40d6-9358-3e7e605c5bc2
+#=╠═╡
+feeling
+  ╠═╡ =#
+
+# ╔═╡ 5d28fa36-49dc-4d0f-a1c3-3fc2a5efdd0a
+export details
+
+# ╔═╡ Cell order:
+# ╠═81f5b495-76c4-4c54-93ab-b49c5ecb810a
+# ╠═b7b18a54-afd7-4467-83ed-cc4f07c321fb
+# ╠═da0fb772-9a70-4616-a540-5770a8d48476
+# ╠═b8434c11-2bb5-47ba-8562-e1176cba0af7
+# ╠═f833a0bf-f7f7-417d-8cd9-5f93a90aecf6
+# ╠═ef3ebb39-03ce-407b-9796-cae10d88f4a0
+# ╠═b3732e34-d331-4dd2-b4fb-11b2f397d7c1
+# ╠═b7349133-2590-415c-9a11-15c85e897a5c
+# ╠═a5663932-9a19-4d6d-9b20-d6fefac8cf9d
+# ╠═cd2bcfa2-5759-40d6-9358-3e7e605c5bc2
+# ╠═5d28fa36-49dc-4d0f-a1c3-3fc2a5efdd0a
+# ╠═13e81634-3b72-4b1d-a89b-36d184698d21
+# ╟─df840588-23bd-4b03-b5ab-ef273052d198
+# ╠═46521e2b-ea06-491a-9842-13dff7dc8299

src/PlutoUI.jl

@@ -44,6 +44,10 @@ end # 0.06 second
 # not exporting to avoid clash with DataFrames.combine
 const combine = CombineNotebook.combine
 
+@reexport module DetailsNotebook
+    include("./Details.jl")
+end # ? second
+
 # this is a submodule
 using HypertextLiteral
 using Hyperscript

test/runtests.jl

@@ -288,10 +288,11 @@ transform(el, x) = AbstractPlutoDingetjes.Bonds.transform_value(el, x)
     el = Radio(["sin" => "asdf", "cos" => "cos"]; default = "cos")
     @test default(el) == "cos"
 
+    hrd(x) = occursin("<details", repr(MIME"text/html"(), x))
 
-
-
-
+    @test hrd(details("a", "b"))
+    @test hrd(details("a", ("b","c"); open=true))
+    @test hrd(details("a", [htl"b", Slider(1:10)]; open=true))
 
     el = Slider(0.0:π:20)
     @test default(el) == 0
@@ -502,4 +503,3 @@ transform(el, x) = AbstractPlutoDingetjes.Bonds.transform_value(el, x)
     el = Scrubbable(A)
     @test default(el) == A
 end
-