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

[ng0]

* gnu/packages/libreoffice.scm (libreoffice)[arguments]: Create symlink to
libreoffice in new phase.
---
 gnu/packages/libreoffice.scm | 9 +++++++++
 1 file changed, 9 insertions(+)

diff --git a/gnu/packages/libreoffice.scm b/gnu/packages/libreoffice.scm
index e02e4f4cd..8e08450a1 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,6 +829,14 @@ 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"))
+                      (soffice (string-append bin "/soffice")))
+                 (symlink soffice (string-append bin "/libreoffice"))
                #t)))
        #:configure-flags
         (list
-- 
2.11.0