anchor.diff:            #panel{body = [
               #panel{class = "post-body", body = Post#mt_post.body}
             ]},
  -          default_items_post(?a2l(Id), length(Post#mt_post.comments)),
  +          default_items_post(Post),
             #hr{}
           ]}
         ] ||
  
positive.code:       #button{id=submit, text="Submit",postback="add-comment-" ++ Id}
    ]}.
  
  event("add-post") ->
    User = wf:user(),
    if
      User =/= undefined ->
        Text = wf:q("textarea"),
        Tags = wf:q("tags-input"),
        Sanit = fun(T) ->
          StripList = "[<>=&$#@!*%];\"\'`",
          re:replace(mtws_sanitizer:sanitize(T), StripList, "", [global, {return, list}, unicode])
        end,
  
        ?DBG("Tags: ~p", [Tags]),
        UserName = ?a2b(User),                        % FIXME
  
negative.code:       },
        IdBin = mtc_entry:sput(#mt_post{
          author = Author,
          body = case Text of undefined -> Text; _ -> unicode:characters_to_binary(mtws_sanitizer:sanitize(sanitize_fix(Text))) end,
          origin = ?MT_ORIGIN,
          tags = [unicode:characters_to_binary(sanit(unicode:characters_to_binary(T))) || T <- string:tokens(unicode:characters_to_list(list_to_binary(Tags)), ",")]
        }),
        Id = binary_to_list(IdBin),
        wf:redirect("/post/"++Id);
  