diff mbox

gnu: libreoffice: Add 'libreoffice' symlink.

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

Commit Message

ng0 Dec. 6, 2016, 7:52 p.m. UTC
* gnu/packages/libreoffice.scm (libreoffice)[arguments]: Create symlink to
libreoffice in new phase.
---
 gnu/packages/libreoffice.scm | 9 +++++++++
 1 file changed, 9 insertions(+)
diff mbox

Patch

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 <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,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