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
    close $file
}