Two spaces after end of sentences.

Two spaces after end of sentences.

[Heime]

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

Re: Two spaces after end of sentences.

[Heime]

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

Re: Two spaces after end of sentences.

[Thorsten Bonow]

>>>>> Heime  <heimeborgia@protonmail.com> writes:

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

Hi,

maybe you should have a look at `repunctuate-sentences' (paragraphs.el)
and write your own `repunctuate-sentences-filter' to achieve what you want.

Toto

-- 
Sent from my GNU Emacs running on GNU/Linux