Be more generous when extracting first sentence

Author: hlship

CHANGES.md

@@ -23,6 +23,7 @@
 * You may now enter `-h` or `--help` after a group to get help for just that group
 * Tool help output has been reordered, with top-level tool commands first (previously, those were in a "Builtin" group and listed last)
 * Tool help now displays just top-level commands by default (add --full to list nested commands)
+* When extracting the first sentence as the single-line index, embedded period are no longer considered the end of the sentence
 * net.lewisship.cli-tools
     * New `command-path` function returns a composed string of the tool name and command path
     * `dispatch` function has new options:

src/net/lewisship/cli_tools/impl.clj

@@ -128,16 +128,17 @@
            (when repeatable
              (if optional "*" "+")))))
 
-(defn- first-sentence
+(defn first-sentence
   [s]
   (when (string? s)
-    (-> s
-        string/trim
-        string/split-lines
-        first
-        (string/split #"\s*\.")
-        first
-        string/trim)))
+    (let [s' (-> s
+                 string/trim
+                 string/split-lines
+                 first
+                 (string/split #"\s*\.(?:\s+|$)")
+                 first)]
+      (when-not (string/blank? s')
+        s'))))
 
 (defn- indentation-of-line
   [line]

test/net/lewisship/cli_tools/impl_test.clj

@@ -190,3 +190,17 @@
       '([:cyan "alpha"] ", "
         [:cyan "bravo"] ", "
         [:cyan "charlie"] " (or one other)"))))
+
+(deftest first-sentence
+  (are [s expected] (= expected (impl/first-sentence s))
+
+    "  Quick, Simple " "Quick, Simple"
+
+    "\n\n The first.\nThe second." "The first"
+
+    "In namespace x.y.z, we do this thing." "In namespace x.y.z, we do this thing"
+
+    nil nil
+
+    "" nil
+    ))