Function: indent-bars--initialize-style

indent-bars--initialize-style is a natively compiled function defined in indent-bars.el.

Signature

(indent-bars--initialize-style STYLE)

Documentation

Initialize STYLE.

Source Code

;; Defined in /nix/store/zkcdcnmcj3605fj09x584bf58d85brax-emacs-packages-deps/share/emacs/site-lisp/elpa/indent-bars-1.0.1/indent-bars.el
(defun indent-bars--initialize-style (style)
  "Initialize STYLE."
  ;; Colors
  (setf (ibs/main-color style) (indent-bars--main-color style)
	(ibs/depth-palette style) (indent-bars--depth-palette style)
	(ibs/current-depth-palette style) (indent-bars--current-depth-palette style)
	(ibs/faces style) (indent-bars--create-faces style 7)
	(ibs/no-stipple-chars style) (indent-bars--create-no-stipple-chars style 7))

  ;; Base stipple face
  (let ((width (indent-bars--window-font-space-width)))
    (face-spec-set
     (ibs/stipple-face style)
     (indent-bars--stipple-face-spec width (frame-char-height)
      (indent-bars--stipple-rot (selected-window) width)
      style)))

  ;; Current depth highlight faces/stipple
  (setf (ibs/current-bg-color style)
	(indent-bars--current-bg-color style))
  (when-let* ((stipple (indent-bars--current-depth-stipple nil nil nil style)))
    (setf (ibs/current-stipple-face style)
	  (indent-bars--tag "indent-bars%s-current-face" style))
    (face-spec-set (ibs/current-stipple-face style) nil)))