Function: majutsu-gerrit-rest--headers

majutsu-gerrit-rest--headers is a natively compiled function defined in majutsu-gerrit-rest.el.

Signature

(majutsu-gerrit-rest--headers SPEC DATA HEADERS)

Documentation

Return full header alist for SPEC, DATA and user-supplied HEADERS.

Source Code

;; Defined in /nix/store/jagqw3nms546pad0gxi5f3wsckk6pji7-emacs-packages-deps/share/emacs/site-lisp/majutsu-gerrit-rest.el
;;;; Helpers

(defun majutsu-gerrit-rest--headers (spec data headers)
  "Return full header alist for SPEC, DATA and user-supplied HEADERS."
  (let ((result (append headers nil)))
    (when (and data (not (assoc-string "Content-Type" result t)))
      (push '("Content-Type" . "application/json; charset=UTF-8") result))
    (when-let* ((auth (majutsu-gerrit-rest--auth-credentials spec)))
      (push `("Authorization"
              . ,(concat "Basic "
                         (base64-encode-string
                          (format "%s:%s" (car auth) (cdr auth)) t)))
            result))
    result))