[EMAIL PROTECTED] (Michal Jankowski) writes:
> [EMAIL PROTECTED] (Paul Ortyl) writes:
>
>> Mam w kontekście jednoliterowych wyrazów jedno pytanko
>> odnośnie LaTeX'a: czy można zmusić system do automatycznego
>> przenoszenia tychże ,,literek'' do następnego wiersza, czy też muszę
>> zawsze przy pisaniu pamiętać o spacji niedzielącej?
>
> Mozesz do przygotowania tekstu uzyc edytora, ktory bedzie pamietal za
> ciebie...
>
> MJ
...na przykład Emacsa, gdzie można skorzystać ze ,,spacji magicznej''
zdefiniowanej przez niejakiego Michała Jankowskiego ;-)
Ja mam coś takiego w .emacs:
;; Magic space by Michal Jankowski <[EMAIL PROTECTED]>
;; 'Ręcznie' można ją włączyć za pomocą M-x local-set-key SPC tex-magic-space.
(defun tex-magic-space ()
"Magic-space - inserts non-breakable space after a single-letter word."
(interactive)
(if (string-match
"^\\(\\s \\|~\\|{\\)?[aeiouwz]$" ;; AP: dodałem nawias
;; klamrowy do alternatywy
(buffer-substring (max (point-min) (- (point) 2)) (point)))
(insert "~")
(insert " ")
(and auto-fill-function
(funcall auto-fill-function))))
; Make space magic space in reftex.
(defun tex-toggle-magic-space ()
"Toggles TeX magic space, which inserts non-breakable space after a single-letter
word"
(interactive)
(progn
(if (equal (lookup-key reftex-mode-map " ") 'tex-magic-space)
(progn
(define-key reftex-mode-map " " nil)
(local-unset-key " ")) ; to be sure
(define-key reftex-mode-map " " 'tex-magic-space))
(message "SPC is bound to %s" (lookup-key reftex-mode-map " "))))
; C-c SPC toggles magic space:
(define-key mode-specific-map " " 'tex-toggle-magic-space) ; C-c SPC
; Let's start with SPC bound to 'tex-magic-space:
(add-hook 'reftex-mode-hook
(function
(lambda ()
(define-key reftex-mode-map " " 'tex-magic-space))))
--
Adam P.
