04/05: gnu: freedink: Make "freedink-engine" and "freedink-data" public.

[guix-commits]

civodul pushed a commit to branch master
in repository guix.

commit 0fa3d89fbce36d82e4e4ae9da2753425594e8aa2
Author: Jesse Gibbons <jgibbons2357+guix@gmail.com>
AuthorDate: Wed Aug 26 21:38:24 2020 -0600

    gnu: freedink: Make "freedink-engine" and "freedink-data" public.
    
    * gnu/packages/games.scm: (freedink-engine): Make public.
    [arguments]: Add 'delete-freedinkedit-desktop' phase.
    (freedink-data): Make public.
    
    Signed-off-by: Ludovic Courtès <ludo@gnu.org>
---
 gnu/packages/games.scm | 15 ++++++++++++---
 1 file changed, 12 insertions(+), 3 deletions(-)

diff --git a/gnu/packages/games.scm b/gnu/packages/games.scm
index b819cd1..a90e708 100644
--- a/gnu/packages/games.scm
+++ b/gnu/packages/games.scm
@@ -2726,7 +2726,7 @@ interface or via an external visual interface such as GNU 
XBoard.")
                   (ftp-directory . "/chess")))
     (license license:gpl3+)))
 
-(define freedink-engine
+(define-public freedink-engine
   (package
     (name "freedink-engine")
     (version "109.6")
@@ -2756,7 +2756,16 @@ interface or via an external visual interface such as 
GNU XBoard.")
             (invoke "autoreconf")
             ;; Build fails when autom4te.cache exists.
             (delete-file-recursively "autom4te.cache")
-             #t)))))
+             #t))
+         (add-after 'install 'delete-freedinkedit-desktop
+           (lambda* (#:key outputs #:allow-other-keys)
+             (let ((out (assoc-ref outputs "out")))
+             ;; freedinkedit does not know where to find freedink data
+             ;; freedink data is read-only, so it cannot be edited anyway.
+             ;; TODO: fix freedink.desktop
+             (delete-file-recursively (string-append
+                            out "/share/applications"))
+             #t))))))
     (native-inputs `(("autoconf" ,autoconf)
                      ("automake" ,automake)
                      ("cxxtest" ,cxxtest)
@@ -2778,7 +2787,7 @@ game data files but it also supports user-produced game 
mods or \"D-Mods\".
 To that extent, it also includes a front-end for managing all of your D-Mods.")
     (license license:gpl3+)))
 
-(define freedink-data
+(define-public freedink-data
   (package
     (name "freedink-data")
     (version "1.08.20190120")