[PATCH consfigurator v3] DATA.ASDF:SYSTEM-VERSION-FILES support systems with version files

[Sean Whitton]

Hello,

On Tue 11 Oct 2022 at 12:48PM +02, Russell Sim wrote:

> Sean Whitton <spwhitton at spwhitton.name> writes:
>
>> On Thu 06 Oct 2022 at 09:10PM +02, Russell Sim wrote:
>>> What do you think the best way to deal with this issue is?  I was
>>> thinking it might make more sense to instead just tar the entire
>>> system directory rather than being picky about which files are taken?
>>
>> How about including any text file?  Then we avoid accidentally uploading
>> huge screenshots etc.
>
> From what I can see in my local Quicklisp archive, file usage is
> distributed like
>
> read-file-form: 10 instances, 7 projects, version.sexp|version.lisp-expr|version-string.sexp
> read-file-line: 10 instances, 2 projects, version.text|../make/version.make|make/version.make
> uiop:read-file-string: 6 instances, 6 projects, README.md|README.org
>
> What if instead we select the files by name using a regex like this?
>
> CL-USER> (defvar *extra-project-files-regex* "(?i)(readme.*|license.*)")
> *EXTRA-PROJECT-FILES-REGEX*
> CL-USER> (let ((re (ppcre:parse-string *extra-project-files-regex*)))
>            (remove-if-not (lambda (f) (ppcre:scan re (namestring f))) (directory #P"**/*.*")))
> (#P"/home/russell/projects/lisp/planet-git/LICENSE"
>  #P"/home/russell/projects/lisp/planet-git/README.org")

That's okay, but it'd be more future-proof to do all text files, right?

-- 
Sean Whitton