* gnu/packages/libreoffice.scm (libreoffice)[arguments]: Create symlink to
libreoffice in new phase.
---
gnu/packages/libreoffice.scm | 11 ++++++++++-
1 file changed, 10 insertions(+), 1 deletion(-)
diff --git a/gnu/packages/libreoffice.scm b/gnu/packages/libreoffice.scm
index e02e4f4cd..5f1435745 100644
--- a/gnu/packages/libreoffice.scm
+++ b/gnu/packages/libreoffice.scm
@@ -2,6 +2,7 @@
;;; Copyright © 2014 John Darrington <j...@gnu.org>
;;; Copyright © 2015 Andreas Enge <andr...@enge.fr>
;;; Copyright © 2016 Efraim Flashner <efr...@flashner.co.il>
+;;; Copyright © 2016 ng0 <n...@libertad.pw>
;;;
;;; This file is part of GNU Guix.
;;;
@@ -828,7 +829,15 @@ and to return information on pronunciations, meanings and
synonyms.")
(symlink
(string-append out "/lib/libreoffice/program/soffice")
(string-append bin "/soffice")))
- #t)))
+ #t))
+ (add-after 'bin-install 'symlink-libreoffice
+ ;; Create a symlink bin/libreoffice to the executable script.
+ (lambda* (#:key outputs #:allow-other-keys)
+ (let* ((out (assoc-ref outputs "out")))
+ (with-directory-excursion
+ (string-append (assoc-ref outputs "out") "/bin")
+ (symlink "soffice" "libreoffice"))
+ #t)))
#:configure-flags
(list
"--enable-release-build"
--
2.11.0
