Satır başına bir cümle ile dosyaları düzenleme

Biraz arka plan.

Lateks belgelerimin sürümünü kontrol etmeye çalışıyorum ve satır başına bir cümle yaklaşımı benimsemede bu girişimin etkinliği büyük ölçüde artacaktır .

Örneğin, belgelerim nasıl görüneceği aşağıdadır.

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

This is another paragraph.

Benim sorum basit.
Emacs ile bunun ne kadarını otomatikleştirebilir / iyileştirebilirim?

Aşağıdaki iki nokta aklımdakiler.

1. Cümlelerim uzun , bu yüzden gerçekten doldurmadan satırları sarmam gerekiyor. Yani, ekranımdaki birkaç satırda çok uzun bir cümlenin gösterilmesi gerekiyor, ancak “.tex” dosyasında tek bir satır olması gerekiyor . Bu, tercihen denklemleri sarmayacak şekilde yapılır.

   visual-line-modepencere genişliğinde kaydırılır, bu çok geniş. Satırları saran ve genişliklerini 80 ya da daha fazla karakterle sınırlayan bir şeye ihtiyacım var. Tıpkı fill-paragraphnormalde olduğu gibi , ancak aslında dosyadaki satırları kesmeden.

2. Her cümlenin ardından satırı manuel olarak ayırabilirim, ancak her satıra da bir cümle koyacak şekilde yapılandırabilirsem fill-paragraph(veya belki de auto-fill-mode).

Sadece gibi bir şey yapmak istiyorsanız visual-line-mode, fakat yapılandırılabilir bir şey istiyorsanız, longlines-modenesirimin çoğunda ne kullandığımı deneyebilirsiniz . longlines-modemetninizi visual-line-mode, yapılandırılan genişliğe benzer şekilde kaydırır fill-column.

İşte fill-columnayarlanmış bir ekran görüntüsü 70(pencere aslında sağa doğru daha da genişliyor).

Yapılandırma fill-paragraphdüzgün olurdu, ama nasıl yapacağımdan emin değilim. Bunun yerine, işte makul bir geçici saldırı: .karakterinizi yeni bir çizgi ekleyerek TeX modunda elektrikli hale getirin . Bu sadece uygun mod kancası ne olursa olsun onu yeniden birleştirmeyi içerir:

(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)

(1) visual-line-modeiçin, istenen çizgileri saracak şekilde genişletilmiş bir kenar boşluğu kullanırdım fill-column. Bu olsa da, hem metin hem de denklemleri etkileyecektir.

(2) 'ye gelince, biri M-qparagraflara bağlı ve doğru doldurulması gereken özel bir doldurma komutu tanımlayabilir . Otomatik doldurma için doğru davranışı içeren bir komut yazmayı henüz başaramadım.

Bunları küçük bir modda silmeniz aşağıdaki gibi görünebilir. Çok güzel bir kod değil, ancak çoğu durumda çalışması gerekir. ( Sorunları farketmeden uzun zamandır bu unfill-paragraphişlevde bulundum init.el).

(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)))) 

Git diff --color-words veya latexdiff kullanıyorsanız sürüm kontrolü sorunlarınızdan kaçınılır mı / çözülür mü? Sonra değiştirilen kelimelere bakabilirsiniz.

Birkaç yıldır (bazen) kullandığım bunu geliştirmenin bir yolu, (AUCTeX'in bir bölümünü) olanaklarını kullanarak satır sonlarını katlayarak satır sonları ile birbiri ardına akan tex-foldsatırları göstermektir.

Bu demek ki

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.

katlanmış

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⁎

Geçenlerde bunu bir pakette küçük bir mod olarak bir araya getirdim. Belki başka biri de bunu faydalı bulabilir: https://github.com/andersjohansson/tex-fold-linebreaks