Function: parseedn--build-prefixed-map

parseedn--build-prefixed-map is a byte-compiled function defined in parseedn.el.

Signature

(parseedn--build-prefixed-map PREFIX-TOKEN CHILDREN)

Documentation

Build a map that has a prefix for non-qualified keywords.

PREFIX-TOKEN is the AST token for the map prefix. CHILDREN is a plist.

Source Code

;; Defined in ~/.emacs.d/elpa/parseedn-20260601.1258/parseedn.el
(defun parseedn--build-prefixed-map (prefix-token children)
  "Build a map that has a prefix for non-qualified keywords.
PREFIX-TOKEN is the AST token for the map prefix.
CHILDREN is a plist."
  (let* ((hash-map (make-hash-table :test 'equal :size (/ (length children) 2)))
         ;; map-prefix forms are always "#:...."
         (map-prefix (substring (parseclj-lex-token-form prefix-token) 2)))
    (while children
      (let* ((key (pop children))
             (v (pop children))
             (key-name (substring (symbol-name key) 1))
             (k (if (string-match-p "/" key-name)
                    ;; Keyword is already qualified, we must not add the prefix.
                    key
                  (intern (concat ":" map-prefix "/" key-name)))))
        (puthash k v hash-map)))
    hash-map))