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

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

Signature

(treemacs--create-dir-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 'let
				   (list
				    (list 'dir-name
					  (list
					   'file-name-nondirectory
					   path)))
				   (list 'list prefix
					 (list 'treemacs-icon-for-dir
					       'dir-name
					       (list 'quote 'closed))
					 (list 'propertize
					       (list '->> 'dir-name
						     (list 'funcall
							   'treemacs-directory-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-directory-face)
					       :state
					       (list 'quote
						     'dir-node-closed)
					       :path path :key path
					       :symlink
					       (list 'file-symlink-p
						     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)]