LEM 2.3.0 - Filer - How to hide dot files?

[aykaramba]

Checking out Filer in the latest version. Is it possible to hide dot files? If so how?

[vindarel]

Hello, I didn't find it is possible out of the box.

After a quick search, I see that the list of files to display is done in filer.lisp, create-directory-children:

(defun create-directory-children (pathname)
  (loop :for pathname :in (list-directory pathname)
 …

This change includes or excludes dotfiles when setting a global variable:

(defvar *show-hidden* t
  "If nil, don't show hidden files (dotfiles) in the filer.")

(defun create-directory-children (pathname)
  (loop :for pathname :in (list-directory pathname)
        :if *show-hidden*
        :collect (create-item pathname :open nil) :into res
        :if (and (not *show-hidden*)
                 (not (str:starts-with-p "." (file-namestring pathname))))
        :collect (create-item pathname :open nil) :into res
        :finally (return res)))

Try setf-ing *show-hidden* and hide/show the filer (C-x d).

Probably some stuff could be shared with directory mode (search files with ag and ignore more files). Do we want a separate global var here?

[vindarel]

We surely should define a method (user-extensible), or add hooks.

[aykaramba]

Thanks! Let me look into that. Okay, it's time I start digging into code now and see if I can also try to contribute. That looks straight forward.

Thanks for the follow up!