Re: Two spaces after end of sentences.

[Thorsten Bonow <thorsten.bonow@post.rwth-aachen.de>]

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