[BK-2020-03.git] / user / elisp / remove-single-newlines.el

(defun remove-single-newlines ()
  ;; Desc: Replace all single newlines with spaces.
  ;; Date: 2024-02-24
  "Remove single newlines, joining lines that are separated by a single newline, while preserving paragraphs separated by multiple newlines."
  (interactive)
  (let ((start (point-min)) (end (point-max)))
    (save-excursion
      (goto-char start)
      (while (re-search-forward "\\([^\n]\\)\n\\([^\n]\\)" end t)
        ;; Check if the newline is followed by another newline (indicating a paragraph break)
        (unless (looking-at-p "\n")
          (replace-match "\\1 \\2" nil nil))))))

(defun remove-single-newlines-region (start end)
  ;; Desc: Replace all single newlines in a selected region with spaces.
  ;; Date: 2024-02-24
  "Remove single newlines in the selected region, joining lines separated by a single newline, while preserving paragraphs separated by multiple newlines."
  (interactive "r") ; "r" means this function should use the region start and end as arguments when called interactively
  (save-excursion
    (goto-char start)
    (while (re-search-forward "\\([^\n]\\)\n\\([^\n]\\)" end t)
      ;; Check if the newline is followed by another newline (indicating a paragraph break)
      (unless (looking-at-p "\n")
        (replace-match "\\1 \\2" nil nil)))))
Commit	Line	Data
1b0a2712 SBS	1	(defun remove-single-newlines ()
	2	;; Desc: Replace all single newlines with spaces.
	3	;; Date: 2024-02-24
	4	"Remove single newlines, joining lines that are separated by a single newline, while preserving paragraphs separated by multiple newlines."
	5	(interactive)
	6	(let ((start (point-min)) (end (point-max)))
	7	(save-excursion
	8	(goto-char start)
	9	(while (re-search-forward "\\([^\n]\\)\n\\([^\n]\\)" end t)
	10	;; Check if the newline is followed by another newline (indicating a paragraph break)
	11	(unless (looking-at-p "\n")
	12	(replace-match "\\1 \\2" nil nil))))))
	13
	14	(defun remove-single-newlines-region (start end)
	15	;; Desc: Replace all single newlines in a selected region with spaces.
	16	;; Date: 2024-02-24
	17	"Remove single newlines in the selected region, joining lines separated by a single newline, while preserving paragraphs separated by multiple newlines."
	18	(interactive "r") ; "r" means this function should use the region start and end as arguments when called interactively
	19	(save-excursion
	20	(goto-char start)
	21	(while (re-search-forward "\\([^\n]\\)\n\\([^\n]\\)" end t)
	22	;; Check if the newline is followed by another newline (indicating a paragraph break)
	23	(unless (looking-at-p "\n")
	24	(replace-match "\\1 \\2" nil nil)))))