Re: guix melpa mirror!

[zimoun]

Hi,

On Thu, 17 Nov 2022 at 19:06, jgart <jgart@dismail.de> wrote:

> I would love for guix to have very powerful automated package creation
> for all language ecosystems! 

Well, it strongly depends on the quality of the targeted language
ecosystem.  For some, they provide enough metadata to rely on for good
automatizing; for instance, R with CRAN or Bioconductor.

Sadly, for many others ecosystem, they (upstream) do not provide enough
metadata to automatically fill all the package fields.  And some manual
tweaks are required.

For example, let count the number of packages that are tweaking their
’arguments’ fields (from ’#:tests? #f’ to complex phases modifications).
This is far from being a perfect metrics but it is a rough indication
about upstream quality: if they provide clean package respecting their
build system or if the package requires Guix adjustments.

Well, I get:

      r            : 2093 = 2093 = 1991 + 102 

which is good (only ~5% require ’arguments’ tweaks), but

      python       : 2630 = 2630 = 803  + 1827

is bad (only ~31% do not require an ’arguments’ tweak).

About Emacs, it reads,

      emacs        : 1222 = 1222 = 874  + 348 

>From my point of view, it seems that it would be hard to have full
automated Emacs packaging for Guix.  Well, it requires some work to find
some heuristics at importing (converting) time and that’s not
straightforward, IMHO.

Cheers,
simon

--8<---------------cut here---------------start------------->8---
$ guix repl -- arguments-vs-import.scm
key          : tot  = tot  = no-arguments + arguments
ocaml        : 57   = 57   = 0    + 57  
haskell      : 723  = 723  = 505  + 218 
clojure      : 11   = 11   = 0    + 11  
qt           : 226  = 226  = 98   + 128 
copy         : 105  = 105  = 1    + 104 
maven        : 1    = 1    = 0    + 1   
node         : 48   = 48   = 2    + 46  
minetest-mod : 18   = 18   = 18   + 0   
chicken      : 9    = 9    = 0    + 9   
emacs        : 1222 = 1222 = 874  + 348 
linux-module : 14   = 14   = 0    + 14  
raw          : 1    = 1    = 1    + 0   
glib-or-gtk  : 128  = 128  = 31   + 97  
asdf/source  : 659  = 659  = 553  + 106 
dune         : 226  = 226  = 39   + 187 
go           : 483  = 483  = 0    + 483 
cmake        : 1115 = 1115 = 92   + 1023
minify       : 11   = 11   = 1    + 10  
perl         : 823  = 823  = 710  + 113 
android-ndk  : 11   = 11   = 0    + 11  
waf          : 25   = 25   = 0    + 25  
trivial      : 223  = 223  = 0    + 223 
julia        : 273  = 273  = 129  + 144 
r            : 2093 = 2093 = 1991 + 102 
guile        : 41   = 41   = 14   + 27  
elm          : 29   = 29   = 24   + 5   
cargo        : 3342 = 3342 = 195  + 3147
ruby         : 475  = 475  = 80   + 395 
rebar        : 19   = 19   = 11   + 8   
scons        : 14   = 14   = 0    + 14  
font         : 85   = 85   = 61   + 24  
rakudo       : 21   = 21   = 10   + 11  
gnu          : 4241 = 4241 = 812  + 3429
asdf/ecl     : 637  = 637  = 434  + 203 
asdf/sbcl    : 678  = 678  = 453  + 225 
ant          : 462  = 462  = 1    + 461 
meson        : 448  = 448  = 88   + 360 
texlive      : 143  = 143  = 0    + 143 
python       : 2630 = 2630 = 803  + 1827
--8<---------------cut here---------------end--------------->8---

(use-modules (guix)
             (gnu)
             (ice-9 match))


(define table (make-hash-table))

(fold-packages (lambda (package result)
                 (let ((bs  (build-system-name
                             (package-build-system package)))
                       (arg (package-arguments    package)))
                   (match (hash-ref result bs)
                     ((tot wo wi)
                      (if (null? arg)
                          (hash-set! result bs (list
                                                (1+ tot)
                                                (1+ wo)
                                                wi))
                          (hash-set! result bs (list
                                                (1+ tot)
                                                wo
                                                (1+ wi)))))
                     (#f (if (null? arg)
                             (hash-set! result bs (list 1 1 0))
                             (hash-set! result bs (list 1 0 1))))
                     (_ (format #t "Error: ~s~%" (package-name package))))
                   result))
              table)


(define fmt "~13s: ~4s = ~4s = ~4s + ~4s~%")
(format #t fmt
        'key 'tot 'tot 'no-arguments 'arguments)
(hash-for-each-handle (lambda (kv)
                        (match kv
                          ((key . value)
                           (match value
                             ((tot wo wi)
                              (format #t fmt
                                      key
                                      (+ wo wi)
                                      tot wo wi))))))
                      table)