## ------------------------------------------------------------------
# Meta

get_sec(q::RBQuote) = get_parent(q)
set_sec!(q::RBQuote, sec::RBSection) = set_parent!(q, sec)

## ------------------------------------------------------------------
# Data

get_text(q::RBQuote) = getproperty(q, :text, "")
set_text!(q::RBQuote, text::String) = setproperty!(q, :text, strip(text))

## ------------------------------------------------------------------
# show
function Base.show(io::IO, q::RBQuote)
    println(io, "RBQuote(\"", get_label(q), "\")")
    print(io, " - path: '", localrelpath(q), "'")
    text = get_text(q)
    !isempty(text) && print(io, "\n - text: \"", _preview(io, text), "\"")
    tags = join(get_tags(q), ", ")
    !isempty(tags) && print(io, "\n - tags: \"", _preview(io, tags), "\"")
    print(io, "\n", _preview(io, "-"^70))
    return nothing
end
