doc/commands: CmdCode does not use infoboxes in html highlight

Signed-off-by: Alexandre Terrasa <alexandre@moz-code.org>

diff --git a/src/doc/commands/commands_html.nit b/src/doc/commands/commands_html.nit
index 8cffb32..7aac39a 100644 (file)
--- a/src/doc/commands/commands_html.nit
+++ b/src/doc/commands/commands_html.nit
@@ -322,3 +322,13 @@ redef class CmdTesting
                return "<pre>{command}</pre>"
        end
 end
+
+# Misc
+
+redef class CmdHtmlightVisitor
+       redef fun hrefto(mentity) do
+               if mentity isa MClassDef then return mentity.mclass.html_url
+               if mentity isa MPropDef then return mentity.mproperty.html_url
+               return mentity.html_url
+       end
+end

diff --git a/src/doc/commands/commands_model.nit b/src/doc/commands/commands_model.nit
index 71f23ed..ffb530d 100644 (file)
--- a/src/doc/commands/commands_model.nit
+++ b/src/doc/commands/commands_model.nit
@@ -447,7 +447,8 @@ abstract class CmdCode
        fun render_code(node: nullable ANode): nullable Writable do
                if node == null then return null
                if format == "html" then
-                       var hl = new HtmlightVisitor
+                       var hl = new CmdHtmlightVisitor
+                       hl.show_infobox = false
                        hl.highlight_node node
                        return hl.html
                else if format == "ansi" then
@@ -459,6 +460,14 @@ abstract class CmdCode
        end
 end
 
+# Custom HtmlightVisitor for commands
+#
+# We create a new subclass so its behavior can be refined in clients without
+# breaking the main implementation.
+class CmdHtmlightVisitor
+       super HtmlightVisitor
+end
+
 # Cmd that finds the source code related to an `mentity`
 class CmdEntityCode
        super CmdEntity