emacs: Add x-string-split

1 files changed, 6 insertions, 0 deletions

diff --git a/.config/emacs/init.el b/.config/emacs/init.el
index a29893f..420c8d8 100644
--- a/.config/emacs/init.el
+++ b/.config/emacs/init.el
@@ -66,6 +66,12 @@ BODY directly after ‘(interactive)’."
            (string-remove-suffix "-mode" (symbol-name mode))
            "-ts-mode")))
 
+(defun x-string-split (separators string)
+  "Wrapper around ‘string-split' that puts SEPARATORS first.  This makes
+it convenient to use in ‘thread-last’."
+  (declare (pure t) (side-effect-free t))
+  (string-split string separators))
+
 (defun x-do-and-center (function &rest arguments)
   "Call FUNCTION with ARGUMENTS and then center the screen."
   (apply function arguments)