diff --git a/press-n-post b/press-n-post index dbcae67..3cb006e 100755 --- a/press-n-post +++ b/press-n-post @@ -133,12 +133,13 @@ namespace eval pdf { proc guess_language {title} { # Базовый набор символов set eng {[a-z[:space:][:punct:]]} + set rus_eng {[a-zа-я[:space:][:punct:]]} switch -nocase -regexp $title "^${eng}*\[äöüß]+${eng}*" { set lang DEU } "^${eng}*\[àâæçéèêëîïôœùûüÿ]+${eng}*" { set lang FRA - } "^${eng}*\[а-яћџђљњčćžđš]+${eng}*" { + } "^${rus_eng}*\[ћџђљњčćžđš]+${rus_eng}*" { set lang SRB } "^${eng}*\[а-я]+${eng}*" { set lang RUS @@ -190,10 +191,16 @@ namespace eval pdf { # Сохранение метаданных в файл # и запись markdown-описания на диск proc write_metadata {} { + clear_tags write_tags write_markdown } + # Удаление всех метаданных + proc clear_tags {} { + exec exiftool -all:all= "[file join $::pdf::file_path $::pdf::file]" 2>/dev/null + } + # Запись метаданных proc write_tags {} { exec exiftool -Author=$::pdf::tags(Author)\