Function: treemacs--get-dir-content--inliner

treemacs--get-dir-content--inliner is a function defined in treemacs-rendering.el.

Signature

(treemacs--get-dir-content--inliner INLINE--FORM DIR)

Source Code

;; Defined in ~/.emacs.d/elpa/treemacs-20251226.1307/treemacs-rendering.el
;; Closure converted to defun by helpful.
(defun treemacs--get-dir-content--inliner
    (inline--form dir)
  (ignore inline--form)
  (catch 'inline--just-use
    (let*
	((exp dir)
	 (dir
	  (if
	      (macroexp-copyable-p exp)
	      exp
	    (make-symbol "dir")))
	 (body
	  (list 'with-temp-buffer
		(list 'let*
		      (list
		       (list 'file-name-handler-alist 'treemacs--file-name-handler-alist)
		       (list 'sort-func
			     (list 'treemacs--get-sort-fuction))
		       (list 'entries
			     (list '-> dir
				   (list 'directory-files :absolute-names nil :no-sort)
				   (list 'treemacs--filter-files-to-be-shown)))
		       (list 'dirs-files
			     (list '-separate
				   (list 'function 'file-directory-p)
				   'entries)))
		      (list 'list
			    (list 'sort
				  (list 'car 'dirs-files)
				  'sort-func)
			    (list 'sort
				  (list 'cadr 'dirs-files)
				  'sort-func))))))
      (if
	  (eq dir exp)
	  body
	(macroexp-let*
	 (list
	  (list dir exp))
	 body)))))