diff --git a/Redaction/Clean.xba b/Redaction/Clean.xba index 3f14331..b7b8506 100644 --- a/Redaction/Clean.xba +++ b/Redaction/Clean.xba @@ -1,6 +1,6 @@ -Sub mark76 +Sub mark77 End Sub @@ -37,6 +37,7 @@ Private Sub makerUpMenu dialog.getControl("configAnchors").Label = getTranslation("advancedMenuConfigAnchors") dialog.getControl("fixMistakes").Label = getTranslation("advancedMenuFixMistakes") dialog.getControl("fixDOI").Label = getTranslation("advancedMenuFixDOI") + dialog.getControl("replaceNumHyphen").Label = getTranslation("replaceNumHyphen") dialog.getControl("removeInitPageBreak").Label = getTranslation("advancedMenuRemoveInitPageBreak") dialog.getControl("removePageStyles").Label = getTranslation("advancedMenuRemovePageStyles") dialog.getControl("loadStandardStyles").Label = getTranslation("advancedMenuLoadStandardStyles") @@ -118,6 +119,10 @@ Private Sub cleanAccordingTo(dialog As Object) statusIndicator.Start(getTranslation("statusFixingDOI"),100) fixDOI EndIf + If dialog.getControl("replaceNumHyphen").state = 1 Then + statusIndicator.Start(getTranslation("replaceNumHyphenStatus"),100) + replaceNumHyphen + EndIf If dialog.getControl("removeInitPageBreak").state = 1 Then statusIndicator.Start(getTranslation("statusRemovePageBreakAtStart"),100) removeFirstElementPageBreak @@ -1952,4 +1957,16 @@ Sub resetChapterNumberingRules Next i End Sub +Private Sub replaceNumHyphen + StartTracking + replaceNumHyphenRegExp + StopTracking + showTrackedChanges +End Sub + + +Sub replaceNumHyphenRegExp + AskAndReplace("(?<!DOI[0-9. /XVI:-‒–—−-]{1,50})(?<=[:digit:])(?:[:space:])?[-‒–—−](?:[:space:])?(?=[:digit:])","‒") +End sub + \ No newline at end of file diff --git a/Redaction/CleaningDialog.xdl b/Redaction/CleaningDialog.xdl index 9ad99aa..eaa3ceb 100644 --- a/Redaction/CleaningDialog.xdl +++ b/Redaction/CleaningDialog.xdl @@ -1,10 +1,10 @@ - + - + - + @@ -20,11 +20,12 @@ - + + \ No newline at end of file diff --git a/Redaction/Configuration.xba b/Redaction/Configuration.xba index 59eb334..1afa5db 100644 --- a/Redaction/Configuration.xba +++ b/Redaction/Configuration.xba @@ -1,7 +1,7 @@ Public Const redactionExtensionName As String = "cleanAndValidate" -Public Const redactionExtensionVersion = "0.9.24" +Public Const redactionExtensionVersion = "0.9.26" Function initRedactionConfiguration() On Error Goto exceptionHandler Dim regFactory As Object diff --git a/Redaction/Translations.xba b/Redaction/Translations.xba index 65b49db..fc91c99 100644 --- a/Redaction/Translations.xba +++ b/Redaction/Translations.xba @@ -278,6 +278,12 @@ Function getRussian(identifier As String) As String Case "dialogConfigMaxSubscript" getRussian = "Макс. длина текста в нижнем индексе" Exit Function + Case "replaceNumHyphen" + getRussian = "Заменить тире между цифрами на цифровые" + Exit Function + Case "replaceNumHyphenStatus" + getRussian = "Заменяются тире между цифрами на цифровые" + Exit Function Case Else getRussian = "Перевод не найден" End Select @@ -538,6 +544,12 @@ Function getEnglish(identifier As String) As String Case "dialogConfigMaxSubscript" getEnglish = "Max line length in subscript" Exit Function + Case "replaceNumHyphen" + getEnglish = "Replace dashes between numbers with numeric dashes" + Exit Function + Case "replaceNumHyphenStatus" + getEnglish = "Replacing dashes between numbers with numeric dashes" + Exit Function Case Else getEnglish = "No translation" End Select @@ -797,6 +809,12 @@ Function getCroatian(identifier As String) As String Case "dialogConfigMaxSubscript" getCroatian = "Maksimalna duljina retka u indeksu" Exit Function + Case "replaceNumHyphen" + getCroatian = "Zamijenite crtice između brojeva numeričkim crticama" + Exit Function + Case "replaceNumHyphenStatus" + getCroatian = "Zamjena crtica između brojeva numeričkim crticama" + Exit Function Case Else getCroatian = "No translation" End Select @@ -1056,6 +1074,12 @@ Function getSerbian(identifier As String) As String Case "dialogConfigMaxSubscript" getSerbian = "Максимална дужина реда у индексу" Exit Function + Case "replaceNumHyphen" + getSerbian = "Цртице између бројева замените нумеричким цртицама" + Exit Function + Case "replaceNumHyphenStatus" + getSerbian = "Замена цртица између бројева нумеричким цртицама" + Exit Function Case Else getSerbian = "No translation" End Select @@ -1315,6 +1339,12 @@ Function getBosnian(identifier As String) As String Case "dialogConfigMaxSubscript" getBosnian = "Maksimalna dužina retka u indeksu" Exit Function + Case "replaceNumHyphen" + getBosnian = "Zamijenite crtice između brojeva numeričkim crticama" + Exit Function + Case "replaceNumHyphenStatus" + getBosnian = "Zamjena crtica između brojeva numeričkim crticama" + Exit Function Case Else getBosnian = "No translation" End Select diff --git a/description.xml b/description.xml index 881ed0e..f07e2e8 100644 --- a/description.xml +++ b/description.xml @@ -1,7 +1,7 @@ - + Cleaning and validation documents for publishing in html and epub with pagination diff --git a/gradle.properties b/gradle.properties index 2c7537c..5eca494 100644 --- a/gradle.properties +++ b/gradle.properties @@ -1 +1 @@ -version=0.9.24 +version=0.9.26 diff --git a/translations.ods b/translations.ods index 9dbc62b..8bffa35 100644 Binary files a/translations.ods and b/translations.ods differ