Merge pull request #148 from emacsfodder/s-spaced-words

Added s-spaced-words

2 files changed, 15 insertions, 5 deletions

diff --git a/dev/examples.el b/dev/examples.el
index 614c0ce..777e4e8 100644
--- a/dev/examples.el
+++ b/dev/examples.el
@@ -387,7 +387,7 @@
         (s-format
          "help ${name}! I'm ${malady}"
          'gethash
-         #s(hash-table test equal data ("name" "nic" )))
+         #s(hash-table test equal data ("name" "nic")))
       (s-format-resolve (car err)))
     => 's-format-resolve)
 
@@ -405,8 +405,8 @@
     ;; Have a literal \ in the replacement
     (let ((foo "Hello\\nWorld"))
       (s-lex-format "${foo}"))
-    => "Hello\\nWorld"
-    )
+    => "Hello\\nWorld")
+    
 
   (defexamples s-count-matches
     (s-count-matches "a" "aba") => 2
@@ -464,6 +464,11 @@
     (s-dashed-words "under_scored_words") => "under-scored-words"
     (s-dashed-words "camelCasedWords") => "camel-cased-words")
 
+  (defexamples s-spaced-words
+    (s-spaced-words "some_words") => "some words"
+    (s-spaced-words "dashed-words") => "dashed words"
+    (s-spaced-words "camelCasedWords") => "camel Cased Words")
+
   (defexamples s-capitalized-words
     (s-capitalized-words "some words") => "Some words"
     (s-capitalized-words "under_scored_words") => "Under scored words"
diff --git a/s.el b/s.el
index ba6c1ed..362ca09 100644
--- a/s.el
+++ b/s.el
@@ -233,9 +233,9 @@ When not specified, ELLIPSIS defaults to ‘...’."
   (declare (pure t) (side-effect-free t))
   (let ((extra (max 0 (- len (length s)))))
     (concat
-     (make-string (ceiling extra 2) ? )
+     (make-string (ceiling extra 2) ?\s)
      s
-     (make-string (floor extra 2) ? ))))
+     (make-string (floor extra 2) ?\s))))
 
 (defun s-pad-left (len padding s)
   "If S is shorter than LEN, pad it with PADDING on the left."
@@ -585,6 +585,11 @@ When START is non-nil the search will start at that index."
   (declare (side-effect-free t))
   (s-join "-" (mapcar 'downcase (s-split-words s))))
 
+(defun s-spaced-words (s)
+  "Convert S to spaced words."
+  (declare (side-effect-free t))
+  (s-join " " (s-split-words s)))
+
 (defun s-capitalized-words (s)
   "Convert S to Capitalized words."
   (declare (side-effect-free t))