Function: majutsu-annotate--format-string

majutsu-annotate--format-string is a natively compiled function defined in majutsu-annotate.el.

Signature

(majutsu-annotate--format-string OV FORMAT FACE)

Documentation

Format annotation string for overlay OV using FORMAT and FACE.

Source Code

;; Defined in /nix/store/jagqw3nms546pad0gxi5f3wsckk6pji7-emacs-packages-deps/share/emacs/site-lisp/majutsu-annotate.el
(defun majutsu-annotate--format-string (ov format face)
  "Format annotation string for overlay OV using FORMAT and FACE."
  (let* ((chunk (overlay-get ov 'majutsu-annotate-chunk))
         (change-id (majutsu-annotate-chunk-orig-rev chunk))
         (revinfo (gethash change-id majutsu-annotate-cache)))
    (propertize
     (format-spec
      format
      `((?H . ,(propertize change-id 'font-lock-face 'majutsu-annotate-hash))
        (?h . ,(propertize (substring change-id 0 (min 8 (length change-id)))
                           'font-lock-face 'majutsu-annotate-hash))
        (?a . ,(propertize (or (cdr (assoc "author" revinfo)) "")
                           'font-lock-face 'majutsu-annotate-name))
        (?C . ,(propertize (or (cdr (assoc "committer-time" revinfo)) "")
                           'font-lock-face 'majutsu-annotate-date))
        (?s . ,(propertize (or (cdr (assoc "summary" revinfo)) "")
                           'font-lock-face 'majutsu-annotate-summary))))
     'font-lock-face face)))