Compare commits
No commits in common. "master" and "keyring" have entirely different histories.
|
|
@ -1,4 +0,0 @@
|
||||||
(authorizations (version 0)
|
|
||||||
(("8D5B 14D2 CBB5 431F C0A8 9F5F 9F63 1B98 0337 7CE4" (name
|
|
||||||
"kimapr"))))
|
|
||||||
|
|
||||||
|
|
@ -1,8 +0,0 @@
|
||||||
;; This is a Guix channel.
|
|
||||||
|
|
||||||
(channel
|
|
||||||
(version 0)
|
|
||||||
;; Nothing Ever Happens ;; (news-file '())
|
|
||||||
;; WHAT THE FUCK IS A KEYRING 🔓️🔓️🔓️🔥🔥 ;; (keyring-reference '())
|
|
||||||
(url "https://git.kimapr.net/kimapr/klh-guix.git"))
|
|
||||||
; ^ the primary URL is actually inside my computer but you can't download from there so
|
|
||||||
32
README.md
32
README.md
|
|
@ -1,32 +0,0 @@
|
||||||
# Kimapr's Awful Packages
|
|
||||||
|
|
||||||
if you load this into your systejm it wont like this probably
|
|
||||||
|
|
||||||
## how
|
|
||||||
|
|
||||||
put something like this
|
|
||||||
|
|
||||||
```scm
|
|
||||||
(cons* (channel
|
|
||||||
(name 'klh-guix)
|
|
||||||
(url "/home/kimapr/stuff/software/klh-guix/")
|
|
||||||
(introduction
|
|
||||||
(make-channel-introduction
|
|
||||||
"ba6eee3d16bf9e0ae15d624eee184188f147bd07"
|
|
||||||
(openpgp-fingerprint
|
|
||||||
"8D5B 14D2 CBB5 431F C0A8 9F5F 9F63 1B98 0337 7CE4"))))
|
|
||||||
|
|
||||||
%default-channels)
|
|
||||||
```
|
|
||||||
|
|
||||||
into ~/.guix/config/channels.scm
|
|
||||||
|
|
||||||
remember to replace the url with a working mirror (like this one)
|
|
||||||
|
|
||||||
## what does "klh" mean
|
|
||||||
|
|
||||||
i forgor
|
|
||||||
|
|
||||||
# License:
|
|
||||||
|
|
||||||
|
|
||||||
13
kimapr-03377CE4.key
Normal file
13
kimapr-03377CE4.key
Normal file
|
|
@ -0,0 +1,13 @@
|
||||||
|
-----BEGIN PGP PUBLIC KEY BLOCK-----
|
||||||
|
|
||||||
|
mDMEZ/jN3RYJKwYBBAHaRw8BAQdAao8ENPVYunVNyrUSVrc8eefi5TUUmJRZyajK
|
||||||
|
CUz9rHy0BmtpbWFwcoiTBBMWCgA7FiEEjVsU0su1Qx/AqJ9fn2MbmAM3fOQFAmf4
|
||||||
|
zd0CGwMFCwkIBwICIgIGFQoJCAsCBBYCAwECHgcCF4AACgkQn2MbmAM3fOTLSQEA
|
||||||
|
lRiqaPMsy5sj6za+Qv8hFvaMlfEiBMGVoyH9vO3sNUwBAJtnGVpMvjvXoYcALS7U
|
||||||
|
SqoFFbvgbaIRqMytSDZjfc0CuDgEZ/jN3RIKKwYBBAGXVQEFAQEHQG8VFVzM3yJB
|
||||||
|
YDxGhJPkJIpYSlgpx7xSJbxfExyVSw5HAwEIB4h4BBgWCgAgFiEEjVsU0su1Qx/A
|
||||||
|
qJ9fn2MbmAM3fOQFAmf4zd0CGwwACgkQn2MbmAM3fOQX2QEAkjBBPIGPiyLW/G7q
|
||||||
|
gPT5WxgBx8bYUax6ff5pNlP9bDEBAJEkzpBNj7+Dp002DasTnYqkxEizVk/5jIbs
|
||||||
|
Leoepp0O
|
||||||
|
=NcXG
|
||||||
|
-----END PGP PUBLIC KEY BLOCK-----
|
||||||
|
|
@ -1,77 +0,0 @@
|
||||||
(define-module (kimapr packages misc)
|
|
||||||
#:use-module (guix utils)
|
|
||||||
#:use-module (guix build-system meson)
|
|
||||||
#:use-module (guix download)
|
|
||||||
#:use-module (guix packages)
|
|
||||||
#:use-module (gnu packages freedesktop)
|
|
||||||
#:use-module (gnu packages gettext)
|
|
||||||
#:use-module (gnu packages glib)
|
|
||||||
#:use-module (gnu packages gnome)
|
|
||||||
#:use-module (gnu packages gtk)
|
|
||||||
#:use-module (gnu packages ninja)
|
|
||||||
#:use-module (gnu packages pkg-config)
|
|
||||||
#:use-module (gnu packages python)
|
|
||||||
#:use-module (gnu packages python-xyz)
|
|
||||||
#:use-module ((guix licenses)
|
|
||||||
#:prefix license:))
|
|
||||||
|
|
||||||
(define-public accerciser
|
|
||||||
(package
|
|
||||||
(name "accerciser")
|
|
||||||
(version "3.46.2")
|
|
||||||
(source
|
|
||||||
(origin
|
|
||||||
(method url-fetch)
|
|
||||||
(uri (string-append "mirror://gnome/sources/"
|
|
||||||
name
|
|
||||||
"/"
|
|
||||||
(version-major+minor version)
|
|
||||||
"/"
|
|
||||||
name
|
|
||||||
"-"
|
|
||||||
version
|
|
||||||
".tar.xz"))
|
|
||||||
(sha256
|
|
||||||
(base32 "03kpjrs890wxmm1pffh3n9k3q1d5hrzplzsg7ilqgr943x2nkx5g"))))
|
|
||||||
(build-system meson-build-system)
|
|
||||||
(native-inputs (list gobject-introspection
|
|
||||||
yelp-tools
|
|
||||||
desktop-file-utils
|
|
||||||
`(,gtk+ "bin")
|
|
||||||
`(,glib "bin")
|
|
||||||
pkg-config
|
|
||||||
appstream))
|
|
||||||
(arguments
|
|
||||||
'(#:phases (modify-phases %standard-phases
|
|
||||||
(add-after 'install 'wrap-orca
|
|
||||||
(lambda* (#:key outputs #:allow-other-keys)
|
|
||||||
(wrap-program (search-input-file outputs
|
|
||||||
"bin/accerciser")
|
|
||||||
`("GI_TYPELIB_PATH" ":" prefix
|
|
||||||
(,(getenv "GI_TYPELIB_PATH")))
|
|
||||||
`("GUIX_PYTHONPATH" ":" prefix
|
|
||||||
(,(getenv "GUIX_PYTHONPATH")))
|
|
||||||
`("GSETTINGS_SCHEMA_DIR" =
|
|
||||||
(,(string-append (assoc-ref outputs "out")
|
|
||||||
"/share/glib-2.0/schemas")))))))))
|
|
||||||
(inputs (list gtk+
|
|
||||||
glib
|
|
||||||
gnu-gettext
|
|
||||||
python-3.10
|
|
||||||
python-pygobject
|
|
||||||
python-dbus
|
|
||||||
python-pyatspi
|
|
||||||
python-pyxdg
|
|
||||||
python-pycairo
|
|
||||||
python-ipython))
|
|
||||||
(synopsis "Interactive accessibility explorer")
|
|
||||||
(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
|
|
||||||
if an application is providing correct information to assistive technologies
|
|
||||||
and automated test frameworks. Accerciser has a simple plugin framework which
|
|
||||||
you can use to create custom views of accessibility information.
|
|
||||||
|
|
||||||
In essence, Accerciser is a next generation at-poke tool.")
|
|
||||||
(license license:bsd-3)))
|
|
||||||
|
|
@ -1,76 +0,0 @@
|
||||||
(define-module (kimapr packages override)
|
|
||||||
#:use-module (guix gexp)
|
|
||||||
#:use-module (guix utils)
|
|
||||||
#:use-module (guix packages)
|
|
||||||
#:use-module ((gnu packages base)
|
|
||||||
#:prefix gnu:)
|
|
||||||
#:use-module ((gnu packages video)
|
|
||||||
#:prefix gnu:)
|
|
||||||
#:use-module ((gnu packages audio)
|
|
||||||
#:prefix gnu:)
|
|
||||||
#:replace (ffmpeg-7 ffmpeg))
|
|
||||||
|
|
||||||
|
|
||||||
;;
|
|
||||||
;; Utils
|
|
||||||
;;
|
|
||||||
|
|
||||||
(define rewrite-rules
|
|
||||||
'())
|
|
||||||
|
|
||||||
(define (add-rewrite old new)
|
|
||||||
(set! rewrite-rules
|
|
||||||
(cons `(,old unquote new) rewrite-rules)) new)
|
|
||||||
|
|
||||||
(define-public (specs/pkgs->pkgs pkgs)
|
|
||||||
(map (lambda (x)
|
|
||||||
(if (string? x)
|
|
||||||
(specification->package x) x)) pkgs))
|
|
||||||
|
|
||||||
(define-public (unfuck-packages pkgs)
|
|
||||||
;; kind of a hack but i'm laziggy
|
|
||||||
;; P.S. this too ktoo much work to debug goddamn i shoud ve done somehting less sus amongus
|
|
||||||
(map (lambda (x)
|
|
||||||
(if (string? (car x))
|
|
||||||
(let ((y (cdr x)))
|
|
||||||
(if (pair? (cdr y)) y
|
|
||||||
(car y))) x))
|
|
||||||
(package-inputs ((package-input-rewriting rewrite-rules)
|
|
||||||
(package
|
|
||||||
(inherit gnu:hello)
|
|
||||||
(inputs pkgs))))))
|
|
||||||
|
|
||||||
(define-public (unpropagate-inputs pkg)
|
|
||||||
(set! pkg
|
|
||||||
(car (specs/pkgs->pkgs `(,pkg))))
|
|
||||||
(package
|
|
||||||
(inherit pkg)
|
|
||||||
(inputs (append (package-inputs pkg)
|
|
||||||
(package-propagated-inputs pkg)))
|
|
||||||
(propagated-inputs '())))
|
|
||||||
|
|
||||||
|
|
||||||
;;
|
|
||||||
;; packag
|
|
||||||
;;
|
|
||||||
|
|
||||||
(define (unfuck-ffmpeg ffmpeg)
|
|
||||||
(add-rewrite 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-public mpv-noprop-gnu
|
|
||||||
(unpropagate-inputs gnu:mpv))
|
|
||||||
Loading…
Reference in a new issue