proc tastebin::add_history { msg } {
	variable options
	variable script_dir

	if {!$options(save_history_to_file)} {
		return [lappend options(history) $msg]
	}

	puts $msg

	set per a
	if {![file exist [file join $script_dir history]]} {
	set per w
	}

	set file [open [file join $script_dir history] $per]
	puts $file $msg
	close $file
}