model: promote `is_fictive` from doc_model

[nit.git] / src / doc / doc_model.nit

diff --git a/src/doc/doc_model.nit b/src/doc/doc_model.nit
index 023290d..9080dbf 100644 (file)
--- a/src/doc/doc_model.nit
+++ b/src/doc/doc_model.nit
@@ -16,9 +16,9 @@
 module doc_model
 
 import model_utils
-import modelize_property
 import markdown
 import doc_templates
+import ordered_tree
 
 redef class MDoc
        # Comment synopsys HTML escaped
@@ -144,10 +144,9 @@ redef class MConcern
 end
 
 redef class MProject
-
        redef fun nitdoc_name do return name.html_escape
        redef fun nitdoc_id do return nitdoc_name
-       redef fun nitdoc_url do return "project_{name}.html"
+       redef fun nitdoc_url do return root.nitdoc_url
 
        redef fun mdoc do
                if root != null then
@@ -218,14 +217,9 @@ redef class MGroup
                end
                return tpl
        end
-
-       redef fun tpl_css_classes do return ["public"]
 end
 
 redef class MModule
-       # Is the mmodule created by nitdoc for internal purpose?
-       var is_fictive: Bool writable = false
-
        redef fun nitdoc_name do return name.html_escape
 
        redef fun nitdoc_id do
@@ -272,13 +266,6 @@ redef class MModule
                return tpl
        end
 
-       redef fun tpl_title do
-               var title = new Template
-               title.add tpl_icon
-               title.add tpl_namespace
-               return title
-       end
-
        redef fun tpl_css_classes do return ["public"]
 end
 
@@ -690,3 +677,39 @@ redef class MParameter
        end
 end
 
+redef class ConcernsTree
+
+       private var seen = new HashSet[MConcern]
+
+       redef fun add(p, e) do
+               if seen.has(e) then return
+               seen.add e
+               super(p, e)
+       end
+
+       fun to_tpl: TplList do
+               var lst = new TplList.with_classes(["list-unstyled", "list-definition"])
+               for r in roots do
+                       var li = r.tpl_concern_item
+                       lst.add_li li
+                       build_list(r, li)
+               end
+               return lst
+       end
+
+       private fun build_list(e: MConcern, li: TplListItem) do
+               if not sub.has_key(e) then return
+               var subs = sub[e]
+               var lst = new TplList.with_classes(["list-unstyled", "list-definition"])
+               for e2 in subs do
+                       if e2 isa MGroup and e2.is_root then
+                               build_list(e2, li)
+                       else
+                               var sli = e2.tpl_concern_item
+                               lst.add_li sli
+                               build_list(e2, sli)
+                       end
+               end
+               li.append lst
+       end
+end