Emacsの現在の段落の分割線

Question

Emacsに関数（para2lines）を追加して、現在の段落をその文に分割し、別のバッファに1行ずつ出力することができます。

(define (p2l paraString) 
    (define lst (string-split paraString ". ")) 
    (for ((i lst)) 
    (displayln i))) 

テスト：

(p2l "This is a test. For checking only. Only three lines.") 

出力：

(defun pl (ss) 
    (interactive) 
    (let ((lst (split-string (ss)))) 
    (while lst 
     (print (pop lst))))) 

：

This is a test 
For checking only 
Only three lines. 

のEmacs Lispでは、私は次のコード管理できるラケット/スキーム内のコードで、次のしかし、私はどのようにテキストを取得するのか分からない現在の位置でグラフを作成する。どうすればこの機能を修正できますか？

編集：基本的には、別々の行として読みたいが、段落として保存したい。

Answer 1

私はEmacsのコマンドを持っている必要がありますので、Emacsのコマンドを実行または単一の文章ラインに段落を変換するマクロを書きますが、多分あなたは本当にただの線としてラップ段落を読みたいと思っているでしょう。

ここには、現在の段落をつかんで、新しいバッファー*Lines*を挿入し、文章を行に変換するものがあります。

(defun para-lines() 
    "Split sentences of paragraph to lines in new buffer." 
    (interactive) 
    ;; Move the paragraph to a new buffer. 
    (let ((b (generate-new-buffer "*Lines*"))) 
    (with-output-to-temp-buffer b 
     (let ((beg (save-excursion (forward-paragraph -1) (point))) 
      (end (save-excursion (forward-paragraph +1) (point)))) 
     (princ (buffer-substring-no-properties beg end)))) 
    ;; Switch to new buffer 
    (with-current-buffer b 
     ;; Since the name starts with "*", shut off Help Mode 
     (fundamental-mode) 
     ;; Make sure buffer is writable 
     (setq buffer-read-only nil) 
     ;; From the start of the buffer 
     (goto-char (point-min)) 
     ;; While not at the end of the buffer 
     (while (< (point) (point-max)) 
     (forward-sentence 1) 
     ;; Delete spaces between sentences before making new new line 
     (delete-horizontal-space) 
     ;; Don't add a new line, if already at the end of the line 
     (unless (= (line-end-position) (point)) 
      (newline)))))) 

は forward-sentenceの使用を避ける、とだけ re-search-forwardを使用し、正規表現を使用します。たとえば、セミコロンとピリオドを一致させる場合などです。

(defun para-lines() 
    "Split sentences of paragraph to lines in new buffer." 
    (interactive) 
    ;; Move the paragraph to a new buffer. 
    (let ((b (generate-new-buffer "*Lines*"))) 
    (with-output-to-temp-buffer b 
     (let ((beg (save-excursion (forward-paragraph -1) (point))) 
      (end (save-excursion (forward-paragraph +1) (point)))) 
     (princ (buffer-substring-no-properties beg end)))) 
    ;; Switch to new buffer 
    (with-current-buffer b 
     ;; Since the name starts with "*", shut off Help Mode 
     (fundamental-mode) 
     ;; Make sure buffer is writable 
     (setq buffer-read-only nil) 
     ;; From the start of the buffer 
     (goto-char (point-min)) 
     ;; While not at the end of the buffer 
     (while (< (point) (point-max)) 
     (re-search-forward "[.;]\\s-+" nil t) 
     ;; Delete spaces between sentences before making new new line 
     (delete-horizontal-space) 
     ;; Don't add a new line, if already at the end of the line 
     (unless (= (line-end-position) (point)) 
      (newline)))))) 

Answer 2

あなたの手助けをしてくれる例です。これは、新しいバッファではなく、現在の段落（カーソルが配置されている場所）への変換を行います。あなたが必要とするものなら、これを修正して関数に文字列を渡すことができます。

(defun p2l() 
    "Format current paragraph into single lines." 
    (interactive "*") 
    (save-excursion 
    (forward-paragraph) 
    (let ((foo (point))) 
     (backward-paragraph) 
     (replace-regexp "\n" " " nil (1+ (point)) foo) 
     (backward-paragraph) 
     (replace-regexp "\\. ?" ".\n" nil (point) foo))))