defmodule AshHqWeb.Components.CodeExample do
use Surface.LiveComponent
prop text, :string, required: true
prop class, :css_class
prop title, :string
prop start_collapsed, :boolean, default: false
prop collapsable, :boolean, default: false
data collapsed, :string, default: false
def render(assigns) do
~F"""
{#if @title}
{@title}
{#if @collapsable}
{/if}
{/if}
{#for {line, no} <- to_code(@text)}
{no}
{Phoenix.HTML.raw(line)}
{/for}
"""
end
def handle_event("fold", _, socket) do
{:noreply, assign(socket, :collapsed, !socket.assigns.collapsed)}
end
def update(assigns, socket) do
if assigns.start_collapsed && assigns.collapsable do
{:ok, socket |> assign(assigns) |> assign(:collapsed, true)}
else
{:ok, socket |> assign(assigns) |> assign(:collapsed, false)}
end
end
defp to_code(text) do
# TODO: do this at compile time
lines =
text
# this is pretty naive, won't handle things like block comments
|> String.split("\n")
|> Enum.reverse()
|> Enum.drop_while(&(&1 in [""]))
|> Enum.reverse()
|> Enum.map(fn
"" ->
" "
line ->
Makeup.highlight(line)
end)
count = Enum.count(lines)
padding = String.length(to_string(count))
lines
|> Enum.with_index()
|> Enum.map(fn {line, index} ->
{line, String.pad_leading(to_string(index + 1), padding, " ")}
end)
end
end