litvinovg/epublishing
1
0
Fork 0
Code Issues Pull requests Projects Releases 33 Packages Wiki Activity Actions

new version

Browse source
This commit is contained in:
Georgy Litvinov 2020-05-08 17:17:01 +02:00
parent c9b2e2d6fd
commit 15a423b3c4
3 changed files with 9 additions and 11 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
description.xml
View file

@ -3,7 +3,7 @@
xmlns:dep="http://openoffice.org/extensions/description/2006"
xmlns:xlink="http://www.w3.org/1999/xlink">
<identifier value="pro.litvinovg.epublishing" />
<version value="0.5.8" />
<version value="0.5.9" />
<platform value="all" />
<display-name>
<name lang="ru">Инструменты для создания электронных изданий</name>

12
ePublishing/Archive.xba
View file

@ -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="Archive" script:language="StarBasic" script:moduleType="normal">Sub archMark9
<script:module xmlns:script="http://openoffice.org/2000/script" script:name="Archive" script:language="StarBasic" script:moduleType="normal">Sub archMark10
End Sub
@ -193,19 +193,19 @@ sub convertIndesignPageBreaks
MsgBox getTranslation(&quot;convertIndesignPageBreaksFinish&quot;)
end Sub
Sub adjustLastLine(oTextCursor)
Sub adjustLastLine(oTextCursor As Object)
oTextCursor.ParaAdjust = 2
oTextCursor.ParaLastLineAdjust = 2
balancePara(oTextCursor)
End Sub
Sub adjustFirstLine(oTextCursor)
Sub adjustFirstLine(oTextCursor As Object)
oTextCursor.goRight(1,false)
oTextCursor.ParaFirstLineIndent = 0
End Sub
Function isLowerCase(character) As Boolean
Function isLowerCase(character As String) As Boolean
Dim charNum As Integer
If (character = &quot;&quot;) Then
charNum = ASC(&quot;&quot;+0)
@ -219,7 +219,7 @@ Function isLowerCase(character) As Boolean
isLowerCase = false
End Function
Sub balancePara(Optional targetPara As Object)
Sub balancePara(targetPara As Object)
&apos; Globalscope.BasicLibraries.LoadLibrary( &quot;MRILib&quot; )
Dim oViewCursor As Object
Dim oTextCursor As Object
@ -238,9 +238,7 @@ Sub balancePara(Optional targetPara As Object)
initialLineCount = 0
oViewCursor = ThisComponent.CurrentController.getViewCursor()
If NOT IsMissing(targetPara) Then
oViewCursor.goToRange(targetPara, false)
EndIf
oTextCursor = oViewCursor.Text.createTextCursorByRange(oViewCursor)
oPara = oViewCursor.Text.createTextCursorByRange(oViewCursor)

4
epublishing.update.xml
View file

@ -2,9 +2,9 @@
<description xmlns="http://openoffice.org/extensions/update/2006"
xmlns:xlink="http://www.w3.org/1999/xlink">
<identifier value="pro.litvinovg.epublishing"/>
<version value="0.5.8" />
<version value="0.5.9" />
<update-download>
<src xlink:href="https://dev.litvinovg.pro/litvinovg/epublishing/uploads/80ff2b1887d50df27b4e0d1a1d616a0e/ePublishing.oxt" />
<src xlink:href="https://dev.litvinovg.pro/litvinovg/epublishing/uploads/f468e6b9a01e9a1c5f81913dc95f9507/ePublishing.oxt" />
</update-download>
<release-notes>
<src xlink:href="https://dev.litvinovg.pro/litvinovg/epublishing/-/raw/master/releasenotes.txt" lang="en" />