[clfswm-cvs] CVS clfswm
pbrochard
pbrochard at common-lisp.net
Fri Dec 21 21:44:04 UTC 2007
Update of /project/clfswm/cvsroot/clfswm
In directory clnet:/tmp/cvs-serv20679
Modified Files:
clfswm-info.lisp clfswm.asd package.lisp
Added Files:
config.lisp
Log Message:
Group all basic configuration in config.lisp
--- /project/clfswm/cvsroot/clfswm/clfswm-info.lisp 2007/05/15 19:49:49 1.1
+++ /project/clfswm/cvsroot/clfswm/clfswm-info.lisp 2007/12/21 21:44:04 1.2
@@ -1,7 +1,7 @@
;;; --------------------------------------------------------------------------
;;; CLFSWM - FullScreen Window Manager
;;;
-;;; #Date#: Thu Mar 1 12:40:15 2007
+;;; #Date#: Fri Dec 21 22:17:08 2007
;;;
;;; --------------------------------------------------------------------------
;;; Documentation: Info function (see the end of this file for user definition
@@ -27,16 +27,6 @@
(in-package :clfswm)
-;;; CONFIG - Info mode
-
-(defparameter *info-background* "blue")
-(defparameter *info-foreground* "yellow")
-(defparameter *info-border* "red")
-
-(defparameter *info-line-cursor* "white")
-
-(defparameter *info-font-string* "9x15bold")
-
(defstruct info window gc font list ilw ilh x y)
--- /project/clfswm/cvsroot/clfswm/clfswm.asd 2007/05/15 19:49:51 1.1
+++ /project/clfswm/cvsroot/clfswm/clfswm.asd 2007/12/21 21:44:04 1.2
@@ -2,7 +2,7 @@
;;;; Author: Philippe Brochard <hocwp at free.fr>
;;;; ASDF System Definition
;;;
-;;; #date#: Sun Apr 29 17:21:59 2007
+;;; #date#: Fri Dec 21 22:08:23 2007
(in-package #:asdf)
@@ -13,39 +13,41 @@
:licence "GNU Public License (GPL)"
:components ((:file "tools")
(:file "my-html"
- :depends-on ("tools"))
+ :depends-on ("tools"))
(:file "package"
- :depends-on ("my-html" "tools"))
+ :depends-on ("my-html" "tools"))
+ (:file "config"
+ :depends-on ("package"))
(:file "xlib-util"
- :depends-on ("package"))
+ :depends-on ("package"))
(:file "netwm-util"
- :depends-on ("package" "xlib-util"))
+ :depends-on ("package" "xlib-util"))
(:file "keysyms"
- :depends-on ("package"))
+ :depends-on ("package"))
(:file "clfswm-keys"
- :depends-on ("package" "xlib-util" "keysyms"))
+ :depends-on ("package" "xlib-util" "keysyms"))
(:file "clfswm-internal"
- :depends-on ("xlib-util" "clfswm-keys" "netwm-util"))
+ :depends-on ("xlib-util" "clfswm-keys" "netwm-util"))
(:file "clfswm-second-mode"
- :depends-on ("package" "clfswm-internal"))
+ :depends-on ("package" "clfswm-internal"))
(:file "clfswm"
- :depends-on ("xlib-util" "netwm-util" "clfswm-keys"
- "clfswm-internal" "clfswm-second-mode"))
+ :depends-on ("xlib-util" "netwm-util" "clfswm-keys"
+ "clfswm-internal" "clfswm-second-mode"))
(:file "clfswm-util"
- :depends-on ("clfswm" "keysyms"))
+ :depends-on ("clfswm" "keysyms"))
(:file "clfswm-pack"
- :depends-on ("clfswm" "clfswm-util"))
+ :depends-on ("clfswm" "clfswm-util"))
(:file "clfswm-pager"
- :depends-on ("clfswm" "clfswm-util" "clfswm-pack"))
+ :depends-on ("clfswm" "clfswm-util" "clfswm-pack"))
(:file "clfswm-info"
- :depends-on ("clfswm" "clfswm-pager"))
+ :depends-on ("clfswm" "clfswm-pager"))
(:file "bindings"
- :depends-on ("clfswm" "clfswm-util" "clfswm-pack" "clfswm-info"))
+ :depends-on ("clfswm" "clfswm-util" "clfswm-pack" "clfswm-info"))
(:file "bindings-second-mode"
- :depends-on ("clfswm" "clfswm-util" "clfswm-pack" "clfswm-info"))
+ :depends-on ("clfswm" "clfswm-util" "clfswm-pack" "clfswm-info"))
(:file "bindings-pager"
- :depends-on ("clfswm" "clfswm-util" "clfswm-pack" "clfswm-pager"
- "clfswm-info" "bindings"))))
+ :depends-on ("clfswm" "clfswm-util" "clfswm-pack" "clfswm-pager"
+ "clfswm-info" "bindings"))))
--- /project/clfswm/cvsroot/clfswm/package.lisp 2007/05/16 20:41:37 1.3
+++ /project/clfswm/cvsroot/clfswm/package.lisp 2007/12/21 21:44:04 1.4
@@ -1,7 +1,7 @@
;;; --------------------------------------------------------------------------
;;; CLFSWM - FullScreen Window Manager
;;;
-;;; #Date#: Wed May 16 22:40:53 2007
+;;; #Date#: Fri Dec 21 21:49:57 2007
;;;
;;; --------------------------------------------------------------------------
;;; Documentation: Package definition
@@ -45,67 +45,65 @@
(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* "grey55")
-(defparameter *pager-workspace-border* "blue")
-(defparameter *pager-workspace-background* "grey70")
-(defparameter *pager-group-border* "yellow")
-(defparameter *pager-group-border-selected* "red")
-(defparameter *pager-group-background* "grey60")
-
-(defparameter *pager-window-selected* "Red")
-(defparameter *pager-window-deselected* "Yellow")
-(defparameter *pager-window-hidden* "Black")
-(defparameter *pager-window-hidden-1* "Red")
-
-(defparameter *pager-window-separator* "blue")
-
-(defparameter *pager-workspace-cursor* "white")
-(defparameter *pager-line-cursor* "white")
-(defparameter *pager-group-cursor* "white")
-(defparameter *pager-group-background-cursor* "red")
-
-
-(defparameter *pager-font-string* "9x15bold")
-
-(defparameter *pager-workspace-height* 200)
-
-
-
-;;; CONFIG - Identify key colors
-(defparameter *identify-font-string* "9x15bold")
-(defparameter *identify-background* "blue")
-(defparameter *identify-foreground* "yellow")
-(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")
-
-
+;;;;; 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)
@@ -138,9 +136,9 @@
"Arrow action in the pager mode")
-;;; Tiling to side parameters
-(defparameter *tile-workspace-function* 'tile-workspace-top)
-(defparameter *tile-border-size* 200)
+;;;;; Tiling to side parameters
+;;(defparameter *tile-workspace-function* 'tile-workspace-top)
+;;(defparameter *tile-border-size* 200)
;;; Hook definitions
@@ -202,7 +200,7 @@
;; For debug - redefine defun
;;(shadow :defun)
-
+;;
;;(defmacro defun (name args &body body)
;; `(progn
;; (format t "defun: ~A ~A~%" ',name ',args)
--- /project/clfswm/cvsroot/clfswm/config.lisp 2007/12/21 21:44:04 NONE
+++ /project/clfswm/cvsroot/clfswm/config.lisp 2007/12/21 21:44:04 1.1
;;; --------------------------------------------------------------------------
;;; CLFSWM - FullScreen Window Manager
;;;
;;; #Date#: Fri Dec 21 22:21:37 2007
;;;
;;; --------------------------------------------------------------------------
;;; Documentation: Configuration file
;;;
;;; Change this file to your own needs or update some of this variables in
;;; your ~/.clfswmrc
;;; Some simple hack can be done in the code begining with the word CONFIG
;;; (you can do a 'grep CONFIG *.lisp' to see what you can configure)
;;; --------------------------------------------------------------------------
;;;
;;; (C) 2005 Philippe Brochard <hocwp at free.fr>
;;;
;;; This program is free software; you can redistribute it and/or modify
;;; it under the terms of the GNU General Public License as published by
;;; the Free Software Foundation; either version 2 of the License, or
;;; (at your option) any later version.
;;;
;;; This program is distributed in the hope that it will be useful,
;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
;;; GNU General Public License for more details.
;;;
;;; You should have received a copy of the GNU General Public License
;;; along with this program; if not, write to the Free Software
;;; Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
;;;
;;; --------------------------------------------------------------------------
(in-package :clfswm)
;;; 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* "black")
(defparameter *query-foreground* "green")
(defparameter *query-border* "red")
;;; CONFIG - Info mode
(defparameter *info-background* "black")
(defparameter *info-foreground* "green")
(defparameter *info-border* "red")
(defparameter *info-line-cursor* "white")
(defparameter *info-font-string* "9x15bold")
;;; Tiling to side parameters
(defparameter *tile-workspace-function* 'tile-workspace-top)
(defparameter *tile-border-size* 200)
More information about the clfswm-cvs
mailing list