anchor.diff:            "class=\"comment-anchor-link link\" "
             "target=\"_self\">" ++ "#"++binary_to_list(PostId)++"/"++Anchor ++ "</a>"
           },
  +        #link{body = comment_date(Comment), url = "#"++Anchor},
           #panel{class = "comment-body", body = Body}
         ]},
         #hidden{id="level-"++parents_to_path(PostId, Parents), text=Level},
         default_items(parents_to_path(PostId, Parents))
       ]}
     ].
  +
  +user_name_profile(UserName, RealName) ->
  +  UserProfileUrl = mtws_common:user_blog(UserName, ["/profile"]),
  +  #panel{class = "user-name", body = [
  +    #link{body = [
  +      #panel{class = "user-real-name", text = RealName},
  +      #panel{class = "user-profile-name", text = ["(", UserName, ")"]}
  +    ], url = UserProfileUrl}
  +  ]}.
   
   post_link(PostId) ->
     PathInfo = wf_context:path_info(),
  
positive.code:       [#panel{id="pan-"++?a2l(Id), style="margin-left: 50px;", body = [
          #panel{body = [
            #panel{class = "post", body = [
              #panel{class = "post-title", body = [#link{body = Post#mt_post.title, url = post_link(?a2l(Post#mt_post.id))}]},
              #panel{class = "post-body", body = [cutted_body(Post)]}
            ]}
  
negative.code: 
  comment_body(#mt_comment{author = #mt_author{id = PersonId},
                           body = Body
                          } = Comment,
               #comment{post_id = PostId,
                        id = Id,
                        parents = Parents,
  