Makrá v OpenOffice.org: Typografické úpravy textu (10)

Jednou z kritizovaných častí OpenOffice.org je o. i. to, že nemá štandardne zabudovaný nástroj na vkladanie nezalomiteľných medzier za jednoznakové predložky a spojky priamo počas ich písania. Aby sme odstránili tento nedostatok OpenOffice.org, uvedieme si funkcie, ktoré to dokážu urobiť. Funkcie uložíme, samozrejme, do osobitného modulu Nezalomitelne_predlozky_funkcie.

Aby sme OpenOffice.org v tomto smere povýšili ešte viac, nebudeme vkladať nezalomiteľné medzery iba za jednoznakové predložky a spojky, ale za akékoľvek texty, ktoré si zadefinujeme v profile pre typografické zámeny. Pravdaže, v typografii sa nevkladajú nezalomiteľné medzery iba „za“, ale aj „pred“ určité texty – napr. pred akademické tituly, ktoré sa uvádzajú za menom a preto umožníme aj takéto zámeny (samozrejme, aj s testovaním, netestovaním či dokonca s opravou veľkých a malých písmen).

REM On-line vkladanie NBSP
global JP_ObsluhaKlavesnice as object
global JP_AktualnyJazyk, JP_On_line_Profil, JP_pred_vm, JP_pred_oprava, JP_pred_bez, JP_za_vm, JP_za_oprava, JP_za_bez as string
global JP_WJ as boolean

REM Procedúra pre načítanie konkrétnych reťazcov (za, pred …)
sub nastav_texty(jazyk as string)
 dim bNacitaj as boolean : bNacitaj=false
 if Profily_funkcie.JP_aktualny_profil="" then
  bNacitaj=true
  Profily_funkcie.JP_aktualny_profil="Default"
 endif
 if JP_On_line_Profil="" or (JP_On_line_Profil<>Profily_funkcie.JP_aktualny_profil) then
  JP_On_line_Profil=Profily_funkcie.JP_aktualny_profil
  bNacitaj=true
 endif
 if bNacitaj or (jazyk<>JP_AktualnyJazyk) then ' Ak nemáme nastavené texty podľa odpamätaného jazyka, nastavíme ich
  JP_pred_vm=nacitaj_subor("ProfilM_"+Profily_funkcie.JP_aktualny_profil+"_pred_vm_"+jazyk)
  JP_pred_oprava=nacitaj_subor("ProfilM_"+Profily_funkcie.JP_aktualny_profil+"_pred_oprava_"+jazyk)
  JP_pred_bez=nacitaj_subor("ProfilM_"+Profily_funkcie.JP_aktualny_profil+"_pred_bez_"+jazyk)
  JP_za_vm=nacitaj_subor("ProfilM_"+Profily_funkcie.JP_aktualny_profil+"_za_vm_"+jazyk)
  JP_za_oprava=nacitaj_subor("ProfilM_"+Profily_funkcie.JP_aktualny_profil+"_za_oprava_"+jazyk)
  JP_za_bez=nacitaj_subor("ProfilM_"+Profily_funkcie.JP_aktualny_profil+"_za_bez_"+jazyk)
  JP_AktualnyJazyk=jazyk
  Citaj_definiciu_profilu
 endif
end sub

REM Procedúra, ktorá spustí vlastnú obsluhu klávesnice
sub SpustiObsluhuKlavesnice
 dim ObsluhaDokumentu
 on error goto next
 ' Obsluhu klávesnice spustíme iba vtedy, ak vôbec povolili zámenu predložiek
 ' a zároveň chceme túto zámenu robiť ON-line
 if ThisComponent.supportsService("com.sun.star.text.TextDocument") then
  ' Sme v textovom dokumente, kde chceme nahrádzať medzery
  UkonciObsluhuKlavesnice ' Ak už je spustená obsluha, viedlo by to k násobnému vkladaniu – preto ju preventívne zrušíme
  ObsluhaDokumentu = ThisComponent.getCurrentController
  if isnull(JP_ObsluhaKlavesnice) then JP_ObsluhaKlavesnice = createUnoListener("Klavesnica_","com.sun.star.awt.XKeyHandler") ' Ak nie je, pripravíme odkaz na obsluhu klávesnice
  ObsluhaDokumentu.addKeyHandler(JP_ObsluhaKlavesnice) ' Spojenie našej obsluhy klávesnice so štandardnou
 endif
end sub

REM Procedúra, ktorá ukončí vlastnú obsluhu klávesnice
sub UkonciObsluhuKlavesnice
 dim ObsluhaDokumentu
 on error goto next
 if ThisComponent.supportsService("com.sun.star.text.TextDocument") then
  ObsluhaDokumentu = ThisComponent.getCurrentController
  ' Sme v textovom dokumente a chceme ukončiť obsluhu klávesnice
  if not isnull(JP_ObsluhaKlavesnice) then ObsluhaDokumentu.removeKeyHandler(JP_ObsluhaKlavesnice)
 endif
end sub

REM Funkcia pre vloženie NBSP okolo reťazca
REM Funkcia sa volá pri stlačení medzery, teda sme na konci práve vloženého slova
function VlozZnak as boolean
 dim ViditelnyKurzor, AktualnyText, AktualnyKurzor as object
 dim vlozit as long
 dim Retazec as string

 if JP_WJ then
  Retazec=chr$(&H2060)+" " ' Word Joiner + medzera
 else
  retazec=chr$(&HA0) ' No Break Space
 endif
  
 ViditelnyKurzor = ThisComponent.getCurrentController().getViewCursor() ' Aktuálna pozícia kurzoru v texte
 nastav_texty(ViditelnyKurzor.CharLocale.Language) ' Nastavenie testovaných slov podľa aktuálneho jazyka znaku (sk, cs, …)
 if IsEmpty(ViditelnyKurzor.Cell) then ' Identifikácia, či kurzor nie je v textovej tabuľke
  AktualnyText = ThisComponent.getText()
 else ' Sme v tabuľke 
  AktualnyText = ViditelnyKurzor.cell
 endif
 AktualnyKurzor = AktualnyText.createTextCursorByRange(ViditelnyKurzor.getStart() ) ' Vytvorenie pomocného kurzoru na označenie a zistenie posledného slova
 
 AktualnyKurzor.gotoStartOfWord(false) ' Označíme posledné slovo
 AktualnyKurzor.goLeft(1, false) ' Označíme s jedným znakom pred
 AktualnyKurzor.gotoRange(ViditelnyKurzor.getStart(), true )
 
 if AktualnyKurzor.string="." then ' Ak je posledné slovo iba bodka, nerobíme nič
  AktualnyKurzor.collapseToEnd() ' Zrušíme označenie
  VlozZnak=false
  exit function
 endif
 
 Vlozit=instr(1,JP_pred_vm,AktualnyKurzor.string+" ",0) ' Zistíme, či treba vložiť pred s rozoznávaním veľkosti písma
 if Vlozit=0 then Vlozit=instr(1,JP_pred_bez,AktualnyKurzor.string+" ",1) ' Zistíme, či treba vložiť pred bez ohľadu na veľkosť písma
 if Vlozit<>0 then ' Ak áno, nahradíme medzeru pred
  AktualnyKurzor.setstring(Retazec+(right(AktualnyKurzor.string,len(AktualnyKurzor.string)-1))
 else
  Vlozit=instr(1,JP_pred_oprava,AktualnyKurzor.string+" ",1) ' Zistíme, či treba vložiť pred s opravou (nerozoznávame pri hľadaní malé a veľké písmená)
  if Vlozit<>0 then ' Ak áno, nahradíme medzeru pred plus opravíme text
   spom=mid(JP_pred_oprava,Vlozit+1,len(AktualnyKurzor.string)-1)
   AktualnyKurzor.setstring(Retazec+spom)
  endif
 endif
 
 AktualnyKurzor.collapseToEnd() ' Zrušíme označenie
 AktualnyKurzor.gotoStartOfWord(false) ' Označíme posledné slovo
 AktualnyKurzor.gotoRange(ViditelnyKurzor.getStart(), true )
 
 Vlozit=instr(1,JP_za_vm," "+AktualnyKurzor.string+" ",0) ' Zistíme, či treba vložiť za s rozoznávaním veľkosti písma
 if Vlozit=0 then Vlozit=instr(1,JP_za_bez," "+AktualnyKurzor.string+" ",1) ' Zistíme, či treba vložiť za bez ohľadu na veľkosť písma
 if Vlozit<>0 then ' Ak áno, nahradíme medzeru za
  AktualnyKurzor.setstring(AktualnyKurzor.string+Retazec)
 else
  Vlozit=instr(1,JP_za_oprava," "+AktualnyKurzor.string+" ",1) ' Zistíme, či treba vložiť za s opravou (nerozoznávame pri hľadaní malé a veľké písmená)
  if Vlozit<>0 then ' Ak áno, nahradíme medzeru za plus opravíme text
   spom=mid(JP_za_oprava,Vlozit+1,len(AktualnyKurzor.string))
   AktualnyKurzor.setstring(spom+Retazec)
  endif
 endif

 AktualnyKurzor.collapseToEnd() ' Zrušíme označenie
 if Vlozit<>0 then AktualnyText.insertString(AktualnyKurzor.getStart(), "", true)
 VlozZnak=Vlozit<>0
end function

REM Funkcia, ktorá sa volá pri stlačení ľubovoľnej klávesy
function Klavesnica_KeyPressed(StlacenaKlavesa) as boolean
' Obsluha stlačenej klávesy
 dim Obsluzena as boolean
 'Predpokláme, že sme nič nevložili
 Obsluzena=False
 if StlacenaKlavesa.KeyChar=" " then ' Stlačili sme medzeru
  Obsluzena=VlozZnak ' test posledného slova a vloženie príslušnej medzery
 endif
 Klavesnica_KeyPressed=Obsluzena ' Ak je návratová hodnota FALSE, OO.o zavolá štandardný program pre obsluhu stlačenej klávesy, inak ho nevolá
end function

REM Funkcia, ktorá sa volá pri pustení ľubovoľnej klávesy
function Klavesnica_KeyReleased(StlacenaKlavesa) as boolean
 ' Obsluha pustenej klávesy
 Klavesnica_KeyReleased = False ' Návratová hodnota je FALSE, OO.o zavolá štandardný program pre obsluhu pustenej klávesy
end function