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

gnu: qutebrowser: Install more scripts.

Browse source 
* gnu/packages/web-browsers.scm (qutebrowser)[arguments]: Rewrite cutsom
'install-more phase to use included makefile.
This commit is contained in:
Efraim Flashner 2022-05-26 16:42:30 +03:00
parent a8f4023705
commit 7fb0207aa2
No known key found for this signature in database
GPG key ID: 41AAE7DCCA3D8351
1 changed files with 6 additions and 19 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

25
gnu/packages/web-browsers.scm
View file

@ -504,25 +504,12 @@ (define-public qutebrowser
(setenv "QT_QPA_PLATFORM" "offscreen"))) (setenv "QT_QPA_PLATFORM" "offscreen")))
(add-after 'install 'install-more (add-after 'install 'install-more
(lambda* (#:key outputs #:allow-other-keys) (lambda* (#:key outputs #:allow-other-keys)
(let* ((out (assoc-ref outputs "out")) (let ((out (assoc-ref outputs "out")))
(app (string-append out "/share/applications")) (rename-file "misc/Makefile" "Makefile")
(hicolor (string-append out "/share/icons/hicolor"))) (substitute* "Makefile"
(install-file "doc/qutebrowser.1" ((".*setup\\.py.*") ""))
(string-append out "/share/man/man1")) (invoke "make" "install" (string-append "PREFIX=" out))
(for-each (delete-file-recursively (string-append out "/share/metainfo")))))
(lambda (i)
(let ((src (format #f "icons/qutebrowser-~dx~d.png" i i))
(dest (format #f "~a/~dx~d/apps/qutebrowser.png"
hicolor i i)))
(mkdir-p (dirname dest))
(copy-file src dest)))
'(16 24 32 48 64 128 256 512))
(install-file "icons/qutebrowser.svg"
(string-append hicolor "/scalable/apps"))
(substitute* "misc/org.qutebrowser.qutebrowser.desktop"
(("Exec=qutebrowser")
(string-append "Exec=" out "/bin/qutebrowser")))
(install-file "misc/org.qutebrowser.qutebrowser.desktop" app))))
(add-after 'wrap 'wrap-qt-process-path (add-after 'wrap 'wrap-qt-process-path
(lambda* (#:key inputs outputs #:allow-other-keys) (lambda* (#:key inputs outputs #:allow-other-keys)
(let* ((out (assoc-ref outputs "out")) (let* ((out (assoc-ref outputs "out"))