Function: treemacs--create-file-button-strings--inliner

treemacs--create-file-button-strings--inliner is a function defined in treemacs-rendering.el.

Signature

(treemacs--create-file-button-strings--inliner INLINE--FORM PATH PREFIX 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 prefix 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 prefix)
		(prefix
		 (if (macroexp-copyable-p exp) exp
		   (make-symbol "prefix")))
		(body
		 (let*
		     ((exp parent)
		      (parent
		       (if (macroexp-copyable-p exp) exp
			 (make-symbol "parent")))
		      (body
		       (let*
			   ((exp depth)
			    (depth
			     (if (macroexp-copyable-p exp) exp
			       (make-symbol "depth")))
			    (body
			     (list 'list prefix
				   (list 'treemacs-icon-for-file path)
				   (list 'propertize
					 (list '->> path
					       'file-name-nondirectory
					       (list 'funcall
						     'treemacs-file-name-transformer))
					 (list 'quote 'button)
					 (list 'quote (list t))
					 (list 'quote 'category)
					 (list 'quote 'treemacs-button)
					 (list 'quote 'help-echo) nil
					 (list 'quote 'keymap) nil
					 :default-face
					 (list 'quote
					       'treemacs-git-unmodified-face)
					 :state
					 (list 'quote
					       'file-node-closed)
					 :path path :key path :parent
					 parent :depth depth))))
			 (if (eq depth exp) body
			   (macroexp-let* (list (list depth exp)) body)))))
		   (if (eq parent exp) body
		     (macroexp-let* (list (list parent exp)) body)))))
	     (if (eq prefix exp) body
	       (macroexp-let* (list (list prefix exp)) body)))))
       (if (eq path exp) body
	 (macroexp-let* (list (list path exp)) body)))))
  (t)]