Re: How to setup default program to launch directory?

[Emanuel Berg]

You can get the files of a directory like this.

Then sort by extension and have an association list get you
a program for that extension ...

Maybe?

(require 'seq)

(defun dir-common-files (&optional dir)
  "Get a list of all files in the working directory."
  (let*((all-files (directory-files (or dir default-directory)))
        (files     (seq-difference all-files '("." ".."))) )
    files) )
;; (dir-common-files)
-- 
underground experts united
https://dataswamp.org/~incal