proc tastebin::http_complite { T HISTORY LANG token } {
    variable options

    if { [http::status $token] ne "ok" } {
        $T configure -state normal
        $T delete 0.0 end
        $T insert 0.0 "Error"
        return [http::cleanup $token]
    }

    set data [http::data $token]

    $T configure -state normal
    $T delete 0.0 end
    $T insert 0.0 $data

    http::cleanup $token

    set HISTORY "[get_time]\t$LANG - ${data}:\n\n$HISTORY\
        \n...\n[string repeat _ 20]\n\n"

    add_history $HISTORY
}