Function: treemacs--create-string-for-single-insert--inliner

treemacs--create-string-for-single-insert--inliner is a function defined in treemacs-rendering.el.

Signature

(treemacs--create-string-for-single-insert--inliner INLINE--FORM PATH PARENT DEPTH)

Source Code

;; Defined in ~/.emacs.d/elpa/treemacs-20251226.1307/treemacs-rendering.el
;; Could not find source code, showing raw function object.
#[(inline--form path parent depth)
  ((ignore inline--form)
   (catch 'inline--just-use
     (let*
	 ((exp path)
	  (path
	   (if (macroexp-copyable-p exp) exp (make-symbol "path")))
	  (body
	   (let*
	       ((exp depth)
		(depth
		 (if (macroexp-copyable-p exp) exp
		   (make-symbol "depth")))
		(body
		 (let*
		     ((exp parent)
		      (parent
		       (if (macroexp-copyable-p exp) exp
			 (make-symbol "parent")))
		      (body
		       (list 'let
			     (list
			      (list 'prefix
				    (list 'treemacs--get-indentation
					  depth)))
			     (list 'apply (list 'function 'concat)
				   (list 'let*
					 (list (list 'strs)
					       (list 'face))
					 (list 'if
					       (list 'file-directory-p
						     path)
					       (list 'setf 'strs
						     (list
						      'treemacs--create-dir-button-strings
						      path 'prefix
						      parent depth)
						     'face
						     (list 'quote
							   'treemacs-directory-face))
					       (list 'setf 'strs
						     (list
						      'treemacs--create-file-button-strings
						      path 'prefix
						      parent depth)
						     'face
						     (list 'quote
							   'treemacs-file-face)))
					 (list '-let
					       [last (-last-item strs)]
					       (list
						'put-text-property 0
						(list 'length 'last)
						(list 'quote 'face)
						'face 'last))
					 'strs)))))
		   (if (eq parent exp) body
		     (macroexp-let* (list (list parent exp)) body)))))
	     (if (eq depth exp) body
	       (macroexp-let* (list (list depth exp)) body)))))
       (if (eq path exp) body
	 (macroexp-let* (list (list path exp)) body)))))
  (t)]