Subject: bug#38613: Disabling bytecompilation on a list of files.

From: Maxim Cournoyer <[email-masked]>
Date: Tue, 17 Dec 2019 14:03:29 +0900

Hello,

Leo Prikler <[email-masked]>

[...]

> 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:

--8<---------------cut here---------------start------------->8---
(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)
--8<---------------cut here---------------end--------------->8---

Which outputs:

Emacs{-minimal} have 973 dependents, 274 of which are not pure Emacs
libraries: ([email-masked] [email-masked] [email-masked]
[email-masked] [email-masked] [email-masked]
[email-masked] [email-masked] [email-masked] [email-masked]
[email-masked] [email-masked] [email-masked]
[email-masked] [email-masked] [email-masked] [email-masked]
[email-masked] [email-masked] [email-masked] [email-masked]
[email-masked] [email-masked] [email-masked] [email-masked]
[...]

HTH,

Maxim