From 382af40c0a4449fc15c147123b02eb95d5efa0f8 Mon Sep 17 00:00:00 2001 From: Christian Vanderwall Date: Sat, 22 Apr 2023 19:18:12 -0700 Subject: [PATCH 1/2] Bump lorem-ipsum-version constant version to 0.4 --- lorem-ipsum.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lorem-ipsum.el b/lorem-ipsum.el index 07e3117..911757f 100644 --- a/lorem-ipsum.el +++ b/lorem-ipsum.el @@ -60,7 +60,7 @@ ;;; Code: -(defconst lorem-ipsum-version "0.3") +(defconst lorem-ipsum-version "0.4") (defgroup lorem-ipsum nil "Insert filler text." From 7b5b025a0ebfdeca9e0a230594f8e16568d5ef9a Mon Sep 17 00:00:00 2001 From: Christian Vanderwall Date: Sat, 22 Apr 2023 19:18:59 -0700 Subject: [PATCH 2/2] Use sentence-end-double-space to determine sentence separator --- lorem-ipsum.el | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/lorem-ipsum.el b/lorem-ipsum.el index 911757f..5a82bf9 100644 --- a/lorem-ipsum.el +++ b/lorem-ipsum.el @@ -136,7 +136,9 @@ "Nam a sapien."))) (defvar lorem-ipsum-paragraph-separator "\n\n") -(defvar lorem-ipsum-sentence-separator " ") +(defvar lorem-ipsum-sentence-separator (if sentence-end-double-space + " " + " ")) (defvar lorem-ipsum-list-beginning "") (defvar lorem-ipsum-list-bullet "* ") (defvar lorem-ipsum-list-item-end "\n") @@ -152,7 +154,7 @@ (defun lorem-ipsum-sgml-mode-hook () "Set some variables for lorem-ipsum in `sgml-mode'." (setq lorem-ipsum-paragraph-separator "

\n" - lorem-ipsum-sentence-separator "  " + lorem-ipsum-sentence-separator (replace-regexp-in-string " " " " lorem-ipsum-sentence-separator) lorem-ipsum-list-beginning "