hmm.el

(defun org-life-do (name &rest args)
  (with-temp-buffer
    (insert-file-contents org-life-support-file-name)
    (org-babel-goto-named-src-block name)
    (let ((info (org-babel-get-src-block-info)))
      (dotimes (i (length args))
        (let* ((params (third info))
               (vars (org-life-get-val-props params))
               (arg (elt args i))
               (index (make-symbol (format "%s" i))))
          (--when-let (elt vars i)
            (setcdr it (list index arg)))))
      (message "INFO: %s" info)
      (org-babel-execute-src-block-maybe nil info))))

(org-life-do "chrome-open" "http://reddit.com")