Function: majutsu-gerrit--account-avatar-svg

majutsu-gerrit--account-avatar-svg is a natively compiled function defined in majutsu-gerrit.el.

Signature

(majutsu-gerrit--account-avatar-svg ACCOUNT)

Documentation

Return an SVG image object for ACCOUNT.

Source Code

;; Defined in /nix/store/jagqw3nms546pad0gxi5f3wsckk6pji7-emacs-packages-deps/share/emacs/site-lisp/majutsu-gerrit.el
(defun majutsu-gerrit--account-avatar-svg (account)
  "Return an SVG image object for ACCOUNT."
  (let* ((size majutsu-gerrit-account-avatar-size)
         (initials (majutsu-gerrit--account-initials account))
         (color (majutsu-gerrit--account-avatar-color account))
         (svg (svg-create size size)))
    (svg-circle svg (/ size 2) (/ size 2) (/ size 2) :fill-color color)
    (svg-text svg initials
              :font-size (/ size 2)
              :font-weight "bold"
              :fill "white"
              :x "50%"
              :y "55%"
              :text-anchor "middle"
              :dominant-baseline "middle")
    (create-image (with-temp-buffer
                    (insert "<?xml version=\"1.0\" encoding=\"UTF-8\"?>")
                    (svg-print svg)
                    (buffer-string))
                  'svg t
                  :scale 1
                  :ascent 'center)))