1 ;;; --------------------------------------------------------------------------
2 ;;; CLFSWM - FullScreen Window Manager
4 ;;; --------------------------------------------------------------------------
5 ;;; Documentation: Configuration file
7 ;;; Change this file to your own needs or update some of this variables in
9 ;;; Some simple hack can be done in the code begining with the word CONFIG
10 ;;; (you can do a 'grep CONFIG *.lisp' to see what you can configure)
11 ;;; --------------------------------------------------------------------------
13 ;;; (C) 2010 Philippe Brochard <hocwp@free.fr>
15 ;;; This program is free software; you can redistribute it and/or modify
16 ;;; it under the terms of the GNU General Public License as published by
17 ;;; the Free Software Foundation; either version 3 of the License, or
18 ;;; (at your option) any later version.
20 ;;; This program is distributed in the hope that it will be useful,
21 ;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
22 ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
23 ;;; GNU General Public License for more details.
25 ;;; You should have received a copy of the GNU General Public License
26 ;;; along with this program; if not, write to the Free Software
27 ;;; Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
29 ;;; --------------------------------------------------------------------------
34 ;;; CONFIG - Compress motion notify ?
35 ;; This variable may be useful to speed up some slow version of CLX.
36 ;; It is particulary useful with CLISP/MIT-CLX.
37 (setf *have-to-compress-notify
* t
)
41 ;;; CONFIG - Default modifiers
42 (defparameter *default-modifiers
* '()
43 "Config(): Default modifiers list to append to explicit modifiers
44 Example: :mod-2 for num_lock, :lock for Caps_lock...")
49 ;;; CONFIG - Never managed window list
50 (defparameter *never-managed-window-list
*
51 '((xlib:get-wm-class
"ROX-Pinboard")
52 (xlib:get-wm-class
"xvkbd")
53 (xlib:wm-name
"clfswm-terminal"))
54 "Config(): CLFSWM will never manage windows of this type.
55 A list of (predicate-function-on-window expected-string)")
58 ;;; CONFIG - Screen size
59 (defun get-fullscreen-size ()
60 "Return the size of root child (values rx ry rw rh)
61 You can tweak this to what you want"
62 (values -
2 -
2 (+ (xlib:screen-width
*screen
*) 2) (+ (xlib:screen-height
*screen
*) 2)))
63 ;;(values -1 -1 (xlib:screen-width *screen*) (xlib:screen-height *screen*)))
64 ;; (values -1 -1 1024 768))
65 ;; (values 100 100 800 600))
68 (defparameter *corner-size
* 3
69 "Config(Corner group): The size of the corner square")
72 ;;; CONFIG: Corner actions - See in clfswm-corner.lisp for
74 (defparameter *corner-main-mode-left-button
*
75 '((:top-left open-menu
)
76 (:top-right present-virtual-keyboard
)
77 (:bottom-right present-windows
)
79 "Config(Corner group): Actions on corners in the main mode with the left mouse button")
81 (defparameter *corner-main-mode-middle-button
*
82 '((:top-left help-on-clfswm
)
83 (:top-right ask-close
/kill-current-window
)
86 "Config(Corner group): Actions on corners in the main mode with the middle mouse button")
88 (defparameter *corner-main-mode-right-button
*
89 '((:top-left present-clfswm-terminal
)
90 (:top-right ask-close
/kill-current-window
)
91 (:bottom-right present-all-windows
)
93 "Config(Corner group): Actions on corners in the main mode with the right mouse button")
95 (defparameter *corner-second-mode-left-button
*
98 (:bottom-right present-windows
)
100 "Config(Corner group): Actions on corners in the second mode with the left mouse button")
102 (defparameter *corner-second-mode-middle-button
*
103 '((:top-left help-on-clfswm
)
107 "Config(Corner group): Actions on corners in the second mode with the middle mouse button")
109 (defparameter *corner-second-mode-right-button
*
112 (:bottom-right present-all-windows
)
114 "Config(Corner group): Actions on corners in the second mode with the right mouse button")
117 (defparameter *virtual-keyboard-cmd
* "xvkbd"
118 "Config(Corner group): The command to display the virtual keybaord
119 Here is an ~/.Xresources example for xvkbd:
120 xvkbd.windowGeometry: 300x100-0-0
122 xvkbd.modalKeytop: true
123 xvkbd.customization: -french
125 And make it always on top")
126 (defparameter *virtual-keyboard-kill-cmd
* "pkill xvkbd"
127 "Config(Corner group): The command to stop the virtual keyboard")
129 (defparameter *clfswm-terminal-name
* "clfswm-terminal"
130 "Config(Corner group): The clfswm terminal name")
131 ;;(defparameter *clfswm-terminal-cmd* (format nil "xterm -T ~A -e /bin/bash --noprofile --norc" *clfswm-terminal-name*)
132 (defparameter *clfswm-terminal-cmd
* (format nil
"xterm -T ~A" *clfswm-terminal-name
*)
133 "Config(Corner group): The clfswm terminal command.
134 This command must set the window title to *clfswm-terminal-name*")
141 ;;; A hook is a function, a symbol or a list of functions with a rest
144 ;;; This hooks are set in clfswm.lisp, you can overwrite them or extend
145 ;;; them with a hook list.
147 ;;; See clfswm.lisp for hooks examples.
149 (defparameter *init-hook
* 'default-init-hook
150 "Config(Hook group): Init hook. This hook is run just after the first root frame is created")
152 (defparameter *default-nw-hook
* 'default-frame-nw-hook
153 "Config(Hook group): Default action to do on newly created windows")
159 (defparameter *create-frame-on-root
* nil
160 "Config(): Create frame on root.
161 Set this variable to true if you want to allow to create a new frame
162 on the root window in the main mode with the mouse")
165 ;;; CONFIG: Main mode colors
166 (defparameter *color-selected
* "Red"
167 "Config(Main mode group): Color of selected window")
168 (defparameter *color-unselected
* "Blue"
169 "Config(Main mode group): Color of unselected color")
170 (defparameter *color-maybe-selected
* "Yellow"
171 "Config(Main mode group): Color of maybe selected windows")
174 ;;; CONFIG: Frame colors
175 (defparameter *frame-background
* "Black"
176 "Config(Frame colors group): Frame background")
177 (defparameter *frame-foreground
* "Green"
178 "Config(Frame colors group): Frame foreground")
179 (defparameter *frame-foreground-root
* "Red"
180 "Config(Frame colors group): Frame foreground when the frame is the root frame")
181 (defparameter *frame-foreground-hidden
* "Darkgreen"
182 "Config(Frame colors group): Frame foreground for hidden windows")
184 ;;; CONFIG: Default window size
185 (defparameter *default-window-width
* 400
186 "Config(): Default window width")
187 (defparameter *default-window-height
* 300
188 "Config(): Default window height")
190 ;;; CONFIG: Second mode colors and fonts
191 (defparameter *sm-border-color
* "Green"
192 "Config(Second mode group): Second mode window border color")
193 (defparameter *sm-background-color
* "Black"
194 "Config(Second mode group): Second mode window background color")
195 (defparameter *sm-foreground-color
* "Red"
196 "Config(Second mode group): Second mode window foreground color")
197 (defparameter *sm-font-string
* *default-font-string
*
198 "Config(Second mode group): Second mode window font string")
199 (defparameter *sm-width
* 300
200 "Config(Second mode group): Second mode window width")
201 (defparameter *sm-height
* 25
202 "Config(Second mode group): Second mode window height")
208 ;;; CONFIG - Identify key colors
209 (defparameter *identify-font-string
* *default-font-string
*
210 "Config(Identify key group): Identify window font string")
211 (defparameter *identify-background
* "black"
212 "Config(Identify key group): Identify window background color")
213 (defparameter *identify-foreground
* "green"
214 "Config(Identify key group): Identify window foreground color")
215 (defparameter *identify-border
* "red"
216 "Config(Identify key group): Identify window border color")
218 ;;; CONFIG - Query string colors
219 (defparameter *query-font-string
* *default-font-string
*
220 "Config(Query string group): Query string window font string")
221 (defparameter *query-background
* "black"
222 "Config(Query string group): Query string window background color")
223 (defparameter *query-foreground
* "green"
224 "Config(Query string group): Query string window foreground color")
225 (defparameter *query-border
* "red"
226 "Config(Query string group): Query string window border color")
229 ;;; CONFIG - Info mode
230 (defparameter *info-background
* "black"
231 "Config(Info mode group): Info window background color")
232 (defparameter *info-foreground
* "green"
233 "Config(Info mode group): Info window foreground color")
234 (defparameter *info-border
* "red"
235 "Config(Info mode group): Info window border color")
236 (defparameter *info-line-cursor
* "white"
237 "Config(Info mode group): Info window line cursor color color")
238 (defparameter *info-selected-background
* "blue"
239 "Config(Info mode group): Info selected item background color")
240 (defparameter *info-font-string
* *default-font-string
*
241 "Config(Info mode group): Info window font string")
243 (defparameter *info-click-to-select
* t
244 "Config(Info mode group): If true, click on info window select item. Otherwise, click to drag the menu")
246 ;;; CONFIG - Circulate string colors
247 (defparameter *circulate-font-string
* *default-font-string
*
248 "Config(Circulate mode group): Circulate string window font string")
249 (defparameter *circulate-background
* "black"
250 "Config(Circulate mode group): Circulate string window background color")
251 (defparameter *circulate-foreground
* "green"
252 "Config(Circulate mode group): Circulate string window foreground color")
253 (defparameter *circulate-border
* "red"
254 "Config(Circulate mode group): Circulate string window border color")
255 (defparameter *circulate-width
* 400
256 "Config(Circulate mode group): Circulate mode window width")
257 (defparameter *circulate-height
* 15
258 "Config(Circulate mode group): Circulate mode window height")
261 (defparameter *circulate-text-limite
* 30
262 "Config(Circulate mode group): Maximum text limite in the circulate window")
266 ;;; CONFIG - Show key binding colors
267 (defparameter *info-color-title
* "Magenta"
268 "Config(Info mode group): Colored info title color")
269 (defparameter *info-color-underline
* "Yellow"
270 "Config(Info mode group): Colored info underline color")
271 (defparameter *info-color-first
* "Cyan"
272 "Config(Info mode group): Colored info first color")
273 (defparameter *info-color-second
* "lightblue"
274 "Config(Info mode group): Colored info second color")
277 ;;; CONFIG - Menu colors
278 ;;; Set *info-foreground* to change the default menu foreground
279 (defparameter *menu-color-submenu
* "Cyan"
280 "Config(Menu group): Submenu color in menu")
281 (defparameter *menu-color-comment
* "Yellow"
282 "Config(Menu group): Comment color in menu")
283 (defparameter *menu-color-key
* "Magenta"
284 "Config(Menu group): Key color in menu")
285 (defparameter *menu-color-menu-key
* (->color
#xFF9AFF
)
286 "Config(Menu group): Menu key color in menu")