bug#26802: [PATCH 3/4] guix: lint: Check for version in source file name.

[Arun Isaac]

>>    (define (origin-file-name-valid? origin)
>> -    ;; Return #f if the source file name contains only a version or is #f;
>> -    ;; indicates that the origin needs a 'file-name' field.
>> +    ;; Return #f if the source file name is #f, contains only a version, or
>> +    ;; does not contain a version; indicates that the origin needs a
>> +    ;; 'file-name' field.
>>      (let ((file-name (origin-actual-file-name origin))
>>            (version (package-version package)))
>>        (and file-name
>>             ;; Common in many projects is for the filename to start
>>             ;; with a "v" followed by the version,
>>             ;; e.g. "v3.2.0.tar.gz".
>> -           (not (string-match (string-append "^v?" version) file-name)))))
>> +           (not (string-match (string-append "^v?" version) file-name))
>> +           (string-match version file-name))))
>
> What about simply:
>
>   (string-prefix? (string-append (package-name package) "-"
>                                  (package-version package))
>                   file-name)

This will break all those emacs, python, etc. packages that have
"emacs-", "python-" prefixes in the package-name, but not in their
source file names. We'll have to add the file-name field to practically
every Guix package. I'm not sure this is a good idea.

Couldn't we drop patch 3, and just use patch 4 to fix this bug?