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