diff options
| author | Maxim Cournoyer <maxim.cournoyer@gmail.com> | 2023-04-01 17:28:09 -0400 |
|---|---|---|
| committer | Maxim Cournoyer <maxim.cournoyer@gmail.com> | 2023-04-01 17:29:00 -0400 |
| commit | 107fbc375eb177e7731dc10d1821c383282fc492 (patch) | |
| tree | 2c66e0e6fc408bc0b9052b95e640782eacd61eb3 /gnu | |
| parent | 44422c1fba5b3169797749f84737331680972f60 (diff) | |
| download | guix-107fbc375eb177e7731dc10d1821c383282fc492.tar.gz guix-107fbc375eb177e7731dc10d1821c383282fc492.zip | |
gnu: imgui: Use gexp output variables.
* gnu/packages/toolkits.scm (imgui) [arguments]: Use gexp variables in install
phase.
Diffstat (limited to 'gnu')
| -rw-r--r-- | gnu/packages/toolkits.scm | 25 |
1 files changed, 13 insertions, 12 deletions
diff --git a/gnu/packages/toolkits.scm b/gnu/packages/toolkits.scm index 82b9490e62..a29ab01154 100644 --- a/gnu/packages/toolkits.scm +++ b/gnu/packages/toolkits.scm @@ -89,32 +89,33 @@ ;; fontconfig. (find-files "misc" "\\.cpp$")))) (replace 'install - (lambda* (#:key outputs #:allow-other-keys) - (let* ((out (assoc-ref outputs "out")) - (doc (assoc-ref outputs "doc")) - (header? (cut string-suffix? ".h" <>)) + (lambda _ + (let* ((header? (cut string-suffix? ".h" <>)) (imgui-headers (scandir "." header?)) (backend-headers (find-files "backends" "(glfw|opengl|sdl|vulkan).*\\.h$")) (misc-headers (find-files "misc" "\\.h$"))) - (install-file "libimgui.so" (string-append out "/lib")) + (install-file "libimgui.so" (string-append #$output "/lib")) ;; Install headers. (for-each (lambda (f) - (install-file f (string-append out "/include/imgui"))) + (install-file f (string-append #$output + "/include/imgui"))) imgui-headers) (for-each (lambda (f) (install-file f (string-append - out "/include/imgui/backends"))) + #$output + "/include/imgui/backends"))) backend-headers) (for-each (lambda (f) - (install-file f (string-append - out "/include/imgui/" (dirname f)))) + (install-file f (string-append #$output + "/include/imgui/" + (dirname f)))) misc-headers) ;; Install examples. - (copy-recursively - "examples" (string-append - doc "/share/imgui/examples")))))))) + (copy-recursively "examples" + (string-append #$output:doc + "/share/imgui/examples")))))))) (inputs (list fontconfig glfw mesa sdl2)) (home-page "https://github.com/ocornut/imgui") (synopsis "Immediate-mode C++ GUI library with minimal dependencies") |