[clfswm-cvs] CVS clfswm

[pbrochard]

Update of /project/clfswm/cvsroot/clfswm
In directory clnet:/tmp/cvs-serv21053

Modified Files:
	config.lisp package.lisp 
Log Message:
Group all basic configuration in config.lisp

--- /project/clfswm/cvsroot/clfswm/config.lisp	2007/12/21 21:44:04	1.1
+++ /project/clfswm/cvsroot/clfswm/config.lisp	2007/12/21 21:47:12	1.2
@@ -1,7 +1,7 @@
 ;;; --------------------------------------------------------------------------
 ;;; CLFSWM - FullScreen Window Manager
 ;;;
-;;; #Date#: Fri Dec 21 22:21:37 2007
+;;; #Date#: Fri Dec 21 22:45:00 2007
 ;;;
 ;;; --------------------------------------------------------------------------
 ;;; Documentation: Configuration file
@@ -37,7 +37,7 @@
 ;;(defparameter *fullscreen* '(0 0 1024 600))
 (defparameter *fullscreen* '(0 0 1024 768))
 ;;(defparameter *fullscreen* '(0 0 1280 960))
-;;(defparameter *fullscreen* '(100 0 1180 960))
+;;(defparameter *fullscreen* '(100 0 1180 960))  ;; Example with a space on left.
 ;;(defparameter *fullscreen* '(0 0 800 600))
 
 
--- /project/clfswm/cvsroot/clfswm/package.lisp	2007/12/21 21:44:04	1.4
+++ /project/clfswm/cvsroot/clfswm/package.lisp	2007/12/21 21:47:12	1.5
@@ -1,7 +1,7 @@
 ;;; --------------------------------------------------------------------------
 ;;; CLFSWM - FullScreen Window Manager
 ;;;
-;;; #Date#: Fri Dec 21 21:49:57 2007
+;;; #Date#: Fri Dec 21 22:46:22 2007
 ;;;
 ;;; --------------------------------------------------------------------------
 ;;; Documentation: Package definition
@@ -45,66 +45,6 @@
 (defparameter *root-gc* nil)
 
 
-;;;;; CONFIG - Screen size
-;;;;(defparameter *fullscreen* '(0 0 1024 600))
-;;(defparameter *fullscreen* '(0 0 1024 768))
-;;;;(defparameter *fullscreen* '(0 0 1280 960))
-;;;;(defparameter *fullscreen* '(100 0 1180 960))
-;;;;(defparameter *fullscreen* '(0 0 800 600))
-;;
-;;
-;;;;; CONFIG: Main mode colors
-;;(defparameter *color-selected* "Red")
-;;(defparameter *color-unselected* "Yellow")
-;;
-;;;;; CONFIG: Second mode colors and fonts
-;;(defparameter *sm-border-color* "Green")
-;;(defparameter *sm-background-color* "Black")
-;;(defparameter *sm-foreground-color* "Red")
-;;(defparameter *sm-font-string* "9x15bold")
-;;(defparameter *sm-width* 300)
-;;(defparameter *sm-height* 25)
-;;
-;;
-;;;;; CONFIG - Pager mode colors and fonts
-;;(defparameter *pager-background* "black")
-;;(defparameter *pager-workspace-border* "blue")
-;;(defparameter *pager-workspace-background* "black")
-;;(defparameter *pager-group-border* "yellow")
-;;(defparameter *pager-group-border-selected* "red")
-;;(defparameter *pager-group-background* "grey10")
-;;
-;;(defparameter *pager-window-selected* "Green")
-;;(defparameter *pager-window-deselected* "Yellow")
-;;(defparameter *pager-window-hidden* "Green")
-;;(defparameter *pager-window-hidden-1* "Red")
-;;
-;;(defparameter *pager-window-separator* "blue")
-;;
-;;(defparameter *pager-workspace-cursor* "black")
-;;(defparameter *pager-line-cursor* "blue")
-;;(defparameter *pager-group-cursor* "white")
-;;(defparameter *pager-group-background-cursor* "darkgreen")
-;;
-;;
-;;(defparameter *pager-font-string* "9x15bold")
-;;
-;;(defparameter *pager-workspace-height* 200)
-;;
-;;
-;;
-;;;;; CONFIG - Identify key colors
-;;(defparameter *identify-font-string* "9x15bold")
-;;(defparameter *identify-background* "black")
-;;(defparameter *identify-foreground* "green")
-;;(defparameter *identify-border* "red")
-;;
-;;;;; CONFIG - Query string colors
-;;(defparameter *query-font-string* "9x15")
-;;(defparameter *query-background* "blue")
-;;(defparameter *query-foreground* "yellow")
-;;(defparameter *query-border* "red")
-
 
 (defparameter *default-group* nil)
 
@@ -136,10 +76,6 @@
   "Arrow action in the pager mode")
 
 
-;;;;; Tiling to side parameters
-;;(defparameter *tile-workspace-function* 'tile-workspace-top)
-;;(defparameter *tile-border-size* 200)
-
 
 ;;; Hook definitions
 ;;;