123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202 |
- (define-module (guix build-system clojure)
- #:use-module (guix build clojure-utils)
- #:use-module (guix build-system)
- #:use-module (guix build-system ant)
- #:use-module ((guix build-system gnu)
- #:select (standard-packages)
- #:prefix gnu:)
- #:use-module (guix derivations)
- #:use-module (guix packages)
- #:use-module ((guix search-paths)
- #:select
- ((search-path-specification->sexp . search-path-spec->sexp)))
- #:use-module (guix utils)
- #:use-module (ice-9 match)
- #:export (%clojure-build-system-modules
- clojure-build
- clojure-build-system))
- (define-with-docs %clojure-build-system-modules
- "Build-side modules imported by default."
- `((guix build clojure-build-system)
- (guix build clojure-utils)
- (guix build guile-build-system)
- ,@%ant-build-system-modules))
- (define %default-modules
-
- '((guix build clojure-build-system)
- (guix build clojure-utils)
- (guix build utils)))
- (define-with-docs %default-clojure
- "The default Clojure package."
- (delay (@* (gnu packages clojure) clojure)))
- (define-with-docs %default-jdk
- "The default JDK package."
- (delay (@* (gnu packages java) icedtea)))
- (define-with-docs %default-zip
- "The default ZIP package."
- (delay (@* (gnu packages compression) zip)))
- (define* (lower name
- #:key
- source target
- inputs native-inputs
- (clojure (force %default-clojure))
- (jdk (force %default-jdk))
- (zip (force %default-zip))
- outputs system
- #:allow-other-keys
- #:rest arguments)
- "Return a bag for NAME."
- (let ((private-keywords '(#:source #:target
- #:inputs #:native-inputs
- #:clojure #:jdk #:zip)))
- (if target
- (error "No cross-compilation for clojure-build-system yet: LOWER"
- target)
- (bag (name name)
- (system system)
- (host-inputs `(,@(if source
- `(("source" ,source))
- '())
- ,@inputs
- ,@(gnu:standard-packages)))
- (build-inputs `(("clojure" ,clojure)
- ("jdk" ,jdk "jdk")
- ("zip" ,zip)
- ,@native-inputs))
- (outputs outputs)
- (build clojure-build)
- (arguments (strip-keyword-arguments private-keywords
- arguments))))))
- (define-with-docs source->output-path
- "Convert source input to output path."
- (match-lambda
- (((? derivation? source))
- (derivation->output-path source))
- ((source)
- source)
- (source
- source)))
- (define-with-docs maybe-guile->guile
- "Find the right guile."
- (match-lambda
- ((and maybe-guile (? package?))
- maybe-guile)
- (#f
- (@* (gnu packages commencement) guile-final))))
- (define* (clojure-build store name inputs
- #:key
- (source-dirs `',%source-dirs)
- (test-dirs `',%test-dirs)
- (compile-dir %compile-dir)
- (jar-names `',(package-name->jar-names name))
- (main-class %main-class)
- (omit-source? %omit-source?)
- (aot-include `',%aot-include)
- (aot-exclude `',%aot-exclude)
- doc-dirs
- (doc-regex %doc-regex)
- (tests? %tests?)
- (test-include `',%test-include)
- (test-exclude `',%test-exclude)
- (phases '%standard-phases)
- (outputs '("out"))
- (search-paths '())
- (system (%current-system))
- (guile #f)
- (imported-modules %clojure-build-system-modules)
- (modules %default-modules))
- "Build SOURCE with INPUTS."
- (let ((builder `(begin
- (use-modules ,@modules)
- (clojure-build #:name ,name
- #:source ,(source->output-path
- (assoc-ref inputs "source"))
- #:source-dirs ,source-dirs
- #:test-dirs ,test-dirs
- #:compile-dir ,compile-dir
- #:jar-names ,jar-names
- #:main-class ,main-class
- #:omit-source? ,omit-source?
- #:aot-include ,aot-include
- #:aot-exclude ,aot-exclude
- #:doc-dirs ,doc-dirs
- #:doc-regex ,doc-regex
- #:tests? ,tests?
- #:test-include ,test-include
- #:test-exclude ,test-exclude
- #:phases ,phases
- #:outputs %outputs
- #:search-paths ',(map search-path-spec->sexp
- search-paths)
- #:system ,system
- #:inputs %build-inputs)))
- (guile-for-build (package-derivation store
- (maybe-guile->guile guile)
- system
- #:graft? #f)))
- (build-expression->derivation store name builder
- #:inputs inputs
- #:system system
- #:modules imported-modules
- #:outputs outputs
- #:guile-for-build guile-for-build)))
- (define clojure-build-system
- (build-system
- (name 'clojure)
- (description "Simple Clojure build system using plain old 'compile'")
- (lower lower)))
|