Function: treemacs--find-workspace--inliner

treemacs--find-workspace--inliner is a function defined in treemacs-workspaces.el.

Signature

(treemacs--find-workspace--inliner INLINE--FORM &optional PATH)

Source Code

;; Defined in ~/.emacs.d/elpa/treemacs-20251226.1307/treemacs-workspaces.el
;; Could not find source code, showing raw function object.
#[(inline--form &optional path)
  ((ignore inline--form)
   (catch 'inline--just-use
     (let*
	 ((exp path)
	  (path
	   (if (macroexp-copyable-p exp) exp (make-symbol "path")))
	  (body
	   (list 'let
		 (list
		  (list 'ws-for-path
			(list '--first
			      (list 'treemacs-is-path path
				    :in-workspace 'it)
			      'treemacs--workspaces)))
		 (list 'setf (list 'treemacs-current-workspace)
		       (list 'pcase-exhaustive
			     'treemacs-find-workspace-method
			     (list
			      (list 'quote
				    'find-for-file-or-pick-first)
			      (list 'or 'ws-for-path
				    (list 'car 'treemacs--workspaces)))
			     (list
			      (list 'quote
				    'find-for-file-or-manually-select)
			      (list 'or 'ws-for-path
				    (list
				     'treemacs--select-workspace-by-name)))
			     (list (list 'quote 'always-ask)
				   (list
				    'treemacs--select-workspace-by-name)))))))
       (if (eq path exp) body
	 (macroexp-let* (list (list path exp)) body)))))
  (t)]