From 172ea41771b7b4835f37bbbc1626e5d0d8c04464 Mon Sep 17 00:00:00 2001
From: fpi
Date: Sun, 9 Oct 2022 15:57:02 +0200
Subject: Add coloring roughness

---
 hl-sentence-length.el | 26 +++++++++-----------------
 1 file changed, 9 insertions(+), 17 deletions(-)

(limited to 'hl-sentence-length.el')

diff --git a/hl-sentence-length.el b/hl-sentence-length.el
index 264a7d2..cecc8ad 100644
--- a/hl-sentence-length.el
+++ b/hl-sentence-length.el
@@ -26,8 +26,9 @@
 ;; Minor mode to highlight sentences based on the number of words.
 ;; This is intended to help writers focus on varying their sentence
 ;; lengths. By default it cycles trough eight different colors. To
-;; increase this set `hl-sentence-length-cycle' and customize the
-;; faces for higher word counts or define new ones.
+;; increase this set `hl-sentence-length-cycle' and define new
+;; additional faces. To change the clustering of word lengths
+;; customize `hl-sentence-length-roughness'.
 ;;
 ;;; Code:
 
@@ -55,24 +56,13 @@
 (defface hl-sentence-length-face-8
   '((t (:background "#707070")))
   "Face for sentences of length 8.")
-;; Faces 9-12 declared just for convenience. Easily customize using
-;; `customize-face' or use-package's `:custom-face' keyword.
-(defface hl-sentence-length-face-9
-  '((t (:background "#ffffff")))
-  "Face for sentences of length 9.")
-(defface hl-sentence-length-face-10
-  '((t (:background "#ffffff")))
-  "Face for sentences of length 10.")
-(defface hl-sentence-length-face-11
-  '((t (:background "#ffffff")))
-  "Face for sentences of length 11.")
-(defface hl-sentence-length-face-12
-  '((t (:background "#ffffff")))
-  "Face for sentences of length 12.")
 
 (defvar hl-sentence-length-cycle 8
   "Number of faces to cycle trough.")
 
+(defvar hl-sentence-length-roughness 3
+  "Size of groups to cluster sentence lengths into.")
+
 (defun hl-sentence-length-sentence-beginning ()
   "Return point at beginning of the current sentence."
   (save-excursion
@@ -97,7 +87,9 @@
 (defun hl-sentence-length-sentence-face ()
   "Return the appropriate face for the current sentence."
   (let* ((length (hl-sentence-length-sentence-length))
-         (modulo (mod length hl-sentence-length-cycle))
+         (modulo (mod
+                  (+ 1 (/ (- length 1) hl-sentence-length-roughness))
+                  hl-sentence-length-cycle))
          (facenumber (if (eq modulo 0)
                          hl-sentence-length-cycle
                        modulo)))
-- 
cgit v1.2.3