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@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(a)vcn.bc.ca>"
+ :version "0.0.3"