Re: Two spaces after end of sentences.

[Heime <heimeborgia@protonmail.com>]

Sent with Proton Mail secure email.

On Wednesday, September 18th, 2024 at 12:55 PM, Heime <heimeborgia@protonmail.com> wrote:

> I want to have two spaces after end of sentences. But only if the next
> letter in a capital. But when I tried this implementation, spaces were
> introduces even when the next letter was miniscule.
> 
> 
> (defun montej ()
> "Ensure that there are two spaces after every period in the
> current paragraph."
> 
> (interactive)
> 
> (save-excursion
> 
> ;; Determine the start and end of the current paragraph
> (let ( (start (save-excursion (backward-paragraph) (point)))
> (end (save-excursion (forward-paragraph) (point))) )
> 
> ;; Move to the start of the paragraph
> (goto-char start)
> 
> ;; Find period followed by fewer than two spaces
> (while (re-search-forward
> "\\([.!?]\\) \\{0,1\\}\\([A-Z]\\)" end t)
> ;; Replace with a period followed by two spaces
> (replace-match "\\1 \\2")))))

Am also highlighting when there is just a single space.  But cannot
remove the original overlay when I insert an additional  space and
run the command again.

(defun montej-senfyr ()
  "Highlight in red any instance where there is less than two spaces
after a period between sentences in the current paragraph."

  (interactive)

  (save-excursion

    ;; Determine the start and end of the current paragraph
    (let ( (start   (save-excursion (backward-paragraph) (point)))
           (end     (save-excursion (forward-paragraph)  (point)))
           (face    '(:background "red")))

      ;; Move to the start of the paragraph
      (goto-char start)

      ;; Remove previous overlays if any
      (remove-overlays start end 'category 'highlight-single-space)

      ;; Locate periods followed by less than two spaces and a capital letter
      (while (re-search-forward "\\([.!?]\\) \\{0,1\\}\\([A-Z]\\)" end t)
        (let ((period-end (match-end 1))
              (next-space-start (match-beginning 2)))

          ;; Highlight less than two spaces after period
          (when (and (> next-space-start period-end)
                     (< (- next-space-start period-end) 2))
           (let ( (highlight-start (1+ period-end))
                  (highlight-end   (1- next-space-start)) )

             (make-overlay highlight-start highlight-end)
             (overlay-put (make-overlay highlight-start highlight-end)
                            'category 'highlight-single-space)
             (overlay-put (make-overlay highlight-start highlight-end)
                            'face face))))))))