Function: org-modern--update-faces

org-modern--update-faces is a natively compiled function defined in org-modern.el.

Signature

(org-modern--update-faces)

Documentation

Update border of the org-modern-label face.

Source Code

;; Defined in /nix/store/0fwir9vccqq0yiqnswyf22ip3sl68f49-emacs-packages-deps/share/emacs/site-lisp/elpa/org-modern-20260722.1411/org-modern.el
(defun org-modern--update-faces ()
  "Update border of the `org-modern-label' face."
  (let* ((border (pcase org-modern-label-border
                   ((pred integerp)
                    org-modern-label-border)
                   ((pred floatp)
                    (ceiling (* (frame-char-height) org-modern-label-border)))
                   ((pred functionp)
                    (funcall org-modern-label-border))
                   (_ 2)))
         (box (list :color (face-attribute 'default :background nil t)
                    :line-width (cons -1 (- border)))))
    (set-face-attribute 'org-modern-label nil :box box)
    (set-face-attribute 'org-modern-habit nil :box box)))