--Wyrzucanie smieci z tekstow. (c) Janusz Legoń, 1997-1999 ---------
-- Ten skrypt usuwa: podwójne entery, podwójne spacje, podwójne tabulatory. 
-- Zamienia dywizy na pauzy oraz wiszace litery: i, a, w - na twarde spacje
-- Zachecam do zmian i uzupelnien pod warunkiem przeslania poprawionej wersji pod adres jlegon@rsipl.com

message "                                           Sekretarken kiler  ver. 0.09                                   "  
message ""
message " Usuwa typowe usterki zecerskie tekstów pisanych bez znajomosci zasad skladu."
message "               Wbrew nazwie - bezpieczny dla Twojej ulubionej sekretarki !"
message ""

message "                                                (c) Janusz Legoń                                  " 
message "                           e-mail: jlegon@rsipl.com, http://www.rsipl.com/cicero                                  "

GetPMState >> PMState
if PMState = 2
	EditStory
endif
if PMState = 3
	EditStory
endif
if PMState = 4
	EditStory
endif

errorchecking off

--podwojne entery
changeall "^p^p", "^p", 1, anycase, allinstances, clear
--podwojne spacje
changeall "  ", " ", 1, anycase, allinstances, clear
changeall "^s ", "^s", 1,  anycase, allinstances, clear
--podwojne tabulatory
changeall "^t^t", "^t", 1,anycase, allinstances, clear
--dydwiz na pauze
changeall " - ", " – ", 1, stopatend, anycase, allinstances, clear
--enter2spacja
changeall "^p ", "^p", 1, stopatend, anycase, allinstances, clear
--enter2tab
changeall "^p^t", "^p", 1, stopatend, anycase, allinstances, clear


-- wiszące litery
--wiszące "z"
changeall " z ", " z^s", 1, anycase, allinstances, clear
--wiszące "u"
changeall " u ", " u^s", 1, anycase, allinstances, clear
--wiszące "i"
changeall " i ", " i^s", 1, anycase, allinstances, clear
--wiszące "a"
changeall " a ", " a^s", 1, anycase, allinstances, clear
--wiszące "w"
changeall " w ", " w^s", 1, anycase, allinstances, clear
--wiszące "o"
changeall " o ", " o^s", 1, anycase, allinstances, clear

-- przecinki, kropki i dwukropki i średniki ze spacją z przodu
--message "Poprawia przecinki, kropki i dwukropki i średniki ze spacją z przodu"
--wiszące ","
changeall " ,", ",", 1, anycase, allinstances, clear
changeall " .", ".", 1, anycase, allinstances, clear
changeall " ;", ";", 1, anycase, allinstances, clear
changeall " :", ":", 1, anycase, allinstances, clear

-- cale i cudzyslowy
changeall " ^}", " „", 1, anycase, allinstances, clear
changeall " /", " „", 1, anycase, allinstances, clear
changeall "/ ", "^} ", 1, anycase, allinstances, clear

errorchecking on


if PMState = 2
	EditLayout
endif
if PMState = 3
	EditLayout
endif
if PMState = 4
	CloseStory place
endif

message "Gotowe ! Jesli masz jeszcze brudy, uruchom skrypt ponownie. "
return