109 lines
4 KiB
Scheme
109 lines
4 KiB
Scheme
(define-module (sakura packages qt)
|
|
#:use-module ((guix licenses) #:prefix license:)
|
|
#:use-module (guix utils)
|
|
#:use-module (guix gexp)
|
|
#:use-module (guix packages)
|
|
#:use-module (guix download)
|
|
#:use-module (guix git-download)
|
|
#:use-module (guix build-system gnu)
|
|
#:use-module (gnu packages base)
|
|
#:use-module (gnu packages gtk)
|
|
#:use-module (gnu packages xorg)
|
|
#:use-module (gnu packages xdisorg)
|
|
#:use-module (gnu packages pkg-config)
|
|
#:use-module (gnu packages qt))
|
|
|
|
(define-public qt5-styleplugins
|
|
(let ((commit "7bd6205398b2d89b3ac083b2f6f00b197f40057a")
|
|
(revision "1"))
|
|
(package
|
|
(name "qt5-styleplugins")
|
|
(version (git-version "5.0.0" revision commit))
|
|
(source (origin
|
|
(method git-fetch)
|
|
(uri (git-reference
|
|
(url "https://github.com/qt/qtstyleplugins")
|
|
(commit commit)))
|
|
(file-name (git-file-name name version))
|
|
(sha256
|
|
(base32
|
|
"0pi30l6g8bk1z83n6q6khjcm789szzz52aq1r9va6285i5j8ykac"))))
|
|
(build-system gnu-build-system)
|
|
(arguments
|
|
`(#:phases (modify-phases %standard-phases
|
|
(replace 'configure
|
|
(lambda* (#:key outputs #:allow-other-keys)
|
|
(let ((out (assoc-ref outputs "out")))
|
|
(invoke "qmake"
|
|
(string-append "prefix=" out)))))
|
|
(replace 'install
|
|
(lambda* (#:key inputs outputs #:allow-other-keys)
|
|
(let ((out (assoc-ref outputs "out"))
|
|
(qt5 (assoc-ref inputs "qtbase")))
|
|
(invoke "make" (string-append "INSTALL_ROOT=\"" out "\"") "install")
|
|
(let ((lib (string-append out qt5 "/lib")))
|
|
(invoke "mv" lib out)
|
|
(invoke "rm" "-fr" (string-append out "/gnu"))))))
|
|
)))
|
|
(native-inputs
|
|
(list qttools-5
|
|
findutils
|
|
coreutils))
|
|
(inputs
|
|
(list qtbase-5))
|
|
(home-page "https://github.com/qt/qtstyleplugins")
|
|
(synopsis "Additional style plugins for Qt")
|
|
(description "Additional style plugins for Qt")
|
|
(license license:expat))))
|
|
|
|
|
|
(define-public qt6gtk2
|
|
(package
|
|
(name "qt6gtk2")
|
|
(version "0.2")
|
|
(source (origin
|
|
(method url-fetch)
|
|
(uri (string-append "https://github.com/trialuser02/qt6gtk2"
|
|
"/archive/refs/tags/" version ".tar.gz"))
|
|
(sha256
|
|
(base32
|
|
"133f8ax1clbsc4ppdibfjcfz38153rznplp1sgfcrfi7bkgrm00c"))))
|
|
(build-system gnu-build-system)
|
|
(arguments
|
|
`(#:phases (modify-phases %standard-phases
|
|
(replace 'configure
|
|
(lambda* (#:key inputs outputs #:allow-other-keys)
|
|
(let ((out (assoc-ref outputs "out"))
|
|
(gtk2 (assoc-ref inputs "gtk+"))
|
|
(x11 (assoc-ref inputs "libx11")))
|
|
(substitute* "qt6gtk2.pri"
|
|
(("UI_DIR") (string-append
|
|
"PKG_CONFIG = "
|
|
(assoc-ref inputs "pkg-config")
|
|
"/bin/pkg-config"
|
|
"\nPKG_CONFIG_PATH = "
|
|
gtk2 "/include" ":" x11 "/include"
|
|
"\nUI_DIR")))
|
|
(invoke "qmake"
|
|
(string-append "prefix=" out)))))
|
|
(replace 'install
|
|
(lambda* (#:key inputs outputs #:allow-other-keys)
|
|
(let ((out (assoc-ref outputs "out"))
|
|
(qt5 (assoc-ref inputs "qtbase")))
|
|
(invoke "make" (string-append "INSTALL_ROOT=\"" out "\"") "install")
|
|
(let ((lib (string-append out qt5 "/lib")))
|
|
(invoke "mv" lib out)
|
|
(invoke "rm" "-fr" (string-append out "/gnu")))))))))
|
|
(native-inputs
|
|
(list pkg-config
|
|
qttools
|
|
coreutils))
|
|
(inputs
|
|
(list qtbase
|
|
gtk+-2
|
|
libx11
|
|
libxkbcommon))
|
|
(home-page "")
|
|
(synopsis "")
|
|
(description "")
|
|
(license license:expat)))
|