01/01: gnu: libreoffice: insert symbolic links from bin to the respective programs

[John Darrington]

jmd pushed a commit to branch wip-libreoffice
in repository guix.

commit 99d1e719d1936b8a7593ff9e3cca24e8c42f04e2
Author: John Darrington <address@hidden>
Date:   Sun Nov 23 12:35:33 2014 +0100

    gnu: libreoffice: insert symbolic links from bin to the respective programs
    
    * gnu/packages/libreoffice.scm (libreoffice): Added 'post-install phase.
---
 gnu/packages/libreoffice.scm |   36 +++++++++++++++++++++++++++++++++++-
 1 files changed, 35 insertions(+), 1 deletions(-)

diff --git a/gnu/packages/libreoffice.scm b/gnu/packages/libreoffice.scm
index 236d105..31d3eb7 100644
--- a/gnu/packages/libreoffice.scm
+++ b/gnu/packages/libreoffice.scm
@@ -1015,7 +1015,41 @@ applications.")
                     (substitute* "external/libxmlsec/ExternalProject_xmlsec.mk"
                       (("./configure") "$(CONFIG_SHELL) ./configure" ))
                     )
-                  %standard-phases))))
+                 (alist-cons-after
+                  'install 'post-install
+                   (lambda* (#:key outputs #:allow-other-keys)
+                     (let ( (out (assoc-ref outputs "out")))
+                       (mkdir-p (string-append out "/bin"))
+                       (map (lambda (f)
+                              (let ((pgm (string-append out 
"/lib/libreoffice/program/" f)))
+                                (system (string-append "ls -l " pgm))
+                                (symlink pgm
+                                         (string-append out "/bin/" f)))
+                              '("gengal"
+                                "gnome-open-url"
+                                "kde-open-url"
+                                "mailmerge.py"
+                                "msgbox.py"
+                                "officehelper.py"
+                                "oosplash"
+                                "open-url"
+                                "pythonloader.py"
+                                "pythonscript.py"
+                                "sbase"
+                                "scalc"
+                                "sdraw"
+                                "senddoc"
+                                "simpress:"
+                                "smath"
+                                "soffice"
+                                "swriter"
+                                "ui-previewer"
+                                "unohelper.py"
+                                "unoinfo"
+                                "unopkg"
+                                "uri-encode"
+                                "xpdfimport")))))
+                  %standard-phases)))))
 
     (inputs `(("fontconfig" ,fontconfig)
               ("libjpeg" ,libjpeg)