amaharaneko/guix-mirrors
1
1
Fork 0
mirror of https://codeberg.org/guix/guix.git synced 2025-10-02 02:15:12 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

gnu: jpm: Apply formatting.

Browse source 
* gnu/packages/lisp.scm (jpm): Update to Apply formatting.
[arguments]: Format it.
[inputs]: Format it.
[native-search-paths]: Format it.

Change-Id: Icf18ab41e6a72608c4624c4af9048e857d152ce0
This commit is contained in:
jgart 2025-01-05 20:22:13 -06:00
parent 64448de261
commit d3ddbcc70a
No known key found for this signature in database
GPG key ID: A52AA2B477B6DD35
1 changed files with 64 additions and 63 deletions
Download patch file Download diff file Expand all files Collapse all files

127
gnu/packages/lisp.scm
View file

@ -938,70 +938,71 @@ assembler, PEG) is less than 1MB.")
(build-system copy-build-system)
(arguments
(list
#:phases #~(modify-phases %standard-phases
(add-after 'unpack 'fix-paths
(lambda* (#:key inputs #:allow-other-keys)
(substitute* "configs/linux_config.janet"
(("/usr/local")
#$output)
(("\"cc\"")
(string-append "\""
(search-input-file inputs "/bin/gcc")
"\""))
(("\"c\\+\\+\"")
(string-append "\""
(search-input-file inputs "/bin/g++")
"\""))
(("\"git\"")
(string-append "\""
(search-input-file inputs "/bin/git")
"\""))
(("\"curl\"")
(string-append "\""
(search-input-file inputs "/bin/curl")
"\"")))
(substitute* "jpm/shutil.janet"
(("cp")
(string-append (search-input-file inputs "/bin/cp"))))
(setenv "PREFIX"
#$output)))
(replace 'install
(lambda* (#:key inputs #:allow-other-keys)
(for-each (lambda (dir)
(mkdir-p (string-append #$output "/" dir)))
'("lib/janet/jpm" "share/man/man1"))
(invoke "janet" "bootstrap.janet"
"configs/linux_config.janet")
(let ((gcc-toolchain (assoc-ref inputs "gcc-toolchain"))
(core-min (assoc-ref inputs "coreutils-minimal")))
(wrap-program (string-append #$output "/bin/jpm")
`("JANET_HEADERPATH" ":" prefix
(,(string-append #$janet "/include/janet")))
`("JANET_LIBPATH" ":" prefix
(,(string-append #$janet "/lib")))
`("C_INCLUDE_PATH" ":" prefix
(,(string-append gcc-toolchain "/include")))
`("CPLUS_INCLUDE_PATH" ":" prefix
(,(string-append gcc-toolchain "/include/c++")
,(string-append gcc-toolchain "/include")))
`("LIBRARY_PATH" ":" prefix
(,(string-append gcc-toolchain "/lib")
,(string-append gcc-toolchain "/lib64")))
`("PATH" ":" prefix
(,(string-append gcc-toolchain "/bin")
,(string-append core-min "/bin"))))))))))
(inputs (list bash-minimal
coreutils-minimal
curl
gcc
git-minimal/pinned
;; Lazily resolve the gcc-toolchain to avoid a circular
;; dependency.
(module-ref (resolve-interface '(gnu packages commencement))
'gcc-toolchain)))
#:phases
#~(modify-phases %standard-phases
(add-after 'unpack 'fix-paths
(lambda* (#:key inputs #:allow-other-keys)
(substitute* "configs/linux_config.janet"
(("/usr/local")
#$output)
(("\"cc\"")
(string-append "\""
(search-input-file inputs "/bin/gcc")
"\""))
(("\"c\\+\\+\"")
(string-append "\""
(search-input-file inputs "/bin/g++")
"\""))
(("\"git\"")
(string-append "\""
(search-input-file inputs "/bin/git")
"\""))
(("\"curl\"")
(string-append "\""
(search-input-file inputs "/bin/curl")
"\"")))
(substitute* "jpm/shutil.janet"
(("cp")
(string-append (search-input-file inputs "/bin/cp"))))
(setenv "PREFIX"
#$output)))
(replace 'install
(lambda* (#:key inputs #:allow-other-keys)
(for-each (lambda (dir)
(mkdir-p (string-append #$output "/" dir)))
'("lib/janet/jpm" "share/man/man1"))
(invoke "janet" "bootstrap.janet"
"configs/linux_config.janet")
(let ((gcc-toolchain (assoc-ref inputs "gcc-toolchain"))
(core-min (assoc-ref inputs "coreutils-minimal")))
(wrap-program (string-append #$output "/bin/jpm")
`("JANET_HEADERPATH" ":" prefix
(,(string-append #$janet "/include/janet")))
`("JANET_LIBPATH" ":" prefix
(,(string-append #$janet "/lib")))
`("C_INCLUDE_PATH" ":" prefix
(,(string-append gcc-toolchain "/include")))
`("CPLUS_INCLUDE_PATH" ":" prefix
(,(string-append gcc-toolchain "/include/c++")
,(string-append gcc-toolchain "/include")))
`("LIBRARY_PATH" ":" prefix
(,(string-append gcc-toolchain "/lib")
,(string-append gcc-toolchain "/lib64")))
`("PATH" ":" prefix
(,(string-append gcc-toolchain "/bin")
,(string-append core-min "/bin"))))))))))
(inputs
(list bash-minimal
coreutils-minimal
curl
gcc
git-minimal/pinned
;; Lazily resolve the gcc-toolchain to avoid a circular
;; dependency.
(module-ref (resolve-interface '(gnu packages commencement))
'gcc-toolchain)))
(propagated-inputs (list janet))
(native-search-paths
(list $SSL_CERT_DIR $SSL_CERT_FILE))
(native-search-paths (list $SSL_CERT_DIR $SSL_CERT_FILE))
(home-page "https://janet-lang.org/")
(synopsis "Janet Project Manager for the Janet programming language")
(description