gnu: Remove sawfish.

* gnu/packages/sawfish.scm (sawfish): Delete variable. Change-Id: I912aae53e7aa5fcab4dfa1d858f4e5868c81813e
2026-05-05 08:45:55 +02:00 · 2025-11-18 17:42:04 +01:00
parent f18d4028d2
commit 76cc49868f
1 changed files with 0 additions and 76 deletions
@@ -112,79 +112,3 @@ implementing both small and large scale systems.")
     "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.13.0")
-    (source (origin
-              (method url-fetch)
-              (uri (string-append "https://download.tuxfamily.org/sawfish/"
-                                  name "_" version ".tar.xz"))
-              (sha256
-               (base32
-                "0pdgf9w5vrn3kfqxwggikj4yqg82rpy8ji613zdhidacz9dkqsw1"))
-              (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
-     (list
-      #:tests? #f ; no tests
-      #:phases
-      #~(modify-phases %standard-phases
-          (add-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"))))))
-          (add-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")))))))
-    (native-inputs
-     (list gettext-minimal
-           texinfo
-           pkg-config
-           which))
-    (inputs
-     (list bash-minimal
-           gdk-pixbuf-xlib
-           gmp
-           libsm
-           libxcrypt
-           libxft
-           libxinerama
-           libxrandr
-           libxtst
-           rep-gtk))
-    (home-page "https://sawfish.tuxfamily.org")
-    (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+)))