fix title in groff gen

include/mad.hrl

@@ -1 +1 @@
--define(VERSION,"5.4-26-gc246d1c").
+-define(VERSION,"5.4-28-gb3ae4e3").

src/mad_groff.erl

@@ -6,11 +6,12 @@
 do(FileName) ->
   {#xmlElement{content=[#xmlElement{content=Head}, BodyTree | _]}, _} = xmerl_scan:file(FileName),
   FN = string:join(lists:reverse(tl(lists:reverse(string:tokens(FileName,".")))),"."),
+  Title = filename:basename(FN),
   Groff = "groff/"++FN,
   filelib:ensure_dir(filename:dirname(Groff)++"/"),
   write2new(Groff, lists:reverse( show(BodyTree, false, false,
-    [ [".TH ", FN, " 1 \"",FN,"\" \"Synrc Research Center\" \"", head(Head, ""), "\"", "\n",
-       ".SH NAME", "\n", FN, "\n"] ]))), ok.
+    [ [".TH ", Title, " 1 \"",Title,"\" \"Synrc Research Center\" \"", head(Head, ""), "\"", "\n",
+       ".SH NAME", "\n", Title, "\n"] ]))), ok.
 
 show(#xmlElement{name=section,content=C},false,_,RA) -> S = check(C, false), child(C,S,[also(S)|RA]);
 show(#xmlElement{content=C},false,_,RA) -> child(C,false,RA);