.guix-authorizations

@@ -0,0 +1,4 @@
+(authorizations (version 0)
+                (("8D5B 14D2 CBB5 431F C0A8  9F5F 9F63 1B98 0337 7CE4" (name
+                                                                        "kimapr"))))
+

.guix-channel

@@ -0,0 +1,8 @@
+;; 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

README.md

@@ -0,0 +1,32 @@
+# 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:
+
+

kimapr-03377CE4.key

@@ -1,13 +0,0 @@
------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-----

kimapr/packages/misc.scm

@@ -0,0 +1,77 @@
+(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)))

kimapr/packages/override.scm

@@ -0,0 +1,76 @@
+(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))