การแก้ไขไฟล์ด้วยหนึ่งประโยคต่อหนึ่งบรรทัด

พื้นหลังเล็กน้อย

ฉันพยายามที่จะรุ่นควบคุมเอกสารน้ำยางของฉันและประสิทธิผลของโครงการนี้จะได้รับการปรับปรุงอย่างมากถ้าผมนำมาใช้เป็นหนึ่งประโยคต่อบรรทัดวิธีการ

ตัวอย่างเช่นต่อไปนี้เป็นเอกสารของฉันที่มีลักษณะเป็นอย่างไร

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

This is another paragraph.

คำถามของฉันง่าย
ฉันสามารถทำการ / ปรับปรุงโดยอัตโนมัติด้วย Emacs ได้เท่าใด

จุดสองจุดต่อไปนี้เป็นสิ่งที่ฉันมีอยู่ในใจ

1. ประโยคของฉันมีความยาวดังนั้นฉันจึงจำเป็นต้องพันเส้นโดยไม่ต้องเติมพวกเขาจริง ๆ นั่นคือประโยคที่ยาวมากจำเป็นต้องแสดงบนหลาย ๆ บรรทัดบนหน้าจอของฉัน แต่มันต้องเป็นบรรทัดเดียวในไฟล์“ .tex” สิ่งนี้ควรทำในวิธีที่ไม่ห่อหุ้มสมการ

   visual-line-modeล้อมที่ความกว้างหน้าต่างที่กว้างเกินไป ฉันต้องการบางสิ่งที่ล้อมรอบเส้นและจำกัดความกว้างของพวกเขาไว้ที่ 80 ตัวอักษรหรือมากกว่านั้น fill-paragraphปกติแล้วจะชอบแต่โดยไม่ทำลายเส้นในไฟล์

2. ฉันสามารถแบ่งบรรทัดด้วยตนเองหลังจากแต่ละประโยค แต่มันจะดีกว่าถ้าฉันสามารถกำหนดค่าfill-paragraph(หรืออาจจะauto-fill-mode) ให้ใส่หนึ่งประโยคต่อบรรทัดเช่นกัน

หากคุณต้องการอะไรvisual-line-modeแต่สามารถกำหนดค่าได้คุณสามารถลองlonglines-modeใช้สิ่งที่ฉันใช้กับงานประพันธ์ส่วนใหญ่ของฉัน longlines-modeตัดข้อความของคุณในทำนองเดียวกันกับที่มีความกว้างที่กำหนดค่าโดยvisual-line-modefill-column

ต่อไปนี้เป็นภาพหน้าจอพร้อมfill-columnตั้งค่าเป็น70(จริง ๆ แล้วหน้าต่างขยายไปทางขวามากขึ้น)

การกำหนดค่าfill-paragraphจะเรียบร้อย แต่ฉันไม่แน่ใจว่าจะทำอย่างไร แต่นี่คือการแฮ็กชั่วคราวที่เหมาะสม: สร้าง.ตัวละครของคุณขึ้นมาในโหมด TeX โดยแทรกบรรทัดใหม่ สิ่งนี้เกี่ยวข้องกับการรีมันในสิ่งที่ hook ของโหมดที่เหมาะสมคือ:

(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-mode fill-columnสิ่งนี้จะส่งผลต่อทั้งบรรทัดข้อความและสมการ

สำหรับ (2) หนึ่งสามารถกำหนดคำสั่งการเติมที่กำหนดเองที่จะถูกผูกไว้M-qและเติมย่อหน้าได้อย่างถูกต้อง ฉันยังไม่ได้จัดการเพื่อเขียนคำสั่งที่มีพฤติกรรมที่ถูกต้องสำหรับการเติมอัตโนมัติ

การห่อสิ่งนี้ทั้งหมดในโหมดรองอาจมีลักษณะดังต่อไปนี้ มันไม่ได้เป็นรหัสที่สวยงามมาก แต่ควรทำงานในกรณีส่วนใหญ่ (ฉันมีunfill-paragraphฟังก์ชั่นในตัวของฉัน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-word หรือ latexdiff? จากนั้นคุณสามารถดูคำที่เปลี่ยนแปลง

วิธีหนึ่งในการปรับปรุงสิ่งนี้ที่ฉันได้ใช้ (เป็นบางครั้ง) เป็นเวลาหลายปีคือการแสดงประโยคที่มีการขึ้นบรรทัดใหม่เหมือนกันโดยการพับการแบ่งบรรทัดโดยใช้สิ่งอำนวยความสะดวกของtex-fold(ส่วนหนึ่งของ AUCTeX)

ซึ่งหมายความว่าสิ่งนี้

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.

ถูกพับ

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⁎

ฉันเพิ่งรวมสิ่งนี้เข้าด้วยกันเป็นโหมดย่อยในแพ็คเกจ บางทีคนอื่นอาจพบว่ามีประโยชน์เช่นนี้: https://github.com/andersjohansson/tex-fold-linebreaks