[feature request] function to split string into cons cell about s.el HOT 5 CLOSED

(let* ((str "this is a test")
       (sep " ")
       (s-car (car (s-split sep str)))
       (s-cdr (substring str (length (concat s-car sep)))))
  (cons s-car s-cdr))

(defun s-split-cons (s &optional separator)
  "Split S using SEPARATOR (defaults to space).

The return value is a `cons' cell with the first item of the
split as `car' and the rest of the string as `cdr'.

For example.

   (s-split-cons \"this:that\" \":\")
   => (\"this\" . \"that\")

   (s-split \"more than one\")
   => (\"more\" . \"than one\")
"
  (declare (side-effect-free t))
  (let* ((sep (or separator " "))
         (s-car (car (s-split separator s)))
         (s-cdr (substring s (+ 1 (length (concat s-car separator))))))
   (cons s-car s-cdr)))