ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2025-01-27 04:59:27 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

openshot: Unbundle font.

Browse source 
* gnu/packages/video.scm (openshot)[source]: Add snippet to remove
bundled font.
[inputs]: Add font-ubuntu.
[arguments]: Add custom 'patch-font-location to patch the search path
for the unbundled font.
This commit is contained in:
Efraim Flashner 2019-04-08 19:55:07 +03:00
parent a512aa9181
commit 2afb79392d
No known key found for this signature in database
GPG key ID: 41AAE7DCCA3D8351
1 changed files with 14 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

15
gnu/packages/video.scm
View file

@ -91,6 +91,7 @@ (define-module (gnu packages video)
#:use-module (gnu packages elf) #:use-module (gnu packages elf)
#:use-module (gnu packages file) #:use-module (gnu packages file)
#:use-module (gnu packages flex) #:use-module (gnu packages flex)
#:use-module (gnu packages fonts)
#:use-module (gnu packages fontutils) #:use-module (gnu packages fontutils)
#:use-module (gnu packages freedesktop) #:use-module (gnu packages freedesktop)
#:use-module (gnu packages fribidi) #:use-module (gnu packages fribidi)
@ -3371,10 +3372,15 @@ (define-public openshot
(file-name (git-file-name name version)) (file-name (git-file-name name version))
(sha256 (sha256
(base32 (base32
"0mg63v36h7l8kv2sgf6x8c1n3ygddkqqwlciz7ccxpbm4x1idqba")))) "0mg63v36h7l8kv2sgf6x8c1n3ygddkqqwlciz7ccxpbm4x1idqba"))
(modules '((guix build utils)))
(snippet
'(begin
(delete-file-recursively "src/images/fonts") #t))))
(build-system python-build-system) (build-system python-build-system)
(inputs (inputs
`(("ffmpeg" ,ffmpeg) `(("ffmpeg" ,ffmpeg)
("font-ubuntu" ,font-ubuntu)
("libopenshot" ,libopenshot) ("libopenshot" ,libopenshot)
("python" ,python) ("python" ,python)
("python-pyqt" ,python-pyqt) ("python-pyqt" ,python-pyqt)
@ -3390,6 +3396,13 @@ (define-public openshot
(guix build qt-utils)) (guix build qt-utils))
#:phases (modify-phases %standard-phases #:phases (modify-phases %standard-phases
(delete 'build) ;install phase does all the work (delete 'build) ;install phase does all the work
(add-after 'unpack 'patch-font-location
(lambda* (#:key inputs #:allow-other-keys)
(let ((font (assoc-ref inputs "font-ubuntu")))
(substitute* "src/classes/app.py"
(("info.IMAGES_PATH") (string-append "\"" font "\""))
(("fonts") "share/fonts/truetype")))
#t))
(add-before 'install 'set-tmp-home (add-before 'install 'set-tmp-home
(lambda _ (lambda _
;; src/classes/info.py "needs" to create several ;; src/classes/info.py "needs" to create several