siversss

;; -*- lexical-binding:t coding:utf-8-unix -*-

(defun 3s/env-update-path-var (name value &optional append separator)
  (let ((sep (or separator path-separator)))

    (when (not (s-blank? value))
      (let* ((name-val (getenv name))
             (components (when (not (s-blank? name-val))
                           (s-split sep name-val))))
        (if (null components)