[steeldump-cvs] r9 - in trunk/scripts: . data descriptions lisp patches

[dlichteblau at common-lisp.net]

Author: dlichteblau
Date: Sun May 28 14:26:45 2006
New Revision: 9

Added:
   trunk/scripts/build-stumpwm   (contents, props changed)
   trunk/scripts/data/stumpwm   (contents, props changed)
   trunk/scripts/descriptions/stumpwm
   trunk/scripts/fetch-stumpwm   (contents, props changed)
   trunk/scripts/lisp/build-stumpwm.lisp
   trunk/scripts/makedeb-stumpwm   (contents, props changed)
   trunk/scripts/patches/stumpwm.diff
Log:
stumpwm


Added: trunk/scripts/build-stumpwm
==============================================================================
--- (empty file)
+++ trunk/scripts/build-stumpwm	Sun May 28 14:26:45 2006
@@ -0,0 +1,3 @@
+#!/bin/sh -e
+set -x
+/opt/steeldump/scripts/aux/build-system stumpwm

Added: trunk/scripts/data/stumpwm
==============================================================================
--- (empty file)
+++ trunk/scripts/data/stumpwm	Sun May 28 14:26:45 2006
@@ -0,0 +1,9 @@
+#!/bin/sh
+unset SBCL_HOME
+exec /opt/steeldump/bin/sbcl \
+	--noinform \
+	--userinit /dev/null \
+	--disable-debugger \
+        --eval '(setf sb-heapdump:*dumpload-verbose* nil)' \
+	--eval '(require :stumpwm)' \
+	--eval '(progn (stumpwm:stumpwm) (sb-ext:quit))'

Added: trunk/scripts/descriptions/stumpwm
==============================================================================
--- (empty file)
+++ trunk/scripts/descriptions/stumpwm	Sun May 28 14:26:45 2006
@@ -0,0 +1,14 @@
+Description: A tiling, keyboard driven WM written in Common Lisp. (steeldump package)
+ Stumpwm is a tiling, keyboard driven X11 Window Manager written
+ entirely in Common Lisp.
+ .
+ If you're tired of flipping through themes like channel-surfing, and
+ going from one perfect-except-for-just-one-thing window manager to
+ another even-more-broken-in-some-other-way then perhaps Stumpwm can
+ help.
+ .
+ Stumpwm attempts to be customizable yet visually minimal. There are no
+ window decorations, no icons, and no buttons. It does have various
+ hooks to attach your personal customizations, and variables to tweak.
+ .
+ This is a non-Debian binary package from the steeldump repository.

Added: trunk/scripts/fetch-stumpwm
==============================================================================
--- (empty file)
+++ trunk/scripts/fetch-stumpwm	Sun May 28 14:26:45 2006
@@ -0,0 +1,7 @@
+#!/bin/sh -e
+set -x
+/opt/steeldump/scripts/aux/fetch-cvs \
+	:pserver:anoncvs at cvs.savannah.nongnu.org:/cvsroot/stumpwm \
+	stumpwm
+cd /opt/steeldump/src/stumpwm
+patch -p0 </opt/steeldump/scripts/patches/stumpwm.diff

Added: trunk/scripts/lisp/build-stumpwm.lisp
==============================================================================
--- (empty file)
+++ trunk/scripts/lisp/build-stumpwm.lisp	Sun May 28 14:26:45 2006
@@ -0,0 +1,17 @@
+(sb-ext:disable-debugger)
+(setf asdf:*central-registry* (list (car asdf:*central-registry*)))
+(asdf:operate 'asdf:load-op :stumpwm)
+
+(defmethod sb-heapdump:dump-system
+    ((c (eql (asdf:find-system :stumpwm))))
+  (sb-heapdump:dump-packages
+   '(:stumpwm)
+   "stumpwm.heap"
+   :if-exists :rename-and-delete
+   :systems '(:stumpwm)
+   :system-packages '(:stumpwm-system)))
+
+(let ((*default-pathname-defaults*
+       (truename (sb-ext:posix-getenv "SBCL_HOME"))))
+  (sb-heapdump:dump-system :stumpwm))
+(sb-ext:quit)

Added: trunk/scripts/makedeb-stumpwm
==============================================================================
--- (empty file)
+++ trunk/scripts/makedeb-stumpwm	Sun May 28 14:26:45 2006
@@ -0,0 +1,21 @@
+#!/bin/sh -e
+set -x
+system=stumpwm
+
+cd /opt/steeldump
+
+rm -rf SCRATCH
+mkdir SCRATCH
+
+tar cf - \
+	/opt/steeldump/lib/sbcl/${system}.heap \
+	/opt/steeldump/lib/sbcl/site-systems/${system}.asd \
+	/opt/steeldump/src/$system \
+  | tar C SCRATCH -xpf -
+
+mkdir SCRATCH/opt/steeldump/bin
+cp /opt/steeldump/scripts/data/stumpwm SCRATCH/opt/steeldump/bin/
+
+/opt/steeldump/scripts/aux/wipe-fasls $system
+/opt/steeldump/scripts/aux/write-dummy-asd $system
+/opt/steeldump/scripts/aux/makedeb-helper $system sbcl clx

Added: trunk/scripts/patches/stumpwm.diff
==============================================================================
--- (empty file)
+++ trunk/scripts/patches/stumpwm.diff	Sun May 28 14:26:45 2006
@@ -0,0 +1,27 @@
+Index: stumpwm.asd
+===================================================================
+RCS file: /cvsroot/stumpwm/stumpwm/stumpwm.asd,v
+retrieving revision 1.8
+diff -u -u -r1.8 stumpwm.asd
+--- stumpwm.asd	6 May 2006 19:28:16 -0000	1.8
++++ stumpwm.asd	28 May 2006 18:21:15 -0000
+@@ -4,13 +4,14 @@
+   (:use :cl :asdf))
+ (in-package :stumpwm-system)
+ 
+-(ignore-errors (require :cmucl-clx))
+-(ignore-errors (require :clx))
+-;;(require :gray-streams)
+-
+-#+sbcl (require 'sb-posix)
++;;;(ignore-errors (require :cmucl-clx))
++;;;(ignore-errors (require :clx))
++;;;;;(require :gray-streams)
++;;;
++;;;#+sbcl (require 'sb-posix)
+ 
+ (defsystem :stumpwm
++  :depends-on (:clx)
+   :name "StumpWM"
+   :author "Shawn Betts <sabetts at vcn.bc.ca>"
+   :version "0.0.3"