Maxim Cournoyer <[email protected]> writes:

> Hello,
>
> Leo Prikler <[email protected]>
>
> [...]
>
>> Regarding the impact, I think it should be fine if we commit this
>> closely before or after #38619, since that probably forces all Elisp
>> libraries to be rebuilt anyways (also CC'd Maxim to have a look at
>> this).  Hopefully at least the doom-theme autoloads compile correctly.
>> WDYT?
>>
>> Leo
>
> IIRC, emacs{-minimal} have about ~300 non-Elisp dependents, which IMO is
> OK for master (Elisp packages are very cheap to build, so I don't count
> them).
>
> I've just verified this with the following script:
>
> (use-modules (gnu packages)
>            (guix graph)
>            (guix monads)
>            (guix packages)
>            (guix store)
>            (guix scripts graph)
>            (guix scripts refresh)
>            (gnu packages emacs)
>            (srfi srfi-1)
>            (srfi srfi-26))
>
> (define (all-packages)
>   "Return the list of all the distro's packages."
>   (fold-packages (lambda (package result)
>                    ;; Ignore deprecated packages.
>                    (if (package-superseded package)
>                        result
>                        (cons package result)))
>                  '()
>                  #:select? (const #t)))
>
> (define (packages->dependents packages)
>
>   (define (full-name package)
>     (string-append (package-name package) "@"
>                  (package-version package)))
>
>   (with-store store
>     (run-with-store store
>       (mlet %store-monad ((edges (node-back-edges
>                                   %bag-node-type
>                                   (package-closure (all-packages)))))
>         (let ((dependents (node-transitive-edges packages edges)))
>           (return (map full-name dependents)))))))
>
> (define (compute-results)
>   (let* ((dependents (packages->dependents (list emacs emacs-minimal)))
>        (non-emacs (remove (cut string-prefix? "emacs-" <>) dependents)))
>     (format #t "Emacs{-minimal} have ~d dependents, ~d of which are not pure \
> Emacs libraries: ~a~%" (length dependents) (length non-emacs) non-emacs)))
>
> (compute-results)
>
> Which outputs:
>
> Emacs{-minimal} have 973 dependents, 274 of which are not pure Emacs
> libraries: ([email protected] [email protected] [email protected]
> [email protected] [email protected] [email protected]
> [email protected] [email protected] [email protected] [email protected]
> [email protected] [email protected] [email protected]
> [email protected] [email protected] [email protected] [email protected]
> [email protected] [email protected] [email protected] [email protected]
> [email protected] [email protected] [email protected] [email protected]
> [...]
>
> HTH,
>
> Maxim
>
>
>
>

Leo and Maxim,

Do you think this feature addition to the emacs-build-system is good to
be pushed, then? I think it looks quite fine but I want to double check
before potentially doing something dumb.

That said, we should probably also document this.

-- 
Brett M. Gilio
GNU Guix, Contributor | GNU Project, Webmaster
[DFC0 C7F7 9EE6 0CA7 AE55 5E19 6722 43C4 A03F 0EEE]
<[email protected]> <[email protected]>



Reply via email to