kimapr/klh-guix
1
0
Fork 0
Code Issues Pull requests Actions Packages Projects Releases Wiki Activity

BREAK EVERYTHING

Browse source
This commit is contained in:
Kimapr 2025-04-11 17:38:57 +05:00
parent 13056b443d
commit 5137681e08
Signed by: kimapr
GPG key ID: 9F631B9803377CE4
3 changed files with 100 additions and 83 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
guix/build-self.scm Normal file
View file

@ -0,0 +1,2 @@
(define-module (guix build-self))
; erm.

139
kimapr/packages/misc.scm
View file

@ -1,11 +1,8 @@
(define-module (kimapr packages misc) (define-module (kimapr packages misc)
#:use-module (guix gexp)
#:use-module (guix utils) #:use-module (guix utils)
#:use-module (guix build-system meson)
#:use-module (guix download) #:use-module (guix download)
#:use-module (guix packages) #:use-module (guix packages)
#:use-module (gnu packages lua)
#:use-module (gnu packages video)
#:use-module (gnu packages audio)
#:use-module (gnu packages freedesktop) #:use-module (gnu packages freedesktop)
#:use-module (gnu packages gettext) #:use-module (gnu packages gettext)
#:use-module (gnu packages glib) #:use-module (gnu packages glib)
@ -16,89 +13,65 @@
#:use-module (gnu packages python) #:use-module (gnu packages python)
#:use-module (gnu packages python-xyz) #:use-module (gnu packages python-xyz)
#:use-module ((guix licenses) #:use-module ((guix licenses)
#:prefix license:) #:prefix license:))
#:export (lua ffmpeg mpv accerciser))
(package (define-public accerciser
(name "accerciser") (package
(version "3.46.2") (name "accerciser")
(source (version "3.46.2")
(origin (source
(method url-fetch) (origin
(uri (string-append "mirror://gnome/sources/" (method url-fetch)
name (uri (string-append "mirror://gnome/sources/"
"/" name
(version-major+minor version) "/"
"/" (version-major+minor version)
name "/"
"-" name
version "-"
".tar.xz")) version
(sha256 ".tar.xz"))
(base32 "03kpjrs890wxmm1pffh3n9k3q1d5hrzplzsg7ilqgr943x2nkx5g")))) (sha256
(build-system meson-build-system) (base32 "03kpjrs890wxmm1pffh3n9k3q1d5hrzplzsg7ilqgr943x2nkx5g"))))
(native-inputs (list gobject-introspection (build-system meson-build-system)
yelp-tools (native-inputs (list gobject-introspection
desktop-file-utils yelp-tools
`(,gtk+ "bin") desktop-file-utils
`(,glib "bin") `(,gtk+ "bin")
pkg-config `(,glib "bin")
appstream)) pkg-config
(arguments appstream))
'(#:phases (modify-phases %standard-phases (arguments
(add-after 'install 'wrap-orca '(#:phases (modify-phases %standard-phases
(lambda* (#:key outputs #:allow-other-keys) (add-after 'install 'wrap-orca
(wrap-program (search-input-file outputs "bin/accerciser") (lambda* (#:key outputs #:allow-other-keys)
`("GI_TYPELIB_PATH" ":" prefix (wrap-program (search-input-file outputs
(,(getenv "GI_TYPELIB_PATH"))) "bin/accerciser")
`("GUIX_PYTHONPATH" ":" prefix `("GI_TYPELIB_PATH" ":" prefix
(,(getenv "GUIX_PYTHONPATH"))) (,(getenv "GI_TYPELIB_PATH")))
`("GSETTINGS_SCHEMA_DIR" = `("GUIX_PYTHONPATH" ":" prefix
(,(string-append (assoc-ref outputs "out") (,(getenv "GUIX_PYTHONPATH")))
"/share/glib-2.0/schemas"))))))))) `("GSETTINGS_SCHEMA_DIR" =
(inputs (list gtk+ (,(string-append (assoc-ref outputs "out")
glib "/share/glib-2.0/schemas")))))))))
gnu-gettext (inputs (list gtk+
python-3.10 glib
python-pygobject gnu-gettext
python-dbus python-3.10
python-pyatspi python-pygobject
python-pyxdg python-dbus
python-pycairo python-pyatspi
python-ipython)) python-pyxdg
(synopsis "Interactive accessibility explorer") python-pycairo
(home-page "https://gitlab.gnome.org/GNOME/accerciser") python-ipython))
(description (synopsis "Interactive accessibility explorer")
"Accerciser is an interactive Python accessibility explorer for the GNOME (home-page "https://gitlab.gnome.org/GNOME/accerciser")
(description
"Accerciser is an interactive Python accessibility explorer for the GNOME
desktop. It uses AT-SPI2 to inspect and control widgets, allowing you to check desktop. It uses AT-SPI2 to inspect and control widgets, allowing you to check
if an application is providing correct information to assistive technologies if an application is providing correct information to assistive technologies
and automated test frameworks. Accerciser has a simple plugin framework which and automated test frameworks. Accerciser has a simple plugin framework which
you can use to create custom views of accessibility information. you can use to create custom views of accessibility information.
In essence, Accerciser is a next generation at-poke tool.") In essence, Accerciser is a next generation at-poke tool.")
(license license:bsd-3)) (license license:bsd-3)))
(define-public lua
(package
(inherit lua-5.4)
(arguments
(substitute-keyword-arguments (package-arguments lua-5.4)
((#:make-flags flags)
(append (list-head flags
(- (length flags) 1))
'("linux-readline")))))))
(define-public ffmpeg
(package
(inherit ffmpeg)
(arguments
(substitute-keyword-arguments (package-arguments ffmpeg)
((#:configure-flags flags)
#~(cons* "--enable-libopenmpt"
#$flags))))
(inputs (modify-inputs (package-inputs ffmpeg)
(prepend libopenmpt)))))
(define-public mpv
((package-input-rewriting `((,ffmpeg unquote ffmpeg-mod)))
mpv))

42
kimapr/packages/override.scm Normal file
View file

@ -0,0 +1,42 @@
(define-module (kimapr packages override)
#:use-module (guix gexp)
#:use-module (guix utils)
#:use-module (guix packages)
#:use-module ((gnu packages lua)
#:prefix gnu:)
#:use-module ((gnu packages video)
#:prefix gnu:)
#:use-module ((gnu packages audio)
#:prefix gnu:)
#:replace (lua-5.4 ffmpeg-7 ffmpeg mpv))
;; Guix won't merge my patch for this after 1 grillion years
(define lua-5.4
(package
(inherit gnu:lua-5.4)
(arguments
(substitute-keyword-arguments (package-arguments gnu:lua-5.4)
((#:make-flags flags)
(append (list-head flags
(- (length flags) 1))
'("linux-readline")))))))
(define (unfuck-ffmpeg ffmpeg)
(package
(inherit ffmpeg)
(arguments
(substitute-keyword-arguments (package-arguments ffmpeg)
((#:configure-flags flags)
#~(cons* "--enable-libopenmpt"
#$flags))))
(inputs (modify-inputs (package-inputs ffmpeg)
(prepend gnu:libopenmpt)))))
(define ffmpeg-7
(unfuck-ffmpeg gnu:ffmpeg-7))
(define ffmpeg
(unfuck-ffmpeg gnu:ffmpeg))
(define mpv
((package-input-rewriting `((,gnu:ffmpeg unquote ffmpeg)))
gnu:mpv))