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