* gnu/packages/libreoffice.scm (libreoffice)[arguments] Create symlink to
libreoffice in new phase.
---
gnu/packages/libreoffice.scm | 10 ++++++++++
1 file changed, 10 insertions(+)
diff --git a/gnu/packages/libreoffice.scm b/gnu/packages/libreoffice.scm
index e02e4f4cd..245e932d4 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,6 +829,15 @@ and to return information on pronunciations, meanings and
synonyms.")
(symlink
(string-append out "/lib/libreoffice/program/soffice")
(string-append bin "/soffice")))
+ #t))
+ (add-after 'bin-install 'symlink-soffice
+ ;; Create a symlink bin/libreoffice to the executable script.
+ (lambda* (#:key outputs #:allow-other-keys)
+ (let* ((out (assoc-ref outputs "out"))
+ (bin (string-append out "/bin")))
+ (symlink
+ (string-append out "/lib/libreoffice/program/soffice")
+ (string-append bin "/libreoffice")))
#t)))
#:configure-flags
(list
--
2.11.0
