[PATCH] gnu: libreoffice: Add 'libreoffice' symlink.

[ng0]

* 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 <address@hidden>
 ;;; Copyright © 2015 Andreas Enge <address@hidden>
 ;;; Copyright © 2016 Efraim Flashner <address@hidden>
+;;; Copyright © 2016 ng0 <address@hidden>
 ;;;
 ;;; 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