[clfswm-cvs] r13 - in clfswm: . contrib

[pbrochard at common-lisp.net]

Author: pbrochard
Date: Tue Mar  4 05:27:20 2008
New Revision: 13

Added:
   clfswm/contrib/contrib-example.lisp
Modified:
   clfswm/clfswm-util.lisp
   clfswm/contrib/README
   clfswm/load.lisp
Log:
add a contributed example

Modified: clfswm/clfswm-util.lisp
==============================================================================
--- clfswm/clfswm-util.lisp	(original)
+++ clfswm/clfswm-util.lisp	Tue Mar  4 05:27:20 2008
@@ -1,7 +1,7 @@
 ;;; --------------------------------------------------------------------------
 ;;; CLFSWM - FullScreen Window Manager
 ;;;
-;;; #Date#: Tue Mar  4 08:54:30 2008
+;;; #Date#: Tue Mar  4 11:14:45 2008
 ;;;
 ;;; --------------------------------------------------------------------------
 ;;; Documentation: Utility
@@ -27,6 +27,12 @@
 
 (in-package :clfswm)
 
+(defun load-contrib (file)
+  "Load a file in the contrib directory"
+  (let ((truename (concatenate 'string cl-user:*base-dir* "contrib/" file)))
+    (format t "Loading contribution file: ~A~%" truename)
+    (when (probe-file truename)
+      (load truename))))
 
 
 (defun add-default-group ()

Modified: clfswm/contrib/README
==============================================================================
--- clfswm/contrib/README	(original)
+++ clfswm/contrib/README	Tue Mar  4 05:27:20 2008
@@ -1,13 +1,15 @@
-This directory is here if you want to contribute to CLFSWM and if your
-code is not merged in the clfswm core.
+The contrib directory is here if you want to contribute to CLFSWM and
+if your code is not merged in the clfswm core.
 
-How can you contribute:
+To contribute, place your files in the contrib directory. 
+You can have your own repository and tell me if you want to merge it
+in the clfswm svn. 
 
-  - If your code is in one file, just tell use how to load it and how
-    to configure it from the clfswm configuration file.
- 
-  - If your code takes more than one file, make a new directory and
-    create a new asd file in the contrib directory to load it from the
-    configuration file.
+To use a contributed code add a line like this in your configuration
+file:
 
-(Some examples will come here. [Philippe])
+(load-contrib "contrib-example.lisp")
+
+Have fun,
+
+Philippe

Added: clfswm/contrib/contrib-example.lisp
==============================================================================
--- (empty file)
+++ clfswm/contrib/contrib-example.lisp	Tue Mar  4 05:27:20 2008
@@ -0,0 +1,3 @@
+(in-package :clfswm)
+
+(format t "My contribution code start here~%")

Modified: clfswm/load.lisp
==============================================================================
--- clfswm/load.lisp	(original)
+++ clfswm/load.lisp	Tue Mar  4 05:27:20 2008
@@ -1,7 +1,7 @@
 ;;; --------------------------------------------------------------------------
 ;;; CLFSWM - FullScreen Window Manager
 ;;;
-;;; #Date#: Tue Feb 26 23:00:22 2008
+;;; #Date#: Tue Mar  4 11:11:02 2008
 ;;;
 ;;; --------------------------------------------------------------------------
 ;;; Documentation: System loading functions
@@ -27,6 +27,7 @@
 
 
 (defparameter *base-dir* (directory-namestring *load-truename*))
+(export '*base-dir*)
 
 #+CMU
 (setf ext:*gc-verbose* nil)