guix_mirror_bot pushed a commit to branch master
in repository guix.
commit 76cc49868fdc43d26133c54d2658ca8bf42a6a2e
Author: Andreas Enge <[email protected]>
AuthorDate: Tue Nov 18 17:42:04 2025 +0100
gnu: Remove sawfish.
* gnu/packages/sawfish.scm (sawfish): Delete variable.
Change-Id: I912aae53e7aa5fcab4dfa1d858f4e5868c81813e
---
gnu/packages/sawfish.scm | 76 ------------------------------------------------
1 file changed, 76 deletions(-)
diff --git a/gnu/packages/sawfish.scm b/gnu/packages/sawfish.scm
index a58be20f4a..03e4fbbea9 100644
--- a/gnu/packages/sawfish.scm
+++ b/gnu/packages/sawfish.scm
@@ -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+)))
