From: 宋文武 <iyzsong@gmail.com>
To: guix-devel@gnu.org
Subject: [PATCH 3/3] gnu: Add sawfish.
Date: Mon, 2 Feb 2015 20:00:31 +0800 [thread overview]
Message-ID: <1422878431-20718-3-git-send-email-iyzsong@gmail.com> (raw)
In-Reply-To: <1422878431-20718-1-git-send-email-iyzsong@gmail.com>
* gnu/packages/sawfish.scm (sawfish): New variable.
---
gnu/packages/sawfish.scm | 78 +++++++++++++++++++++++++++++++++++++++++++++++-
1 file changed, 77 insertions(+), 1 deletion(-)
diff --git a/gnu/packages/sawfish.scm b/gnu/packages/sawfish.scm
index ea5b757..0be9792 100644
--- a/gnu/packages/sawfish.scm
+++ b/gnu/packages/sawfish.scm
@@ -23,12 +23,15 @@
#:use-module (guix build-system gnu)
#:use-module (gnu packages)
#:use-module (gnu packages gdbm)
+ #: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 which)
+ #:use-module (gnu packages xorg))
(define-public librep
(package
@@ -97,3 +100,76 @@ 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.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" ,gnu-gettext)
+ ("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+)))
--
2.1.2
next prev parent reply other threads:[~2015-02-02 12:00 UTC|newest]
Thread overview: 6+ messages / expand[flat|nested] mbox.gz Atom feed top
2015-02-02 12:00 [PATCH 1/3] gnu: Add librep 宋文武
2015-02-02 12:00 ` [PATCH 2/3] gnu: Add rep-gtk 宋文武
2015-02-02 22:06 ` Ludovic Courtès
2015-02-02 12:00 ` 宋文武 [this message]
2015-02-02 22:10 ` [PATCH 3/3] gnu: Add sawfish Ludovic Courtès
2015-02-02 22:05 ` [PATCH 1/3] gnu: Add librep Ludovic Courtès
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=1422878431-20718-3-git-send-email-iyzsong@gmail.com \
--to=iyzsong@gmail.com \
--cc=guix-devel@gnu.org \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
Code repositories for project(s) associated with this external index
https://git.savannah.gnu.org/cgit/guix.git
This is an external index of several public inboxes,
see mirroring instructions on how to clone and mirror
all data and code used by this external index.