litvinovg/cleanandvalidate
1
0
Fork 0
Code Issues 4 Pull requests Projects Releases 50 Packages Wiki Activity Actions

Test works

Browse source
This commit is contained in:
George Litvinov 2019-10-16 15:54:28 +03:00
parent 034efe584b
commit 827520ee7f
4 changed files with 28 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

25
Addons.xcu
View file

@ -44,6 +44,11 @@
<value>%origin%/icons/img-48</value>
</prop>
</node>
<node oor:name="buttonClean" oor:op="replace">
<prop oor:name="Context" oor:type="xs:string">
<value>com.sun.star.text.GlobalDocument,com.sun.star.text.TextDocument,com.sun.star.text.WebDocument</value>
</prop>
</node>
</node>
<node oor:name="buttonValidate" oor:op="replace">
<prop oor:name="Context" oor:type="xs:string">
@ -60,7 +65,25 @@
<value>_self</value>
</prop>
<prop oor:name="ImageIdentifier" oor:type="xs:string">
<value>%origin%/icons/img-48</value>
<value>%origin%/icons/img-48.png</value>
</prop>
</node>
<node oor:name="buttonClean" oor:op="replace">
<prop oor:name="Context" oor:type="xs:string">
<value>com.sun.star.text.GlobalDocument,com.sun.star.text.TextDocument,com.sun.star.text.WebDocument</value>
</prop>
<prop oor:name="Title" oor:type="xs:string">
<value xml:lang="ru">Чистка</value>
<value xml:lang="en">Purification</value>
</prop>
<prop oor:name="URL" oor:type="xs:string">
<value>macro:///IPHRedaction.Clean.cleanButton</value>
</prop>
<prop oor:name="Target" oor:type="xs:string">
<value>_self</value>
</prop>
<prop oor:name="ImageIdentifier" oor:type="xs:string">
<value>%origin%/icons/img-48.png</value>
</prop>
</node>

BIN
IPHRedaction.oxt
View file

Binary file not shown.

7
IPHRedaction/Clean.xba
View file

@ -67,14 +67,13 @@
saveAndreload()
End Sub
Sub cleanButton
MsgBox "Clean Works!"
End Sub
Sub workaroundForDiacriticKerningBug
AskAndReplace("([:print:][\u0300-\u036F])","$1")
End Sub
Sub validate
MsgBox TEST WORKS
End Sub
Sub executeCitationCorrection
StartTracking
AskAndReplace("(?&lt;=[:alpha:])&lt;(?=…&gt;)"," &lt;")

2
IPHRedaction/Validation.xba
View file

@ -72,7 +72,7 @@ Sub workaroundForDiacriticKerningBug
End Sub
Sub validate
MsgBox TEST WORKS
MsgBox "Validation works!"
End Sub
Sub executeCitationCorrection