me/guix
Archived
1
0
Fork 0
Code Activity

gnu: guile-wm: Always use the input Guile's effective version.

Browse source 
* gnu/packages/guile-wm.scm (guile-wm)[arguments]: Replace hard-coded
version number with that of the "guile" input.
This commit is contained in:
Tobias Geerinckx-Rice 2022-05-22 02:00:03 +02:00
parent 53762a1bfd
commit 83a760dd58
No known key found for this signature in database
GPG key ID: 0DB0FF884F556D79
1 changed files with 7 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
gnu/packages/guile-wm.scm
View file

@ -95,14 +95,17 @@ dependencies.")
(ice-9 popen)) (ice-9 popen))
;; The '.scm' files go to $(datadir), so set that to the ;; The '.scm' files go to $(datadir), so set that to the
;; standard value. ;; standard value.
#:configure-flags (list (string-append "--datadir=" #:configure-flags
(assoc-ref %outputs "out") (let ((out (assoc-ref %outputs "out"))
"/share/guile/site/2.2")) (effective ,(version-major+minor
(package-version (this-package-input "guile")))))
(list (string-append "--datadir=" out
"/share/guile/site/" effective)))
#:phases #:phases
(modify-phases %standard-phases (modify-phases %standard-phases
(add-before 'configure 'set-module-directory (add-before 'configure 'set-module-directory
(lambda* (#:key outputs #:allow-other-keys) (lambda* (#:key outputs #:allow-other-keys)
;; Install .scm files to $out/share/guile/site/2.2. ;; Install .scm files to $out/share/guile/site/x.y.
(let ((out (assoc-ref outputs "out")) (let ((out (assoc-ref outputs "out"))
(effective (read-line (effective (read-line
(open-pipe* OPEN_READ (open-pipe* OPEN_READ