jacob
/
my-guix-packages
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Revert "Seeing if this fixes my ability to load Hedon."

Browse Source 
This reverts commit de4d8904a7.
main
Jacob Sowder 7 months ago
parent a3aedbe4fb
commit f54dc0e5de
1 changed files with 40 additions and 40 deletions
Show Stats Download Patch File Download Diff File

80
my-packages/my-games.scm
Unescape View File

@ -60,7 +60,7 @@
(define-public my-gzdoom (define-public my-gzdoom
(package (package
(name "gzdoom") (name "gzdoom")
(version "4.13.2") (version "4.10.0")
(source (source
(origin (origin
(method git-fetch) (method git-fetch)
@ -75,47 +75,47 @@
;; )) ;; ))
(modules '((guix build utils) (modules '((guix build utils)
(ice-9 regex))) (ice-9 regex)))
;; (snippet (snippet
;; '(begin '(begin
;; ;; remove files which mustn't be commercially redistributed. see ;; remove files which mustn't be commercially redistributed. see
;; ;; <https://zdoom.org/wiki/license#commercial_use>, the ‘contribution ;; <https://zdoom.org/wiki/license#commercial_use>, the ‘contribution
;; ;; guidelines’ at <https://github.com/zdoom>, and guix issue #73435. ;; guidelines’ at <https://github.com/zdoom>, and guix issue #73435.
;; (for-each (for-each
;; (lambda (directory) (lambda (directory)
;; (delete-file-recursively directory) (delete-file-recursively directory)
;; (substitute* "CMakeLists.txt" (substitute* "CMakeLists.txt"
;; (((string-append "add_subdirectory\\([[:blank:]]*" (((string-append "add_subdirectory\\([[:blank:]]*"
;; directory directory
;; "[[:blank:]]*\\)")) "[[:blank:]]*\\)"))
;; ""))) "")))
;; '( ;; "wadsrc_extra" ;game_support.pk3 '( "wadsrc_extra" ;game_support.pk3
;; "wadsrc_bm")) ;brightmaps.pk3 "wadsrc_bm")) ;brightmaps.pk3
;; ;; removing game_support.pk3 entirely would break freedoom & remove ;; removing game_support.pk3 entirely would break freedoom & remove
;; ;; users' ability to play commercial games, despite owning (only) the ;; users' ability to play commercial games, despite owning (only) the
;; ;; non-functional data. that can't be right. out of an abundance of ;; non-functional data. that can't be right. out of an abundance of
;; ;; caution, remove anything from the pk3 that could conceivably be ;; caution, remove anything from the pk3 that could conceivably be
;; ;; derived from copyrightable data that's not freely redistributable. ;; derived from copyrightable data that's not freely redistributable.
;; ;; (display "keeping only the following game_support.pk3 files:\n") (display "keeping only the following game_support.pk3 files:\n")
;; ;; (let* ((regexps (list "/font\\.inf$" (let* ((regexps (list "/font\\.inf$"
;; ;; "/harmony/.*\\.(txt|zs)$" "/harmony/.*\\.(txt|zs)$"
;; ;; "/(iwadinfo|mapinfo|sprofs)\\.txt$" "/(iwadinfo|mapinfo|sprofs)\\.txt$"
;; ;; "\\.z$")) "\\.z$"))
;; ;; (regexp* (format #f "(~{~a~^|~})" regexps)) (regexp* (format #f "(~{~a~^|~})" regexps))
;; ;; (regexp (make-regexp regexp* regexp/icase))) (regexp (make-regexp regexp* regexp/icase)))
;; ;; (define (keep-file? file stat) (define (keep-file? file stat)
;; ;; (let ((keep? (regexp-exec regexp file))) (let ((keep? (regexp-exec regexp file)))
;; ;; (when keep? (when keep?
;; ;; (format #t " ~a~%" file)) (format #t " ~a~%" file))
;; ;; keep?)) keep?))
;; ;; (for-each delete-file (find-files "wadsrc_extra/static" (for-each delete-file (find-files "wadsrc_extra/static"
;; ;; (negate keep-file?)))) (negate keep-file?))))
;; ;; remove some bundled libraries. xxx there are more, but removing
;; ;; them would require, at least, patching the build system. ;; remove some bundled libraries. xxx there are more, but removing
;; (with-directory-excursion "libraries" ;; them would require, at least, patching the build system.
;; (delete-file-recursively "bzip2") (with-directory-excursion "libraries"
;; ))) (delete-file-recursively "bzip2"))))
)) ))
(arguments (arguments
(list (list

Write Preview
Loading…
Cancel
Save