Mengedit file dengan satu kalimat per baris

Sedikit latar belakang.

Saya mencoba untuk mengontrol versi dokumen lateks saya, dan keefektifan inisiatif ini akan sangat meningkat jika saya mengadopsi pendekatan satu kalimat per baris .

Sebagai contoh, berikut ini adalah seperti apa dokumen saya nantinya.

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

This is another paragraph.

Pertanyaan saya sederhana.
Berapa banyak dari itu yang dapat sayaotomatiskan / tingkatkan dengan Emacs?

Dua poin berikut adalah apa yang ada dalam pikiran saya.

1. Kalimat saya panjang , jadi saya harus membungkus garis tanpa benar-benar mengisinya. Artinya, kalimat yang sangat panjang perlu ditampilkan pada beberapa baris di layar saya, tetapi perlu satu baris dalam file ".tex" . Ini lebih disukai dilakukan dengan cara yang tidak membungkus persamaan.

   visual-line-modemembungkus lebar jendela, itu terlalu lebar. Saya perlu sesuatu yang membungkus garis dan membatasi lebarnya hingga 80 karakter. Sama seperti fill-paragraphbiasanya, tetapi tanpa benar-benar melanggar garis dalam file.

2. Saya dapat mematahkan baris secara manual setelah setiap kalimat, tetapi akan sangat disukai jika saya dapat mengkonfigurasi fill-paragraph(atau bahkan mungkin auto-fill-mode) untuk meletakkan satu kalimat per baris juga.

Jika Anda hanya ingin sesuatu seperti visual-line-modetetapi dapat dikonfigurasi, Anda dapat mencoba longlines-modeapa yang saya gunakan untuk sebagian besar prosa saya. longlines-modemembungkus teks Anda dengan cara yang sama visual-line-modedengan lebar dikonfigurasi oleh fill-column.

Berikut screenshot dengan fill-columnset to 70(jendela sebenarnya meluas lebih ke kanan).

Konfigurasi fill-paragraphakan rapi, tetapi saya tidak yakin bagaimana melakukannya. Alih-alih, inilah peretasan sementara yang masuk akal: menjadikan .karakter Anda elektrik dalam mode TeX, menyisipkan baris baru. Ini hanya melibatkan rebinding dalam apa pun mode hook yang sesuai:

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

Untuk (1), saya akan menggunakan margin yang diperbesar, sehingga visual-line-modemembungkus garis pada yang diinginkan fill-column. Ini akan memengaruhi garis teks dan persamaan.

Adapun (2), seseorang dapat mendefinisikan perintah pengisian kustom untuk terikat M-qdan benar mengisi paragraf. Saya belum berhasil menulis perintah dengan perilaku yang benar untuk pengisian otomatis.

Membungkus ini semua dalam mode minor bisa terlihat seperti berikut. Ini bukan kode yang sangat indah, tetapi harus berfungsi dalam banyak kasus. (Saya telah memiliki unfill-paragraphfungsi di saya init.elselama beberapa waktu tanpa memperhatikan masalah).

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

Apakah masalah kontrol versi Anda akan dihindari / diselesaikan jika Anda menggunakan git diff --color-words atau latexdiff? Kemudian Anda bisa melihat kata-kata yang diubah.

Salah satu cara untuk meningkatkan ini yang telah saya gunakan (kadang-kadang) selama beberapa tahun adalah dengan menampilkan kalimat dengan jeda baris yang saling mengalir dengan melipat jeda baris menggunakan fasilitas tex-fold(bagian dari AUCTeX).

Ini artinya begini

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.

dilipat ke

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⁎

Saya baru-baru ini menempatkan ini bersama sebagai mode minor dalam sebuah paket. Mungkin orang lain juga akan menemukan ini berguna: https://github.com/andersjohansson/tex-fold-linebreaks