guix-commits
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

05/05: gnu: xfig: Remove wrapper and clean up implementation.


From: John Darrington
Subject: 05/05: gnu: xfig: Remove wrapper and clean up implementation.
Date: Thu, 12 Jan 2017 16:42:02 +0000 (UTC)

jmd pushed a commit to branch master
in repository guix.

commit 97fedab17d4acfa05969ddd9faf98a11d27a4743
Author: John Darrington <address@hidden>
Date:   Thu Jan 12 10:19:12 2017 +0100

    gnu: xfig: Remove wrapper and clean up implementation.
    
    * gnu/packages/xorg.scm (%app-defaults-dir): Make public.
    * gnu/packages/xfig.scm (xfig)[attributes]: Remove wrapper and set
    the XAPPLOADDIR in the Imakefile instead.
---
 gnu/packages/xfig.scm |   14 +++++---------
 gnu/packages/xorg.scm |    2 +-
 2 files changed, 6 insertions(+), 10 deletions(-)

diff --git a/gnu/packages/xfig.scm b/gnu/packages/xfig.scm
index 27d9cf9..ad1b432 100644
--- a/gnu/packages/xfig.scm
+++ b/gnu/packages/xfig.scm
@@ -65,6 +65,8 @@
                     (let ((imake (assoc-ref inputs "imake"))
                           (out   (assoc-ref outputs "out")))
                       (substitute* "Imakefile"
+                        (("XCOMM XAPPLOADDIR = /home/user/xfig *")
+                         (string-append "XAPPLOADDIR = " out 
%app-defaults-dir))
                         (("XCOMM (BINDIR = )[[:graph:]]*" _ front)
                          (string-append front out "/bin"))
                         (("(PNGLIBDIR = )[[:graph:]]*" _ front)
@@ -98,7 +100,8 @@
                         (("(MANPATH = )[[:graph:]]*" _ front)
                          (string-append front out "/share/man"))
                         (("(CONFDIR = )([[:graph:]]*)" _ front default)
-                         (string-append front out default))))))
+                         (string-append front out default))))
+                    #t))
          (add-after
           'install 'install/libs
           (lambda _
@@ -118,14 +121,7 @@
                   (dump-port in out)
                   (close-pipe in)
                   (close-port out)))
-              (zero? (system* "make" "install.doc")))))
-         (add-after
-          'install 'wrap-xfig
-          (lambda* (#:key outputs #:allow-other-keys)
-            (let ((out (assoc-ref outputs "out")))
-              (wrap-program (string-append out "/bin/xfig")
-                `("XAPPLRESDIR" suffix
-                  (,(string-append out "/etc/X11/app-defaults"))))))))))
+              (zero? (system* "make" "install.doc"))))))))
     (home-page "http://xfig.org/";)
     (synopsis "Interactive drawing tool")
     (description
diff --git a/gnu/packages/xorg.scm b/gnu/packages/xorg.scm
index 45ff4c9..fe607e2 100644
--- a/gnu/packages/xorg.scm
+++ b/gnu/packages/xorg.scm
@@ -335,7 +335,7 @@ provided.")
     (license (license:x11-style "file://dri3proto.h"
                                 "See 'dri3proto.h' in the distribution."))))
 
-(define %app-defaults-dir "/lib/X11/app-defaults")
+(define-public %app-defaults-dir "/lib/X11/app-defaults")
 
 (define-public editres
   (package



reply via email to

[Prev in Thread] Current Thread [Next in Thread]