a way of doing guix.scm

This commit is contained in:
Chris Cochrun 2023-06-29 10:40:35 -05:00
parent c1591f5211
commit 1b57171b1d

153
guix.scm
View file

@ -1,89 +1,100 @@
(define-module (lumina) ;; (define-module (lumina)
#:use-module (gnu packages) ;; #:use-module (gnu packages)
#:use-module (gnu packages rust-apps) ;; #:use-module (gnu packages rust-apps)
#:use-module (gnu services) ;; #:use-module (gnu packages llvm)
#:use-module (guix gexp) ;; #:use-module (gnu packages qt)
#:use-module (guix packages) ;; #:use-module (gnu packages kde-frameworks)
#:use-module (guix git-download) ;; #:use-module (gnu packages video)
#:use-module (guix build-system gnu) ;; #:use-module (gnu packages crates-io)
#:use-module ((guix licenses) #:prefix license:)) ;; #:use-module (gnu services)
;; #:use-module (guix gexp)
;; #:use-module (guix packages)
;; #:use-module (guix git-download)
;; #:use-module (guix build-system cmake)
;; #:use-module ((guix licenses) #:prefix license:))
(define-public corrosion (use-modules (gnu packages)
(package (gnu packages rust-apps)
(name "corrosion") (gnu packages llvm)
(version (git-version "0.0.1" revision commit)) (gnu packages qt)
(source (origin )) (gnu packages kde-frameworks)
(build-system cmake-build-system) (gnu packages video)
(arguments `(#:phases (gnu packages crates-io)
(modify-phases %standard-phases (gnu services)
(replace 'build (guix gexp)
(lambda* (#:key outputs #:allow-other-keys) (guix packages)
(invoke "cmake" "")))))) (guix git-download)
(inputs (list (guix build-system cmake)
clang ((guix licenses) #:prefix license:))
clang-toolchain
qtbase
qttools
qtquickcontrols2 (define this-directory
qtx11extras (dirname (local-file-absolute-file-name (local-file "guix.scm"))))
qtwayland
qtwebengine (define source
kirigami (local-file this-directory
qqc2-desktop-style #:recursive? #t
karchive #:select? (git-predicate this-directory)))
mpv
ffmpeg ;; (define-public corrosion
rust ;; (package
;; both of these need to be packaged yet ;; (name "corrosion")
;; corrosion is needed for build... ;; (version (git-version "0.0.1" revision commit))
;; corrosion ;; (source (origin ))
;; rust-rustfmt ;; (build-system cmake-build-system)
rust-clippy ;; (arguments `(#:phases
rust-cargo ;; (modify-phases %standard-phases
rust-analyzer)) ;; (replace 'build
(license license:gpl3+) ;; (lambda* (#:key outputs #:allow-other-keys)
(home-page "idk") ;; (invoke "cmake" ""))))))
(synopsis "A Church Presentation Application") ;; (inputs (list
(description "idk") ;; clang
)) ;; clang-toolchain))
;; (license license:gpl3+)
;; (home-page "idk")
;; (synopsis "A Church Presentation Application")
;; (description "idk")
;; ))
(define-public lumina (define-public lumina
;; (let ((commit "62f19dba573b924703829847feb1bfee68885514") ;; (let ((commit "62f19dba573b924703829847feb1bfee68885514")
;; (revision "0")) ;; (revision "0"))
(package (package
(name "lumina") (name "lumina")
(version (git-version "0.0.1" revision commit)) (version "0.0.1")
(source source) (source source)
(build-system cmake-build-system) (build-system cmake-build-system)
(arguments `(#:phases (arguments `(#:phases
(modify-phases %standard-phases (modify-phases %standard-phases
(replace 'build (replace 'build
(lambda* (#:key outputs #:allow-other-keys) (lambda* (#:key outputs #:allow-other-keys)
(invoke "cmake" "")))))) (invoke "sh" "./build.sh" "-d"))))))
(inputs (list (inputs '(("clang" ,clang)
clang ("clang-toolchain" ,clang-toolchain)
clang-toolchain ("qtbase" ,qtbase-5.15.8)
qtbase ("qttools" ,qttools-5.15.8)
qttools ("qtquickcontrols2" ,qtquickcontrols2-5.15.8)
qtquickcontrols2 ("qtx11extras" ,qtx11extras-5.15.8)
qtx11extras ("qtwayland" ,qtwayland-5.15.8)
qtwayland ("qtwebengine" ,qtwebengine-5.15.8)
qtwebengine ("kirigami" ,kirigami)
kirigami ("qqc2-desktop-style" ,qqc2-desktop-style)
qqc2-desktop-style ("karchive" ,karchive)
karchive ("mpv" ,mpv)
mpv ("ffmpeg" ,ffmpeg-5.1.3)
ffmpeg ("rust" ,rust)
rust ;; both of these need to be packaged yet
;; both of these need to be packaged yet ;; corrosion is needed for build...
;; corrosion is needed for build... ;; corrosion
;; corrosion ;; rust-rustfmt
;; rust-rustfmt ("rust-clippy" ,rust-clippy)
rust-clippy ("rust-cargo" ,rust-cargo)
rust-cargo ("rust-analyzer" ,rust-analyzer)))
rust-analyzer))
(license license:gpl3+) (license license:gpl3+)
(home-page "idk") (home-page "idk")
(synopsis "A Church Presentation Application") (synopsis "A Church Presentation Application")
(description "idk"))) (description "idk")))
lumina