02/02: gnu: libreoffice: Add 'libreoffice' symlink.

[Alex Kost]

alezost pushed a commit to branch master
in repository guix.

commit cb72d34348998501c0dfa9f6ac4eb64bddd99fbf
Author: Alex Kost <address@hidden>
Date:   Thu Dec 8 12:25:18 2016 +0300

    gnu: libreoffice: Add 'libreoffice' symlink.
    
    * gnu/packages/libreoffice.scm (libreoffice)[arguments]: Adjust
    'bin-install' phase to make 'libreoffice' symlink along with 'soffice'.
    
    Co-authored-by: ng0 <address@hidden>
---
 gnu/packages/libreoffice.scm |   12 +++++++-----
 1 file changed, 7 insertions(+), 5 deletions(-)

diff --git a/gnu/packages/libreoffice.scm b/gnu/packages/libreoffice.scm
index e02e4f4..279e8e2 100644
--- a/gnu/packages/libreoffice.scm
+++ b/gnu/packages/libreoffice.scm
@@ -820,14 +820,16 @@ and to return information on pronunciations, meanings and 
synonyms.")
                    (("./configure") "$(CONFIG_SHELL) ./configure" ))
                  #t)))
            (add-after 'install 'bin-install
-             ;; Create a symlink bin/soffice to the executable script.
+             ;; Create 'soffice' and 'libreoffice' symlinks to the executable
+             ;; script.
              (lambda* (#:key outputs #:allow-other-keys)
                (let* ((out (assoc-ref outputs "out"))
-                      (bin (string-append out "/bin")))
+                      (bin (string-append out "/bin"))
+                      (soffice (string-append
+                                out "/lib/libreoffice/program/soffice")))
                  (mkdir bin)
-                 (symlink
-                   (string-append out "/lib/libreoffice/program/soffice")
-                   (string-append bin "/soffice")))
+                 (symlink soffice (string-append bin "/soffice"))
+                 (symlink soffice (string-append bin "/libreoffice")))
                #t)))
        #:configure-flags
         (list