Update version, translation fixes
This commit is contained in:
parent
ba938c7ef4
commit
a8f91c44c4
8 changed files with 81 additions and 42 deletions
|
|
@ -1,6 +1,6 @@
|
|||
<?xml version="1.0" encoding="UTF-8"?>
|
||||
<!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd">
|
||||
<script:module xmlns:script="http://openoffice.org/2000/script" script:name="Clean" script:language="StarBasic">Sub mark53
|
||||
<script:module xmlns:script="http://openoffice.org/2000/script" script:name="Clean" script:language="StarBasic">Sub mark54
|
||||
|
||||
End Sub
|
||||
|
||||
|
|
@ -367,6 +367,8 @@ Private Sub removeUserPageStyles
|
|||
End Sub
|
||||
|
||||
Private Sub fixFrequentMistakes
|
||||
Dim config As Object
|
||||
config = initRedactionConfiguration()
|
||||
Dim NBSP As String
|
||||
Dim space As String
|
||||
NBSP = " "
|
||||
|
|
@ -383,48 +385,51 @@ Private Sub fixFrequentMistakes
|
|||
AskAndReplace("^$","")
|
||||
'Не должно быть пробелов перед знаками пунктуации .,;:?!)]}»¡¿”‘’
|
||||
AskAndReplace("[:space:]+(?=[\.,;:?!\)\]\}»¡¿”‘’])","")
|
||||
'Между словом том и цифрой должен быть неразрывный пробел, а не обычный
|
||||
AskAndReplace("(?<=\b[тТ](ом|\.))\ (?=[:digit:])",NBSP)
|
||||
'Между словом серия и цифрой должен быть неразрывный пробел, а не обычный
|
||||
AskAndReplace("(?<=\b[сС](ерия|\.))\ +(?=[:digit:])",NBSP)
|
||||
'Между словом часть и цифрой должен быть неразрывный пробел, а не обычный
|
||||
AskAndReplace("(?<=\b[чЧ](асть|\.))\ +(?=[:digit:])",NBSP)
|
||||
'Между числом и "г." должен быть неразрывный пробел, а не обычный
|
||||
AskAndReplace("(?<=[0-9])[:space:]*г(?=\.)",NBSP & "г")
|
||||
'Между инициалами и Фамилией должен быть неразрывный пробел, а не обычный
|
||||
'А.[м/б пробел]А.Иванов -> А.[м/б пробел]А. Иванов
|
||||
AskAndReplace("(?<=[:upper:]\.[:space:]?[:upper:])\.[:space:]?(?=[:upper:][:lower:]{1,30})","." & NBSP)
|
||||
' А.[пробел]А.Иванов -> А.А. Иванов
|
||||
AskAndReplace("(?<=[:upper:])\.[:space:](?=[:upper:]\.[:space:][:upper:][:lower:]{1,30})",".")
|
||||
'Между Фамилией и инициалами должен быть неразрывный пробел, а не обычный
|
||||
'Иванов А.[м/б пробел]А. -> Иванов А.А.
|
||||
AskAndReplace("(?<=[:upper:][:lower:]{1,30}[:space:][:upper:])\.[:space:]?(?=[:upper:]\.)",".")
|
||||
|
||||
'Не должно быть пробелов после скобок [({ и кавычек «„
|
||||
'Не должно быть пробелов после скобок [({ и кавычек «„
|
||||
AskAndReplace("(?<=[\(\[\{«„])[:space:]","")
|
||||
'Между "и" и "т." должен быть неразрывный пробел, а не обычный
|
||||
AskAndReplace("(?<=\bи)\ (?=т\.)",NBSP)
|
||||
'Между "т." и "е./н./д./п./к." не должно быть пробела
|
||||
AskAndReplace("(?<=\bт)\.[:space:]?(?=[ендпк]\.)",".")
|
||||
|
||||
'Между буквами среднее тире должно обрамляться пробелами
|
||||
'Между буквами среднее тире должно обрамляться пробелами
|
||||
AskAndReplace("(?<=[:alpha:])–(?=[:alpha:])",NBSP & "–" & NBSP)
|
||||
'Между буквами дефис-минус, цифровое тире и длинное тире заменяется на среднее тире
|
||||
AskAndReplace("(?<=[:alpha:][:space:])[-‒—](?=[:space:][:alpha:])","–")
|
||||
'Между двумя цифрами и тире между ними не долнжо быть пробелов. А также тире должно быть цифровым
|
||||
AskAndReplace("(?<=[:digit:])(?:[:space:])?[-‒–—](?:[:space:])?(?=[:digit:])","‒")
|
||||
|
||||
AskAndReplace("(?<=[:digit:])(?:[:space:])?[-‒–—](?:[:space:])?(?=[:digit:])","‒")
|
||||
'Между двумя римскими цифрами и тире между ними не долнжо быть пробелов. А также тире должно быть средним
|
||||
AskAndReplace("(?<=[MDCLXVI])(?:[:space:])?[-‒–—](?:[:space:])?(?=[MDCLXVI])","–")
|
||||
|
||||
'Между буквой и угловой открывающейся скобкой должен быть пробел
|
||||
AskAndReplace("(?<=[:alpha:])<(?=…>)",space & "<")
|
||||
'Между угловой закрывающейся скобкой и буквой должен быть пробел
|
||||
AskAndReplace("(?<=<…)>(?=[:alpha:])",">" & space)
|
||||
AskAndReplace("[ий][\u0306]+","й")
|
||||
AskAndReplace("[ИЙ][\u0306]+","Й")
|
||||
AskAndReplace("[её][\u0308]+","ё")
|
||||
AskAndReplace("[ЕЁ][\u0308]+","Ё")
|
||||
AskAndReplace("(?<=<…)>(?=[:alpha:])",">" & space)
|
||||
|
||||
If config.getPropertyValue("fixes_russian_iph") = "true" Then
|
||||
'между N. Y. не должно быть пробела
|
||||
AskAndReplace("(?<=N\.)[:space:](?=Y\.)","")
|
||||
'Между словом том и цифрой должен быть неразрывный пробел, а не обычный
|
||||
AskAndReplace("(?<=\b[тТ](ом|\.))\ (?=[:digit:])",NBSP)
|
||||
'Между словом серия и цифрой должен быть неразрывный пробел, а не обычный
|
||||
AskAndReplace("(?<=\b[сС](ерия|\.))\ +(?=[:digit:])",NBSP)
|
||||
'Между словом часть и цифрой должен быть неразрывный пробел, а не обычный
|
||||
AskAndReplace("(?<=\b[чЧ](асть|\.))\ +(?=[:digit:])",NBSP)
|
||||
'Между числом и "г." должен быть неразрывный пробел, а не обычный
|
||||
AskAndReplace("(?<=[0-9])[:space:]*г(?=\.)",NBSP & "г")
|
||||
'Между инициалами и Фамилией должен быть неразрывный пробел, а не обычный
|
||||
'А.[м/б пробел]А.Иванов -> А.[м/б пробел]А. Иванов
|
||||
AskAndReplace("(?<=[:upper:]\.[:space:]?[:upper:])\.[:space:]?(?=[:upper:][:lower:]{1,30})","." & NBSP)
|
||||
' А.[пробел]А.Иванов -> А.А. Иванов
|
||||
AskAndReplace("(?<=[:upper:])\.[:space:](?=[:upper:]\.[:space:][:upper:][:lower:]{1,30})",".")
|
||||
'Между Фамилией и инициалами должен быть неразрывный пробел, а не обычный
|
||||
'Иванов А.[м/б пробел]А. -> Иванов А.А.
|
||||
AskAndReplace("(?<=[:upper:][:lower:]{1,30}[:space:][:upper:])\.[:space:]?(?=[:upper:]\.)",".")
|
||||
'Между "и" и "т." должен быть неразрывный пробел, а не обычный
|
||||
AskAndReplace("(?<=\bи)\ (?=т\.)",NBSP)
|
||||
'Между "т." и "е./н./д./п./к." не должно быть пробела
|
||||
AskAndReplace("(?<=\bт)\.[:space:]?(?=[ендпк]\.)",".")
|
||||
AskAndReplace("[ий][\u0306]+","й")
|
||||
AskAndReplace("[ИЙ][\u0306]+","Й")
|
||||
AskAndReplace("[её][\u0308]+","ё")
|
||||
AskAndReplace("[ЕЁ][\u0308]+","Ё")
|
||||
|
||||
EndIf
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub loadArticleStyles
|
||||
|
|
|
|||
|
|
@ -1,10 +1,11 @@
|
|||
<?xml version="1.0" encoding="UTF-8"?>
|
||||
<!DOCTYPE dlg:window PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "dialog.dtd">
|
||||
<dlg:window xmlns:dlg="http://openoffice.org/2000/dialog" xmlns:script="http://openoffice.org/2000/script" dlg:id="ConfigDialog" dlg:left="196" dlg:top="109" dlg:width="157" dlg:height="64" dlg:help-text="&23.ConfigDialog.HelpText" dlg:closeable="true" dlg:moveable="true" dlg:title="&24.ConfigDialog.Title">
|
||||
<dlg:window xmlns:dlg="http://openoffice.org/2000/dialog" xmlns:script="http://openoffice.org/2000/script" dlg:id="ConfigDialog" dlg:left="196" dlg:top="109" dlg:width="157" dlg:height="103" dlg:help-text="&23.ConfigDialog.HelpText" dlg:closeable="true" dlg:moveable="true" dlg:title="&24.ConfigDialog.Title">
|
||||
<dlg:bulletinboard>
|
||||
<dlg:checkbox dlg:id="CB_complexity" dlg:tab-index="0" dlg:left="5" dlg:top="13" dlg:width="150" dlg:height="19" dlg:value="Включить режим эксперта" dlg:checked="false"/>
|
||||
<dlg:button dlg:id="OK" dlg:tab-index="1" dlg:left="9" dlg:top="45" dlg:width="59" dlg:height="13" dlg:value="Сохранить" dlg:button-type="ok"/>
|
||||
<dlg:checkbox dlg:id="CB_complexity" dlg:tab-index="0" dlg:left="5" dlg:top="13" dlg:width="150" dlg:height="11" dlg:value="Включить режим эксперта" dlg:checked="false"/>
|
||||
<dlg:button dlg:id="OK" dlg:tab-index="1" dlg:left="15" dlg:top="85" dlg:width="59" dlg:height="13" dlg:value="Сохранить" dlg:button-type="ok"/>
|
||||
<dlg:button dlg:id="CommandButton1" dlg:tab-index="2" dlg:left="-132" dlg:top="41" dlg:width="2" dlg:height="0" dlg:value="CommandButton1"/>
|
||||
<dlg:button dlg:id="CANCEL" dlg:tab-index="3" dlg:left="77" dlg:top="45" dlg:width="59" dlg:height="13" dlg:value="Отмена" dlg:button-type="cancel"/>
|
||||
<dlg:button dlg:id="CANCEL" dlg:tab-index="3" dlg:left="83" dlg:top="85" dlg:width="59" dlg:height="13" dlg:value="Отмена" dlg:button-type="cancel"/>
|
||||
<dlg:checkbox dlg:id="cb_russian_fixes_iph" dlg:tab-index="4" dlg:left="5" dlg:top="26" dlg:width="150" dlg:height="11" dlg:value="Исправления для института философии" dlg:checked="true"/>
|
||||
</dlg:bulletinboard>
|
||||
</dlg:window>
|
||||
|
|
@ -13,6 +13,7 @@ Function initRedactionConfiguration()
|
|||
reg = regFactory.createPropertySetRegistry(redactionExtensionName)
|
||||
|
||||
redactionProps = reg.openPropertySet(redactionExtensionName, TRUE)
|
||||
redactionProps.addProperty("fixes_russian_iph", 128, "true")
|
||||
redactionProps.addProperty("complexity", 128, "user")
|
||||
exceptionHandler:
|
||||
Resume Next
|
||||
|
|
@ -26,11 +27,19 @@ End Function
|
|||
Private Sub setConfigFromDialog(dialog As Object)
|
||||
Dim config As Object
|
||||
config = initRedactionConfiguration()
|
||||
|
||||
If dialog.getControl("CB_complexity").state = 1 Then
|
||||
config.setPropertyValue("complexity", "makerUp")
|
||||
Else
|
||||
config.setPropertyValue("complexity", "user")
|
||||
EndIf
|
||||
|
||||
If dialog.getControl("cb_russian_fixes_iph").state = 1 Then
|
||||
config.setPropertyValue("fixes_russian_iph", "true")
|
||||
Else
|
||||
config.setPropertyValue("fixes_russian_iph", "false")
|
||||
EndIf
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub loadConfigToDialog(dialog As Object)
|
||||
|
|
@ -41,6 +50,13 @@ Private Sub loadConfigToDialog(dialog As Object)
|
|||
Else
|
||||
dialog.getControl("CB_complexity").state = 0
|
||||
EndIf
|
||||
|
||||
If config.getPropertyValue("fixes_russian_iph") = "true" Then
|
||||
dialog.getControl("cb_russian_fixes_iph").state = 1
|
||||
Else
|
||||
dialog.getControl("cb_russian_fixes_iph").state = 0
|
||||
EndIf
|
||||
|
||||
|
||||
End Sub
|
||||
|
||||
|
|
@ -50,6 +66,7 @@ Private Sub configurationDialog
|
|||
dialog = CreateUnoDialog(DialogLibraries.Redaction.ConfigDialog)
|
||||
loadConfigToDialog(dialog)
|
||||
dialog.getControl("CB_complexity").Label = getTranslation("dialogConfigComplexity")
|
||||
dialog.getControl("cb_russian_fixes_iph").Label = getTranslation("dialogRussianFixesIPH")
|
||||
dialog.Title = getTranslation("dialogConfigTitle")
|
||||
dialog.getControl("OK").Label = getTranslation("buttonYes")
|
||||
dialog.getControl("CANCEL").Label = getTranslation("buttonStop")
|
||||
|
|
|
|||
|
|
@ -200,6 +200,9 @@ Function getRussian(identifier As String) As String
|
|||
Case "dialogConfigTitle"
|
||||
getRussian = "Настройка чистки и проверки"
|
||||
Exit Function
|
||||
Case "dialogRussianFixesIPH"
|
||||
getRussian = "Исправления для текстов на русском"
|
||||
Exit Function
|
||||
Case Else
|
||||
getRussian = "Перевод не найден"
|
||||
End Select
|
||||
|
|
@ -263,8 +266,8 @@ Function getEnglish(identifier As String) As String
|
|||
getEnglish = "Remove page break at document start"
|
||||
Exit Function
|
||||
Case "advancedMenuFixMistakes"
|
||||
getEnglish = "Remove frequent mistakes"
|
||||
Exit Function
|
||||
getEnglish = "Fix frequent mistakes"
|
||||
Exit Function
|
||||
Case "advancedMenuConfigAnchors"
|
||||
getEnglish = "Configure image anchors for digital publications"
|
||||
Exit Function
|
||||
|
|
@ -382,6 +385,9 @@ Function getEnglish(identifier As String) As String
|
|||
Case "dialogConfigTitle"
|
||||
getEnglish = "Clean and validation configuration"
|
||||
Exit Function
|
||||
Case "dialogRussianFixesIPH"
|
||||
getEnglish = "Corrections for texts in Russian"
|
||||
Exit Function
|
||||
Case Else
|
||||
getEnglish = "No translation"
|
||||
End Select
|
||||
|
|
@ -563,6 +569,9 @@ Function getCroatian(identifier As String) As String
|
|||
Case "dialogConfigTitle"
|
||||
getCroatian = "Podešavanje čišćenja i provjere"
|
||||
Exit Function
|
||||
Case "dialogRussianFixesIPH"
|
||||
getCroatian = "Ispravci za tekstove na ruskom"
|
||||
Exit Function
|
||||
Case Else
|
||||
getCroatian = "No translation"
|
||||
End Select
|
||||
|
|
@ -744,6 +753,9 @@ Function getSerbian(identifier As String) As String
|
|||
Case "dialogConfigTitle"
|
||||
getSerbian = "Подешавање чишћења и провере"
|
||||
Exit Function
|
||||
Case "dialogRussianFixesIPH"
|
||||
getSerbian = "Исправци за текстове на руском"
|
||||
Exit Function
|
||||
Case Else
|
||||
getSerbian = "No translation"
|
||||
End Select
|
||||
|
|
@ -925,6 +937,9 @@ Function getBosnian(identifier As String) As String
|
|||
Case "dialogConfigTitle"
|
||||
getBosnian = "Podešavanje čišćenja i provjere"
|
||||
Exit Function
|
||||
Case "dialogRussianFixesIPH"
|
||||
getBosnian = "Ispravci za tekstove na ruskom"
|
||||
Exit Function
|
||||
Case Else
|
||||
getBosnian = "No translation"
|
||||
End Select
|
||||
|
|
|
|||
|
|
@ -2,9 +2,9 @@
|
|||
<description xmlns="http://openoffice.org/extensions/update/2006"
|
||||
xmlns:xlink="http://www.w3.org/1999/xlink">
|
||||
<identifier value="pro.litvinovg.Redaction"/>
|
||||
<version value="0.7.11" />
|
||||
<version value="0.7.12" />
|
||||
<update-download>
|
||||
<src xlink:href="https://dev.litvinovg.pro/litvinovg/cleanandvalidate/uploads/c7c134f3d5167364318cf4b1620799af/cleanAndValidate.oxt" />
|
||||
<src xlink:href="https://dev.litvinovg.pro/litvinovg/cleanandvalidate/uploads/ad227288b530f44b8c9b481c54ae9b20/cleanAndValidate.oxt" />
|
||||
</update-download>
|
||||
<release-notes>
|
||||
<src xlink:href="https://dev.litvinovg.pro/litvinovg/cleanandvalidate/-/raw/master/releasenotes.txt" lang="en" />
|
||||
|
|
|
|||
|
|
@ -3,7 +3,7 @@
|
|||
xmlns:dep="http://openoffice.org/extensions/description/2006"
|
||||
xmlns:xlink="http://www.w3.org/1999/xlink">
|
||||
<identifier value="pro.litvinovg.Redaction" />
|
||||
<version value="0.7.11" />
|
||||
<version value="0.7.12" />
|
||||
<platform value="all" />
|
||||
<display-name>
|
||||
<name lang="en">Cleaning and validation documents for publishing in html and epub with pagination</name>
|
||||
|
|
|
|||
|
|
@ -1,3 +1,4 @@
|
|||
0.7.12 Transaltions update, fix for mistakes added
|
||||
0.7.11 Serbian, Croatian, Bosnian translations added
|
||||
0.7.9 Translations improved
|
||||
0.7.5 Small fix for frequent mistakes macro
|
||||
|
|
|
|||
BIN
translations.ods
BIN
translations.ods
Binary file not shown.
Loading…
Add table
Reference in a new issue