Function: treemacs--git-status-face--inliner

treemacs--git-status-face--inliner is a function defined in treemacs-async.el.

Signature

(treemacs--git-status-face--inliner INLINE--FORM STATUS DEFAULT)

Source Code

;; Defined in ~/.emacs.d/elpa/treemacs-20251226.1307/treemacs-async.el
;; Could not find source code, showing raw function object.
#[(inline--form status default)
  ((ignore inline--form)
   (catch 'inline--just-use
     (let*
	 ((exp status)
	  (status
	   (if (macroexp-copyable-p exp) exp (make-symbol "status")))
	  (body
	   (let*
	       ((exp default)
		(default
		 (if (macroexp-copyable-p exp) exp
		   (make-symbol "default")))
		(body
		 (list 'pcase status
		       (list "M"
			     (list 'quote 'treemacs-git-modified-face))
		       (list "U"
			     (list 'quote 'treemacs-git-conflict-face))
		       (list "?"
			     (list 'quote 'treemacs-git-untracked-face))
		       (list "!"
			     (list 'quote 'treemacs-git-ignored-face))
		       (list "A"
			     (list 'quote 'treemacs-git-added-face))
		       (list "R"
			     (list 'quote 'treemacs-git-renamed-face))
		       (list '_ default))))
	     (if (eq default exp) body
	       (macroexp-let* (list (list default exp)) body)))))
       (if (eq status exp) body
	 (macroexp-let* (list (list status exp)) body)))))
  (t)]