diff options
| author | Brendan Tildesley <mail@brendan.scot> | 2020-09-07 01:05:37 +1000 |
|---|---|---|
| committer | Andreas Enge <andreas@enge.fr> | 2020-09-08 21:54:44 +0200 |
| commit | fd3eac4dd774597d493e6d8aae7b1c2653070bc7 (patch) | |
| tree | 56e81bedd51cada166999d9ff4ac250956728404 | |
| parent | 4cb7a675449efd4cd1b485f1f92e87a721386a87 (diff) | |
| download | guix-fd3eac4dd774597d493e6d8aae7b1c2653070bc7.tar.gz | |
gnu: calibre: Wrap QTWEBENGINEPROCESS_PATH.
* gnu/packages/ebook.scm (calibre): Wrap QTWEBENGINEPROCESS_PATH in addition to wrapping PYTHONPATH as python-build-system does. Signed-off-by: Andreas Enge <andreas@enge.fr>
| -rw-r--r-- | gnu/packages/ebook.scm | 23 |
1 files changed, 23 insertions, 0 deletions
diff --git a/gnu/packages/ebook.scm b/gnu/packages/ebook.scm index aab4155d3d..b7c78b6a64 100644 --- a/gnu/packages/ebook.scm +++ b/gnu/packages/ebook.scm @@ -246,6 +246,29 @@ (assoc-ref inputs "js-mathjax") "/share/javascript/mathjax")) (invoke "python2" "setup.py" "rapydscript"))) + (replace 'wrap + ;; Here we wrap PYTHONPATH exactly as it would be in + ;; python-build-system, plus the addition of + ;; QTWEBENGINEPROCESS_PATH, fixing a bug where Calibre would not + ;; find Qtwebengine. + (lambda* (#:key inputs outputs #:allow-other-keys) + (let* ((out (assoc-ref outputs "out")) + (bin (string-append out "/bin")) + (python (assoc-ref inputs "python")) + (site-packages + (cons (string-append out "/lib/python" + (python-version python) + "/site-packages") + (search-path-as-string->list (getenv "PYTHONPATH")))) + (qtwebengineprocess + (string-append (assoc-ref inputs "qtwebengine") + "/lib/qt5/libexec/QtWebEngineProcess"))) + (for-each (lambda (program) + (wrap-program program + `("QTWEBENGINEPROCESS_PATH" = (,qtwebengineprocess)) + `("PYTHONPATH" prefix ,site-packages))) + (find-files bin "."))) + #t)) (add-after 'install 'install-man-pages (lambda* (#:key outputs #:allow-other-keys) (copy-recursively |