anchor.diff:      _ ->
         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.
  
positive.code:       Title = wf:q("post-title"),
        Text = wf:q("textarea"),
        Tags = wf:q("tags-input"),
  
        ?DBG("Tags: ~p", [Tags]),
        UserName = ?a2b(User),                        % FIXME
  
negative.code:         author = Author,
          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(Format, if Format =:= "html" -> sanitize_fix(Text); true -> Text end)) end,
          format = mt_format(Format),
          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)), ",")]
        }),
  