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