Better short reference escaping.

Fixes LuaDevelopmentTools#3

Author: KINFOO

template/utils.lua

@@ -333,6 +333,15 @@ function M.isinvokable(item)
   end
 end
 
+---
+-- Disable Markdown processing on a specific string
+-- @param #string s Content to browse
+-- @param #string escaped What Markdown should not process
+-- @return #string Original `s` #string with `escaped` #string backslashed
+function M.escape(s, escaped)
+  return string.gsub(s, escaped, '\\'..escaped)
+end
+
 ---
 -- Provide human readable overview from an API model element
 --
@@ -346,7 +355,8 @@ end
 function M.prettyname( apiobject, ... )
   local tag = apiobject.tag
   if M.prettynametypes[tag] then
-    return M.prettynametypes[tag](apiobject,...)
+    local prettyname = M.prettynametypes[tag](apiobject,...)
+    return M.escape(prettyname,'_')
   elseif not tag then
     return nil, 'No pretty name available as no tag has been provided.'
   end

templateengine.lua

@@ -84,14 +84,7 @@ local function format(string)
   string = string:gsub('@{%s*(.-)%s*}', replace)
   return M.env.markdown( string )
 end
----
--- Disable Markdown processing on a specific string
--- @param #string s Content to browse
--- @param #string escaped What Markdown should not process
--- @return #string Original `s` #string with `escaped` #string backslashed
-local function escape(s, escaped)
-  return string.gsub(s, escaped, '\\'..escaped)
-end
+
 ---
 -- Provide a full link to an element using `prettyname` and `linkto`.
 -- Default implementation is for HTML.
@@ -101,7 +94,7 @@ local function fulllinkto(o,...)
   if not ref then
     return name
   end
-  return string.format('<a href="%s">%s</a>', ref, escape(name, '_'))
+  return string.format('<a href="%s">%s</a>', ref, name)
 end
 --
 -- Define default template environnement