proc tastebin::add_history { msg } {
    variable options

    lappend options(history) $msg

    if {!$options(save_history_to_file)} {
    return
    }

    puts $msg

    catch { file mkdir [file join $::configdir tastebin_history]}
    set file [open [file join $::configdir tastebin_history history] a]
    puts $file $msg
    flush $file
    close $file
}