Introduced leafmodelname

Author: giopaglia

src/print.jl

@@ -162,7 +162,7 @@ end
 
 function printmodel(
     io::IO,
-    m::ConstantModel;
+    m::LeafModel;
     header = DEFAULT_HEADER,
     indentation_str = "",
     show_subtree_info = false,
@@ -186,40 +186,7 @@ function printmodel(
         "" : "\n$(indentation_str)Info: $(info(m))")")
     end
     depth == 0 && show_symbols && print(io, MODEL_SYMBOL)
-    print(io, " $(outcome(m))")
-    (show_subtree_metrics || show_metrics != false) && print(io, " : $(get_metrics_string(m; (show_metrics isa NamedTuple ? show_metrics : [])...))")
-    show_shortforms != false && haskey(info(m), :shortform) && print(io, "\t\t\t\t\t\t\tSHORTFORM: $(@_antecedent_syntaxstring info(m)[:shortform] m parenthesize_atoms syntaxstring_kwargs kwargs)")
-    println(io, "")
-    nothing
-end
-
-function printmodel(
-    io::IO,
-    m::FunctionModel;
-    header = DEFAULT_HEADER,
-    indentation_str = "",
-    depth = 0,
-    show_subtree_info = false,
-    show_subtree_metrics = false,
-    show_metrics = false,
-    show_shortforms = false,
-    show_intermediate_finals = false,
-    tree_mode = false,
-    show_symbols = true,
-    syntaxstring_kwargs = (;),
-    parenthesize_atoms = true,
-    kwargs...,
-)
-    if header != false
-        _typestr = string(header == true ? typeof(m) :
-            header == :brief ? nameof(typeof(m)) :
-                error("Unexpected value for parameter header: $(header).")
-        )
-        println(io, "$(indentation_str)$(_typestr)$((length(info(m)) == 0) ?
-        "" : "\n$(indentation_str)Info: $(info(m))")")
-    end
-    depth == 0 && show_symbols && print(io, MODEL_SYMBOL)
-    print(io, " $(f(m))")
+    print(io, " $(leafmodelname(m))")
     (show_subtree_metrics || show_metrics != false) && print(io, " : $(get_metrics_string(m; (show_metrics isa NamedTuple ? show_metrics : [])...))")
     show_shortforms != false && haskey(info(m), :shortform) && print(io, "\t\t\t\t\t\t\tSHORTFORM: $(@_antecedent_syntaxstring info(m)[:shortform] m parenthesize_atoms syntaxstring_kwargs kwargs)")
     println(io, "")

src/types/model.jl

@@ -386,6 +386,8 @@ abstract type LeafModel{O} <: AbstractModel{O} end
 
 LeafModel(o) = wrap(o)
 
+leafmodelname(o::LeafModel) = error("Please, provide method leafmodelname(::$(typeof(o))).")
+
 immediatesubmodels(m::LeafModel{O}) where {O} = Vector{<:AbstractModel{<:O}}[]
 nimmediatesubmodels(m::LeafModel) = 0
 listimmediaterules(m::LeafModel) = [Rule(⊤, m)]

src/utils/models/leaf.jl

@@ -56,6 +56,7 @@ Return the constant outcome wrapped by `m`.
 See also [`ConstantModel`](@ref).
 """
 outcome(m::ConstantModel) = m.outcome
+leafmodelname(m::ConstantModel) = string(outcome(m))
 
 iscomplete(::ConstantModel) = true
 
@@ -172,6 +173,7 @@ See also [`FunctionModel`](@ref),
 [FunctionWrappers](https://github.com/yuyichao/FunctionWrappers.jl).
 """
 f(m::FunctionModel) = m.f
+leafmodelname(m::FunctionModel) = string(f(m))
 
 iscomplete(::FunctionModel) = true