Modification de fichiers avec une phrase par ligne

Un peu d'histoire.

J'essaie de contrôler la version de mes documents en latex, et l'efficacité de cette initiative serait grandement améliorée si j'adoptais une approche d' une phrase par ligne .

Par exemple, voici à quoi ressembleront mes documents.

Some text here.
New stencence on the same paragraph.
Some more text, still on the same paragraph.

This is another paragraph.

Ma question est simple.
Dans quelle mesure puis-je automatiser / améliorer avec Emacs?

Je pense aux deux points suivants.

1. Mes phrases sont longues , je dois donc envelopper les lignes sans vraiment les remplir. Autrement dit, une très longue phrase doit être affichée sur plusieurs lignes sur mon écran, mais elle doit être une seule ligne dans le fichier «.tex» . Cela se ferait de préférence d'une manière qui n'emballe pas les équations.

   visual-line-modeenveloppe à la largeur de la fenêtre, qui est trop large. J'ai besoin de quelque chose qui enveloppe les lignes et limite leur largeur à environ 80 caractères. Tout comme le fill-paragraphferait normalement, mais sans réellement briser les lignes du fichier.

2. Je peux couper manuellement la ligne après chaque phrase, mais il serait hautement préférable de configurer fill-paragraph(ou peut-être même auto-fill-mode) de mettre également une phrase par ligne.

Si vous voulez juste quelque chose comme visual-line-modemais configurable, vous pouvez essayer longlines-modece que j'utilise pour la plupart de ma prose. longlines-modeenveloppe votre texte de la même manière visual-line-modequ'avec la largeur configurée par fill-column.

Voici une capture d'écran fill-columndéfinie sur 70(la fenêtre s'étend en fait encore plus vers la droite).

La configuration fill-paragraphserait bien, mais je ne sais pas comment le faire. Au lieu de cela, voici un hack temporaire raisonnable: rendez votre .personnage électrique en mode TeX, en insérant une nouvelle ligne. Cela implique simplement de le relier dans le hook de mode approprié:

(defun my-electric-dot ()
  (interactive)
  (insert ".\n"))
(defun my-tex-hook ()
  (local-set-key (kbd ".") 'my-electric-dot))
(add-hook 'TeX-mode-hook 'my-tex-hook)

Pour (1), j'utiliserais une marge agrandie, de sorte que les visual-line-modelignes s'enroulent au niveau souhaité fill-column. Cela affectera à la fois les lignes de texte et les équations.

Comme pour (2), on peut définir une commande de remplissage personnalisée à lier M-qet à remplir correctement les paragraphes. Je n'ai pas encore réussi à écrire une commande avec le comportement correct pour le remplissage automatique.

Envelopper tout cela dans un mode mineur pourrait ressembler à ce qui suit. Ce n'est pas un très beau code, mais devrait fonctionner dans la plupart des cas. (J'ai la unfill-paragraphfonction dans mon init.eldepuis un certain temps sans remarquer de problèmes).

(define-minor-mode ospl-mode
  "One Sentence Per Line"
  :init-value nil
  :lighter " ospl"
  :keymap (let ((map (make-sparse-keymap)))
            (define-key map (kbd "M-q") 'ospl/fill-paragraph)
            map)

  (if ospl-mode
      (progn
        (visual-line-mode 1)
        (setq right-margin-width (- (window-body-width) fill-column)))
    (visual-line-mode -1)
    (setq right-margin-width 0))

  ;; Account for new margin width
  (set-window-buffer (selected-window) (current-buffer)))


(defun ospl/unfill-paragraph ()
  "Unfill the paragraph at point.

This repeatedly calls `join-line' until the whole paragraph does
not contain hard line breaks any more."
  (interactive)
  (forward-paragraph 1)
  (forward-paragraph -1)
  (while (looking-at paragraph-start)
    (forward-line 1))
  (let ((beg (point)))
    (forward-paragraph 1)
    (backward-char 1)
    (while (> (point) beg)
      (join-line)
      (beginning-of-line))))


(defun ospl/fill-paragraph ()
  "Fill the current paragraph until there is one sentence per line.

This unfills the paragraph, and places hard line breaks after each sentence."
  (interactive)
  (save-excursion
    (fill-paragraph)         ; takes care of putting 2 spaces if needed
    (ospl/unfill-paragraph)  ; remove hard line breaks

    ;; insert line breaks again
    (let ((end-of-paragraph (make-marker)))
      (save-excursion
        (forward-paragraph)
        (backward-sentence)
        (forward-sentence)
        (set-marker end-of-paragraph (point)))
      (forward-sentence) 
      (while (< (point) end-of-paragraph)
        (just-one-space)
        (delete-backward-char 1)
        (newline)
        (forward-sentence))
      (set-marker end-of-paragraph nil)))) 

Vos problèmes de contrôle de version seraient-ils évités / résolus si vous utilisez git diff --color-words ou latexdiff? Ensuite, vous pouvez regarder les mots modifiés.

Une façon d'améliorer cela que j'utilise (parfois) depuis plusieurs années est d'afficher des phrases avec des sauts de ligne qui s'écoulent les uns après les autres en pliant les sauts de ligne en utilisant les fonctionnalités de tex-fold(une partie d'AUTCTeX).

Cela signifie que ce

Lorem ipsum dolor sit amet, consectetur adipiscing elit.
Mauris pellentesque fringilla justo, quis dapibus velit tincidunt quis?
Quisque varius ligula arcu, ut imperdiet risus maximus nec.

est plié

Lorem ipsum dolor sit amet, consectetur adipiscing elit⁎ Mauris pellentesque fringilla justo, quis dapibus velit tincidunt quis❓  Quisque varius ligula arcu, ut imperdiet risus maximus nec⁎

J'ai récemment mis cela ensemble en tant que mode mineur dans un package. Peut-être que quelqu'un d'autre trouvera également cela utile: https://github.com/andersjohansson/tex-fold-linebreaks