Function: treemacs--follow-path-elements--inliner

treemacs--follow-path-elements--inliner is a function defined in treemacs-core-utils.el.

Signature

(treemacs--follow-path-elements--inliner INLINE--FORM BTN ITEMS)

Source Code

;; Defined in ~/.emacs.d/elpa/treemacs-20251226.1307/treemacs-core-utils.el
;; Closure converted to defun by helpful.
(defun treemacs--follow-path-elements--inliner
    (inline--form btn items)
  (ignore inline--form)
  (catch 'inline--just-use
    (let*
	((exp btn)
	 (btn
	  (if
	      (macroexp-copyable-p exp)
	      exp
	    (make-symbol "btn")))
	 (body
	  (let*
	      ((exp items)
	       (items
		(if
		    (macroexp-copyable-p exp)
		    exp
		  (make-symbol "items")))
	       (body
		(list 'cl-block 'search
		      (list 'when
			    (list 'treemacs-is-node-collapsed\? btn)
			    (list 'goto-char btn)
			    (list 'funcall
				  (list 'cdr
					(list 'assq
					      (list 'treemacs-button-get btn :state)
					      'treemacs-TAB-actions-config))))
		      (list 'while items
			    (list 'let
				  (list
				   (list 'item
					 (list 'pop items)))
				  (list 'setq btn
					(list 'treemacs-first-child-node-where btn
					      (list 'equal
						    (list 'treemacs-button-get 'child-btn :key)
						    'item)))
				  (list 'unless btn
					(list 'cl-return-from 'search
					      (list 'quote 'follow-failed)))
				  (list 'goto-char btn)
				  (list 'when
					(list 'and items
					      (list 'treemacs-is-node-collapsed\? btn))
					(list 'funcall
					      (list 'cdr
						    (list 'assq
							  (list 'treemacs-button-get btn :state)
							  'treemacs-TAB-actions-config))))))
		      btn)))
	    (if
		(eq items exp)
		body
	      (macroexp-let*
	       (list
		(list items exp))
	       body)))))
      (if
	  (eq btn exp)
	  body
	(macroexp-let*
	 (list
	  (list btn exp))
	 body)))))