gnu: python-pandas: Fix build on 32-bit.

[jackhill/guix/guix.git] / gnu / packages / sawfish.scm

diff --git a/gnu/packages/sawfish.scm b/gnu/packages/sawfish.scm
index acf3e06..54b72ff 100644 (file)
--- a/gnu/packages/sawfish.scm
+++ b/gnu/packages/sawfish.scm
@@ -22,25 +22,28 @@
   #:use-module (guix download)
   #:use-module (guix build-system gnu)
   #:use-module (gnu packages)
-  #:use-module (gnu packages gdbm)
+  #:use-module (gnu packages databases)
+  #:use-module (gnu packages gettext)
+  #:use-module (gnu packages gtk)
   #:use-module (gnu packages libffi)
   #:use-module (gnu packages multiprecision)
   #:use-module (gnu packages pkg-config)
   #:use-module (gnu packages readline)
-  #:use-module (gnu packages texinfo))
+  #:use-module (gnu packages texinfo)
+  #:use-module (gnu packages base)
+  #:use-module (gnu packages xorg))
 
 (define-public librep
   (package
     (name "librep")
-    (version "0.92.4")
+    (version "0.92.5")
     (source (origin
               (method url-fetch)
               (uri (string-append "http://download.tuxfamily.org/" name "/"
                                   name "_" version ".tar.xz"))
               (sha256
                (base32
-                "0297m24p2y8j3wavf8qqyriic7ls2392cmfn96y0pi83r5qckc25"))
-              (patches (list (search-patch "librep-rules.mk.patch")))))
+                "0zsy5gi8kvz5vq41y5rzm6lfi3dpiwbg4diwb6d30qfi72mrpni2"))))
     (build-system gnu-build-system)
     (native-inputs
      `(("makeinfo"   ,texinfo)
@@ -64,3 +67,108 @@ subsequently diverged markedly.  Its aim is to combine the best features of
 Scheme and Common Lisp and provide an environment that is comfortable for
 implementing both small and large scale systems.")
     (license gpl2+)))
+
+(define-public rep-gtk
+  (package
+    (name "rep-gtk")
+    (version "0.90.8.2")
+    (source (origin
+              (method url-fetch)
+              (uri (string-append "http://download.tuxfamily.org/librep/"
+                                  name "/" name "_" version ".tar.xz"))
+              (sha256
+               (base32
+                "0qslm2isyv22hffdpw0nh7xk8jw8cj3h5y7d40c9h5r833w7j6sz"))
+              (modules '((guix build utils)))
+              (snippet
+               '(substitute* "Makefile.in"
+                  (("installdir=\\$\\(repexecdir\\)")
+                   ;; Install libraries for librep to $out/lib/rep.
+                   "installdir=$(libdir)/rep")))))
+    (build-system gnu-build-system)
+    (arguments '(#:tests? #f)) ; no tests
+    (native-inputs
+     `(("pkg-config" ,pkg-config)))
+    (propagated-inputs
+     ;; required by rep-gtk.pc.
+     `(("gtk+"   ,gtk+-2)
+       ("librep" ,librep)))
+    (home-page "http://sawfish.wikia.com/wiki/Rep-GTK")
+    (synopsis "GTK+ binding for librep")
+    (description
+     "Rep-GTK is a GTK+ (and GLib, GDK) binding to the librep, and one of the
+backend of Sawfish.")
+    (license gpl2+)))
+
+(define-public sawfish
+  (package
+    (name "sawfish")
+    (version "1.11")
+    (source (origin
+              (method url-fetch)
+              (uri (string-append "http://download.tuxfamily.org/sawfish/"
+                                  name "_" version ".tar.xz"))
+              (sha256
+               (base32
+                "0wp4m0p836a0rysbcdqb6z5hxlxqj3rgdbks3bs44rlssx0mcvyg"))
+              (modules '((guix build utils)))
+              (snippet
+               '(begin
+                  (substitute* "Makedefs.in"
+                    (("/bin/sh") "@SHELL@")
+                    (("REP_DL_LOAD_PATH=")
+                     ;; To find rep-gtk when building sawfish.
+                     "REP_DL_LOAD_PATH=$(REP_DL_LOAD_PATH):"))
+                  (substitute* "src/Makefile.in"
+                    ;; Install libraries for librep to $out/lib/rep.
+                    (("\\$\\(repexecdir\\)") "$(libdir)/rep"))))))
+    (build-system gnu-build-system)
+    (arguments
+     '(#:tests? #f ; no tests
+       #:phases
+       (alist-cons-before
+        'configure 'patch-exec-rep
+        (lambda _
+          (substitute* '("lisp/sawfish/cfg/main.jl.in"
+                         "scripts/sawfish-about.jl.in"
+                         "scripts/sawfish-client.jl"
+                         "scripts/sawfish-menu.jl")
+            (("exec rep") (string-append "exec " (which "rep")))))
+        (alist-cons-after
+         'install 'wrap-scripts
+         ;; Wrap scripts with REP_DL_LOAD_PATH for finding rep-gtk
+         ;; and sawfish.client.
+         (lambda* (#:key outputs #:allow-other-keys)
+           (define (wrap-script script)
+             (let ((out (assoc-ref outputs "out")))
+               (wrap-program (string-append out script)
+                             `("REP_DL_LOAD_PATH" =
+                               ,(list (getenv "REP_DL_LOAD_PATH")
+                                      (string-append out "/lib/rep"))))))
+           (for-each wrap-script
+                     (list "/bin/sawfish-about"
+                           "/bin/sawfish-client"
+                           "/bin/sawfish-config"
+                           "/lib/sawfish/sawfish-menu")))
+         %standard-phases))))
+    (native-inputs
+     `(("gettext"     ,gettext-minimal)
+       ("makeinfo"    ,texinfo)
+       ("pkg-config"  ,pkg-config)
+       ("which"       ,which)))
+    (inputs
+     `(("libsm"       ,libsm)
+       ("libxft"      ,libxft)
+       ("libxinerama" ,libxinerama)
+       ("libxrandr"   ,libxrandr)
+       ("libxtst"     ,libxtst)
+       ("rep-gtk"     ,rep-gtk)))
+    (home-page "http://sawfish.wikia.com/wiki/Main_Page")
+    (synopsis "Configurable window manager")
+    (description
+     "Sawfish is an extensible window manager using a Lisp-based scripting
+language.  Its policy is very minimal compared to most window managers.  Its aim
+is simply to manage windows in the most flexible and attractive manner possible.
+All high-level WM functions are implemented in Lisp for future extensibility or
+redefinition.")
+    (license gpl2+)))