Boguslaw Olszewski wrote:
> Dnia Sat, Apr 21, 2001 at 09:02:25PM +0900, Tomasz Kowalski napisa:
> > Na przyklad:
> >
> > --------------------
> > (defun upcase-downcase-fricasse ()
> > (interactive)
> > (downcase-region (point-min) (point-max))
> > (goto-char (point-min))
> > (if (not (equal (current-word) ""))
> > (progn
> > (setq slowo (upcase-initials (current-word)))
> > (kill-word 1)
> > (insert slowo)))
> > (while (re-search-forward "\n" nil t)
> > (if (equal (match-string 0) "\n")
> > (if
> > (not (equal (current-word) ""))
> > (progn
> > (setq slowo (upcase-initials (current-word)))
> > (kill-word 1)
> > (insert slowo))))))
> > -------------------------
>
> Sorki ale nie jestem "orlem" w emacsie. Moglby kolega krotko wyjasnic co to r
>obi i jak to uruchomic?
Zmienia duze na male zostawiajac duza litere na poczatku wiersza. Tak mialo
byc, prawda?
Uruchomic (na przyklad) tak: Wstawic toto do jakiegos bufora.
Powiedziec w tym buforze:
M-x eval-buffer
Wejsc do tego czegos, co chcemy obrobic. Powiedziec:
M-x upcase-downcase-fricasse
Pozdrawiam.
Tomek Kowalski
P.S. Ale jest tez ten skrypt perlisty, co go ktos podeslal, wiec ... ja tylko
dlatego, ze w pytaniu bylo:
> Czy da si� to zrobi� w emacsie? A mo�e kto� ma jaki� skrypcik...
T.K.
