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

fix everything

Browse source
This commit is contained in:
Kimapr 2025-04-12 12:53:18 +05:00
parent 5137681e08
commit 9264265c7b
Signed by: kimapr
GPG key ID: 9F631B9803377CE4
2 changed files with 57 additions and 23 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
guix/build-self.scm
View file

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

78
kimapr/packages/override.scm
View file

@ -2,41 +2,77 @@
#:use-module (guix gexp) #:use-module (guix gexp)
#:use-module (guix utils) #:use-module (guix utils)
#:use-module (guix packages) #:use-module (guix packages)
#:use-module ((gnu packages base)
#:prefix gnu:)
#:use-module ((gnu packages lua) #:use-module ((gnu packages lua)
#:prefix gnu:) #:prefix gnu:)
#:use-module ((gnu packages video) #:use-module ((gnu packages video)
#:prefix gnu:) #:prefix gnu:)
#:use-module ((gnu packages audio) #:use-module ((gnu packages audio)
#:prefix gnu:) #:prefix gnu:)
#:replace (lua-5.4 ffmpeg-7 ffmpeg mpv)) #:replace (lua-5.4 ffmpeg-7 ffmpeg))
(define rewrite-rules
'())
(define (add-rewrite old new)
(set! rewrite-rules
(cons `(,old unquote new) rewrite-rules)) new)
;; Guix won't merge my patch for this after 1 grillion years ;; Guix won't merge my patch for this after 1 grillion years
(define lua-5.4 (define lua-5.4
(package (add-rewrite gnu:lua-5.4
(inherit gnu:lua-5.4) (package
(arguments (inherit gnu:lua-5.4)
(substitute-keyword-arguments (package-arguments gnu:lua-5.4) (arguments
((#:make-flags flags) (substitute-keyword-arguments (package-arguments gnu:lua-5.4)
(append (list-head flags ((#:make-flags flags)
(- (length flags) 1)) (append (list-head flags
'("linux-readline"))))))) (- (length flags) 1))
'("linux-readline"))))))))
(define (unfuck-ffmpeg ffmpeg) (define (unfuck-ffmpeg ffmpeg)
(package (add-rewrite ffmpeg
(inherit ffmpeg) (package
(arguments (inherit ffmpeg)
(substitute-keyword-arguments (package-arguments ffmpeg) (arguments
((#:configure-flags flags) (substitute-keyword-arguments (package-arguments ffmpeg)
#~(cons* "--enable-libopenmpt" ((#:configure-flags flags)
#$flags)))) #~(cons* "--enable-libopenmpt"
(inputs (modify-inputs (package-inputs ffmpeg) #$flags))))
(prepend gnu:libopenmpt))))) (inputs (modify-inputs (package-inputs ffmpeg)
(prepend gnu:libopenmpt))))))
(define ffmpeg-7 (define ffmpeg-7
(unfuck-ffmpeg gnu:ffmpeg-7)) (unfuck-ffmpeg gnu:ffmpeg-7))
(define ffmpeg (define ffmpeg
(unfuck-ffmpeg gnu:ffmpeg)) (unfuck-ffmpeg gnu:ffmpeg))
(define mpv (define-public (unpropagate-inputs pkg)
((package-input-rewriting `((,gnu:ffmpeg unquote ffmpeg))) (package
gnu:mpv)) (inherit pkg)
(inputs (append (package-inputs pkg)
(package-propagated-inputs pkg)))
(propagated-inputs '())))
(define-public mpv-noprop-gnu
(unpropagate-inputs gnu:mpv))
(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))))))