me
/
guix
Archived
1
0
Fork 0
Code

gnu: asymptote: Fix GUI. 

Fixes bug#39147.

* gnu/packages/plotutils.scm (asymptote)[inputs]: Add missing inputs.
[arguments]: Wrap GUI executable "xasy".
master
Nicolas Goaziou 2020-01-16 17:00:53 +01:00
parent 07c8177b88
commit 1b4c5af29c
No known key found for this signature in database
GPG Key ID: DA00B4F048E92F2D
1 changed files with 13 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
gnu/packages/plotutils.scm
View File

@ -37,7 +37,9 @@
#:use-module (gnu packages perl) #:use-module (gnu packages perl)
#:use-module (gnu packages pkg-config) #:use-module (gnu packages pkg-config)
#:use-module (gnu packages python) #:use-module (gnu packages python)
#:use-module (gnu packages python-xyz)
#:use-module (gnu packages readline) #:use-module (gnu packages readline)
#:use-module (gnu packages qt)
#:use-module (gnu packages texinfo) #:use-module (gnu packages texinfo)
#:use-module (gnu packages tex) #:use-module (gnu packages tex)
#:use-module (gnu packages compression) #:use-module (gnu packages compression)
@ -214,6 +216,8 @@ colors, styles, options and details.")
("gsl" ,gsl) ("gsl" ,gsl)
("libgc" ,libgc) ("libgc" ,libgc)
("python" ,python) ("python" ,python)
("python-cson" ,python-cson)
("python-pyqt" ,python-pyqt)
("readline" ,readline) ("readline" ,readline)
("zlib" ,zlib))) ("zlib" ,zlib)))
(arguments (arguments
@ -271,6 +275,14 @@ colors, styles, options and details.")
(for-each (cut install-file <> lisp-dir) (for-each (cut install-file <> lisp-dir)
(find-files "." "\\.el$")) (find-files "." "\\.el$"))
(emacs-generate-autoloads ,name lisp-dir)) (emacs-generate-autoloads ,name lisp-dir))
#t))
(add-after 'install-Emacs-data 'wrap-python-script
(lambda* (#:key inputs outputs #:allow-other-keys)
;; Make sure 'xasy' runs with the correct PYTHONPATH.
(let* ((out (assoc-ref outputs "out"))
(path (getenv "PYTHONPATH")))
(wrap-program (string-append out "/share/asymptote/GUI/xasy.py")
`("PYTHONPATH" ":" prefix (,path))))
#t))))) #t)))))
(home-page "http://asymptote.sourceforge.net") (home-page "http://asymptote.sourceforge.net")
(synopsis "Script-based vector graphics language") (synopsis "Script-based vector graphics language")