diff mbox

gnu: libreoffice: Add 'libreoffice' symlink.

Message ID 20161206200444.24200-2-ng0@libertad.pw
State New
Headers show

Commit Message

ng0 Dec. 6, 2016, 8:04 p.m. UTC
* 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 mbox

Patch

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 <jmd@gnu.org>
 ;;; Copyright © 2015 Andreas Enge <andreas@enge.fr>
 ;;; Copyright © 2016 Efraim Flashner <efraim@flashner.co.il>
+;;; Copyright © 2016 ng0 <ng0@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"