From 3ad651123f48850dd48f706ba526223e9a0e9962 Mon Sep 17 00:00:00 2001
From: Maxim Likhachev <envrm@yandex.ru>
Date: Wed, 4 Mar 2020 18:21:48 +0300
Subject: [PATCH] =?UTF-8?q?=D0=A3=D0=B4=D0=B0=D0=BB=D0=B5=D0=BD=D0=B8?=
 =?UTF-8?q?=D0=B5=20=D0=BC=D0=B5=D1=82=D0=B0=D0=B4=D0=B0=D0=BD=D0=BD=D1=8B?=
 =?UTF-8?q?=D1=85=20pdf?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 press-n-post | 9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)

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)\