Function: verb--process-json-prelude

verb--process-json-prelude is a natively compiled function defined in verb.el.

Signature

(verb--process-json-prelude JSON-STRING)

Documentation

Process JSON-STRING and set Verb variables accordingly.

Source Code

;; Defined in /nix/store/8jnfn8w2mxcxbr2crbklcnija9m0zlkq-emacs-packages-deps/share/emacs/site-lisp/elpa/verb-20260818.1921/verb.el
(defun verb--process-json-prelude (json-string)
  "Process JSON-STRING and set Verb variables accordingly."
  (let* ((json-object-type 'plist)
         (data (json-read-from-string json-string)))
    ;; Search for values on the topmost container, and one level down.
    (cl-loop for (k v) on data by #'cddr
             do (verb-set-var (substring (symbol-name k) 1) v)
             if (and (listp v) (cl-evenp (length v)))
             do (cl-loop for (subk subv) on v by #'cddr
                         do (verb-set-var
                             (substring (symbol-name subk) 1) subv)))))