me
/
guix
Archived
1
0
Fork 0
Code

gnu: python: Move idle to a separate output. 

idle is a programming environment that is not useful for building
packages, but it is still useful for end users. This saves 5MB in the
default output.

* gnu/packages/python.scm (python-2.7)[outputs]: Add `idle'.
[arguments]: Move idle files in the new output.
(wrap-python): Do not wrap idle since it is in a different output.
master
Julien Lepiller 2021-06-03 22:14:14 +02:00
parent 8ce96d8447
commit e4aa346d57
No known key found for this signature in database
GPG Key ID: 53D457B2D636EE82
1 changed files with 25 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

28
gnu/packages/python.scm
View File

@ -176,7 +176,8 @@
"Lib/test/test_subprocess.py"))
#t))))
(outputs '("out"
"tk")) ;tkinter; adds 50 MiB to the closure
"tk" ;tkinter; adds 50 MiB to the closure
"idle")) ;programming environment; weighs 5MB
(build-system gnu-build-system)
(arguments
`(#:test-target "test"
@ -360,6 +361,27 @@
(install-file tkinter.so target)
(delete-file tkinter.so)))))
#t)))
(add-after 'install 'move-idle
(lambda* (#:key outputs #:allow-other-keys)
;; when idle is built, move it to a separate output to save some
;; space (5MB)
(let ((out (assoc-ref outputs "out"))
(idle (assoc-ref outputs "idle")))
(when idle
(for-each
(lambda (file)
(let ((target (string-append idle "/bin/" (basename file))))
(install-file file (dirname target))
(delete-file file)))
(find-files (string-append out "/bin") "^idle"))
(match (find-files out "^idlelib$" #:directories? #t)
((idlelib)
(let* ((len (string-length out))
(target (string-append idle "/"
(string-drop idlelib len)
"/site-packages")))
(mkdir-p (dirname target))
(rename-file idlelib target))))))))
(add-after 'install 'install-sitecustomize.py
,(customize-site version)))))
(inputs
@ -623,8 +645,8 @@ for more information.")))
(lambda (old new)
(symlink (string-append python old)
(string-append bin "/" new)))
`("python3" ,"pydoc3" ,"idle3" ,"pip3")
`("python" ,"pydoc" ,"idle" ,"pip"))
`("python3" ,"pydoc3" ,"pip3")
`("python" ,"pydoc" ,"pip"))
;; python-config outputs search paths based upon its location,
;; use a bash wrapper to avoid changing its outputs.
(let ((bash (string-append (assoc-ref %build-inputs "bash")