anchor.diff:        Title = wf:q("post-title"),
         Text = wf:q("textarea"),
         Tags = wf:q("tags-input"),
  +      Format = wf:q(input_format),
   
         ?DBG("Tags: ~p", [Tags]),
         UserName = ?a2b(User),                        % FIXME
  
positive.code:       Title = wf:q("post-title"),
        Text = wf:q("textarea"),
        Tags = wf:q("tags-input"),
        mtc_entry:supdate(Post#mt_post{
          title = case Title of undefined -> Title; _ -> unicode:characters_to_binary(mtws_sanitizer:sanitize("text", sanitize_fix(Title))) end,
          body = Text,
          body_html = case Text of undefined -> Text; _ -> unicode:characters_to_binary(mtws_sanitizer:sanitize(sanitize_fix(Text))) end,
          tags = [unicode:characters_to_binary(sanit(unicode:characters_to_binary(T))) || T <- string:tokens(unicode:characters_to_list(list_to_binary(Tags)), ",")],
          origin = ?MT_ORIGIN
        })
    end,
  
negative.code:     _ ->
        mtws_common:user_blog(wf:user(), PostSuff)
    end.
  
  mt_format(Format) ->
    case Format of
      "markdown" ->
        ?mtc_schema_Mt_format_MARKDOWN;
      "html" ->
        ?mtc_schema_Mt_format_HTML;
      ?mtc_schema_Mt_format_MARKDOWN ->
        "markdown";
      ?mtc_schema_Mt_format_HTML ->
        "html";
      undefined ->
        "html"
    end.
  