From 9a72d7d7e07ec9bbf70241aeee64625eed7924c8 Mon Sep 17 00:00:00 2001
From: Georgy Litvinov <git@litvinovg.pro>
Date: Tue, 8 Sep 2020 16:41:08 +0200
Subject: [PATCH] Added on document load event

---
 Events.xcu             | 12 ++++++++++++
 META-INF/manifest.xml  |  1 +
 ePublishing/Events.xba | 12 ++++++++++++
 ePublishing/script.xlb |  1 +
 4 files changed, 26 insertions(+)
 create mode 100644 Events.xcu
 create mode 100644 ePublishing/Events.xba

diff --git a/Events.xcu b/Events.xcu
new file mode 100644
index 0000000..2277a09
--- /dev/null
+++ b/Events.xcu
@@ -0,0 +1,12 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<oor:component-data xmlns:oor="http://openoffice.org/2001/registry" xmlns:xs="http://www.w3.org/2001/XMLSchema" oor:name="Events" oor:package="org.openoffice.Office">
+<node oor:name="ApplicationEvents">
+	<node oor:name="Bindings">
+		<node oor:name="OnStartApp" oor:op="replace">
+			<prop oor:name="BindingURL" oor:type="xs:string">
+				<value>vnd.sun.star.script:Standard.Module1.Main?language=Basic&amp;location=application</value>
+			</prop>
+		</node>
+	</node>
+</node>
+</oor:component-data>
diff --git a/META-INF/manifest.xml b/META-INF/manifest.xml
index 1b9f359..417fa9f 100644
--- a/META-INF/manifest.xml
+++ b/META-INF/manifest.xml
@@ -2,5 +2,6 @@
 <manifest:manifest>
  <manifest:file-entry manifest:full-path="ePublishing/" manifest:media-type="application/vnd.sun.star.basic-library"/>
  <manifest:file-entry manifest:full-path="Addons.xcu" manifest:media-type="application/vnd.sun.star.configuration-data"/>
+ <manifest:file-entry manifest:full-path="Events.xcu" manifest:media-type="application/vnd.sun.star.configuration-data"/>
  <manifest:file-entry manifest:full-path="Office/UI/WriterWindowState.xcu" manifest:media-type="application/vnd.sun.star.configuration-data"/>
 </manifest:manifest>
diff --git a/ePublishing/Events.xba b/ePublishing/Events.xba
new file mode 100644
index 0000000..3bafeb3
--- /dev/null
+++ b/ePublishing/Events.xba
@@ -0,0 +1,12 @@
+<?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="Events" script:language="StarBasic" script:moduleType="normal">Sub execOnDocumentLoad
+  Dim fixCompatibilityOption As Boolean
+  fixCompatibilityOption = true
+  If fixCompatibilityOption Then
+    Dim oDocSettings As Object
+    oDocSettings = ThisComponent.createInstance( &quot;com.sun.star.document.Settings&quot; )
+    oDocSettings.setPropertyValue(&quot;AddParaSpacingToTableCells&quot;, false)
+  EndIf
+End Sub
+</script:module>
\ No newline at end of file
diff --git a/ePublishing/script.xlb b/ePublishing/script.xlb
index ea7d1b6..67b4031 100644
--- a/ePublishing/script.xlb
+++ b/ePublishing/script.xlb
@@ -11,4 +11,5 @@
  <library:element library:name="MakeUp"/>
  <library:element library:name="PageStyles"/>
  <library:element library:name="Translations"/>
+ <library:element library:name="Events"/>
 </library:library>
\ No newline at end of file