Commit 5ceb9a70 authored by james's avatar james
Browse files

*** empty log message ***

parent 6636a68b
;;;;; Base configuration
;; Global definitions
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; Keyboard shortcuts
;; circulate windows : Alt-Tab / A
(define-key-combo :switch-win-up
:keys '(:TAB)
:modifiers '(:ALT-LEFT))
(define-key-combo :switch-win-down
:keys '(:A)
:modifiers '(:ALT-LEFT))
;; change of virtual screen : Ctrl-LeftArrow / RightArrow
(define-key-combo :switch-screen-left
:keys '(:LEFT)
:modifiers '(:CONTROL-LEFT))
(define-key-combo :switch-screen-right
:keys '(:RIGHT)
:modifiers '(:CONTROL-LEFT))
;; move mouse pointer : Ctrl-Alt-LeftArrow / RightArrow
(define-key-combo :move-right
:keys '(:RIGHT)
:modifiers '(:and :ALT-LEFT :CONTROL-LEFT))
(define-key-combo :move-left
:keys '(:LEFT)
:modifiers '(:and :ALT-LEFT :CONTROL-LEFT))
(define-key-combo :move-up
:keys '(:UP)
:modifiers '(:and :ALT-LEFT :CONTROL-LEFT))
(define-key-combo :move-down
:keys '(:DOWN)
:modifiers '(:and :ALT-LEFT :CONTROL-LEFT))
;; mouse click : Ctrl-Alt-Z / X / C (left middle right)
(define-key-combo :left-click
:keys '(:W)
:modifiers '(:and :ALT-LEFT :CONTROL-LEFT))
(define-key-combo :middle-click
:keys '(:X)
:modifiers '(:and :ALT-LEFT :CONTROL-LEFT))
(define-key-combo :right-click
:keys '(:C)
:modifiers '(:and :ALT-LEFT :CONTROL-LEFT))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; Custom variables.
(setf (number-of-virtual-screens) 4
*move-type* :box
*focus-type* :none
*font-color* (xlib:make-color :red 0.00 :green 0.00 :blue 0.25)
*theme* "microGUI"
*change-desktop-message-active-p* nil)
;; Application menu
(setf *menu-1-items*
(list (cons "Emacs" (run-application "emacs"))
(cons "Netscape" (run-application "netscape"))
(cons "Gv" (run-application "gv"))
(cons "XMMS" (run-application "xmms"))
(cons "Xterm" (run-application "xterm"))
))
;; Desktop-names
;(setf (workspace-names) '("Main" "Work" "Internet" "Games"))
# Makefile for Eclipse window manager.
LISP = @LISP@
CORE = @CORE@
core_dest = @core_dest@
PRG = eclipse
# lisp argument name for evaluting forms :
eval_form = @eval_form@
# lisp argument name for loading file :
load = @load@
# lisp function for saving a system image :
save_lisp = @save_lisp@
srcdir = @srcdir@
top_srcdir = @top_srcdir@
VPATH = @srcdir@
prefix = @prefix@
exec_prefix = @exec_prefix@
bindir = @bindir@
datadir = @datadir@
mandir = @mandir@
install = @INSTALL@
gnome = @gnome_entry_dir@
gnome_entry_dir = @gnome_entry_dir@/wm-properties
all: compile core
compile:
@$(LISP) $(CORE) -load compile.lisp
core:
@if test ! ${core_dest} = no;\
then $(LISP) $(CORE) ${eval_form}\
"(progn\
(load \"system.lisp\")\
(mk:operate-on-system :eclipse :load)\
(${save_lisp} \"${core_dest}\"))";\
fi
clean:
/bin/rm -f load-eclipse.lisp
/bin/rm -f eclipse
/bin/rm -f *.err
@$(LISP) $(CORE) ${eval_form}\
"(progn\
(load \"system.lisp\")\
(mk:operate-on-system :eclipse :clean)\
#+:cmu(ext:quit)\
#+:allegro(excl:exit))"
@if test ! ${core_dest} = no; then /bin/rm -f ${core_dest}; fi
install:
$(install) -d ${bindir}
$(install) -m 755 ${PRG} ${bindir}/${PRG}
$(install) -d ${mandir}/man1
$(install) -m 644 docs/eclipse.1 ${mandir}/man1/eclipse.1
if test ! ${gnome} = no;\
then\
if ! test -d ${gnome_entry_dir};\
then $(install) -d ${gnome_entry_dir};\
fi;\
$(install) -m 644 Eclipse.desktop ${gnome_entry_dir}/Eclipse.desktop;\
fi
uninstall:
/bin/rm -f ${bindir}/${PRG}
/bin/rm -f ${mandir}/man1/eclipse.1
if test ! ${gnome_entry_dir} = no;\
then /bin/rm -f ${gnome_entry_dir}/Eclipse.desktop; fi
(xlib:declare-event :configure-request
((xlib::data (xlib::member8 :above :below :top-if :bottom-if :opposite))
stack-mode)
(xlib:card16 sequence)
(xlib:window (parent event-window) window)
((or null xlib:window) above-sibling)
(xlib:int16 x y)
(xlib:card16 width height border-width value-mask))
;; Here is a Window manager writen _ONLY_ with Common Lisp.
;; Copyright (C) 2000 Iban HATCHONDO, Julien BONINFANTE,
;; Aymeric LACORTE, Jocelyn FRECHOT
;; contact : hatchond@yahoo.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.
(load "system.lisp")
(mk:operate-on-system :eclipse :load :load-source-instead-of-binary t)
(mk:operate-on-system :eclipse :compile)
#+:cmu(ext:quit)
#+:allegro(excl:exit)
This diff is collapsed.
AC_INIT()
SRC=`pwd`
LISP=""
CORE=""
ARGS=""
core_dest=""
gnome_entry_dir=""
interp=""
# implementation dependant lisp system args : (default is for cmucl)
with_image="-core"
load="-load"
eval_form="-eval"
save_lisp="save-lisp"
# standard tests
AC_SYS_INTERPRETER
AC_PROG_INSTALL
# assume that we can give argument to configure :
# --with-lisp
# --with-core
# --with-gnome-entry-dir
# --enable-compile-into-core
AC_ARG_WITH(lisp,
[ --with-lisp=DIR or FILE where to find your lisp system],
LISP=$withval,
[AC_PATH_PROG(LISP,lisp)])
AC_ARG_WITH(core,
[ --with-core=FILE what is the core image to use],
if test -n $withval -a -r $withval
then CORE="${with_image} $withval"
fi)
AC_ARG_WITH(gnome_entry_dir,
[ --with-gnome-entry-dir=[PATH] path to the gnome WM entries directory.],
gnome_entry_dir=$withval
if test -z "${gnome_entry_dir}"
then gnome_entry_dir=yes
fi,
gnome_entry_dir=yes)
AC_ARG_ENABLE(compile-into-core,
[ --enable-compile-into-core=[NAME] core file-name for compile destination],
core_dest=$enableval)
#
# user gave a directory for the lisp system
if test -n ${LISP} && test -d $LISP
then LISP=`dirname $LISP/lisp`/lisp
fi
# no lisp system at all !!!
if test ! -x ${LISP}
then
AC_MSG_WARN([*** Cannot find a lisp system])
AC_MSG_ERROR([*** Maybe you want to use --with-lisp])
fi
#
# extra check for gnome wm-properties directory.
AC_CACHE_CHECK(checking for gnome wm-properties directory,
clwm_cv_gnome_entry_dir,
for dir in ${gnome_entry_dir} /usr/share/gnome /usr/local/share/gnome
do
if test $dir = no
then break
elif test -d $dir
then gnome_entry_dir=$dir; break
else gnome_entry_dir=no
fi
done
clwm_cv_gnome_entry_dir=${gnome_entry_dir})
gnome_entry_dir=${clwm_cv_gnome_entry_dir}
#
# fix core image name destination if necessary.
case "${core_dest}" in
yes) core_dest=eclipse-lisp.core ;;
no) ;;
"" | $) core_dest="no" ;;
*) ;;
esac
# and prepare the lisp arguments for the wm loader.
if test ! ${core_dest} = no
then
# put the absolute pathname of the core destination file.
if test `dirname ${core_dest}` = .
then core_dest=${SRC}/${core_dest}
fi
if test -d ${core_dest}
then core_dest=`dirname ${core_dest}`/`basename ${core_dest}`/eclipse-lisp.core
fi
ARGS="${with_image} ${core_dest} ${eval_form} \"(eclipse \${display_spec})\""
else
ARGS="${CORE} ${load} ${SRC}/load-eclipse.lisp ${eval_form}\
\"(start \${display_spec})\""
fi
# set interp.
if test $interpval = yes
then interp="#!"
else interp=""
fi
#
# Final substitutions
AC_SUBST(interp)
AC_SUBST(SHELL)
AC_SUBST(LISP)
AC_SUBST(CORE)
AC_SUBST(SRC)
AC_SUBST(ARGS)
AC_SUBST(INSTALL)
AC_SUBST(eval_form)
AC_SUBST(with_image)
AC_SUBST(load)
AC_SUBST(save_lisp)
AC_SUBST(core_dest)
AC_SUBST(gnome_entry_dir)
AC_OUTPUT([Makefile eclipse load-eclipse.lisp])
if test ! ${gnome_entry_dir} = no
then
printf "creating Eclipse.desktop"
cat > Eclipse.desktop <<\EOF
[[Desktop Entry]]
Name=Eclipse
Exec=eclipse
TryExec=eclipse
Terminal=false
MultipleArgs=false
[[Window Manager]]
SessionManaged=false
EOF
fi
#
# Configuration report
printf "\n\nConfiguration report\n"
printf " - install prefix : ${prefix}.\n"
printf " - exec prefix : ${exec_prefix}/bin.\n"
printf " - lisp system found : ${LISP}.\n"
if test -n "${CORE}"
then printf " - use specific image : ${CORE}.\n"
else printf " - use specific image : no.\n"
fi
printf " - compile in an image : ${core_dest}\n"
printf " - create gnome entry : ${gnome_entry_dir}.\n"
printf " - installer : ${INSTALL}.\n"
;;; -*- Mode: Lisp; Package: User -*-
;;; ECLIPSE. The Common Lisp Window Manager.
;;; This file is part of Eclipse. It gives an other (shortest)
;;; way to use the predefined X cursors.
;;; Copyright (C) 2002 Iban HATCHONDO
;;; contact : hatchond@yahoo.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.
;;; 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.
(defvar +cursor-table+ (make-hash-table))
(defvar +cursor-font+ nil)
(defvar +black+ (xlib:make-color :red 0 :green 0 :blue 0))
(defvar +white+ (xlib:make-color :red 1 :green 1 :blue 1))
(defun define-glyph-cursor (cursor-key-name font-index)
(setf (gethash cursor-key-name +cursor-table+) font-index))
(defun cursor-key-name->cursor-font-index (cursor-key-name)
(gethash cursor-key-name +cursor-table+))
(defun get-x-cursor (display cursor-key-name &key reverse)
(let ((index (cursor-key-name->cursor-font-index cursor-key-name)))
(unless +cursor-font+
(setf +cursor-font+ (xlib:open-font display "cursor")))
(xlib:create-glyph-cursor
:source-font +cursor-font+
:mask-font +cursor-font+
:source-char index
:mask-char (1+ index)
:foreground (if reverse +white+ +black+)
:background (if reverse +black+ +white+))))
;;; Copyright 1987, 1998 The Open Group
;;; Permission to use, copy, modify, distribute, and sell this software and its
;;; documentation for any purpose is hereby granted without fee, provided that
;;; the above copyright notice appear in all copies and that both that
;;; copyright notice and this permission notice appear in supporting
;;; documentation.
;;; The above copyright notice and this permission notice shall be included
;;; in all copies or substantial portions of the Software.
;;; THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS
;;; OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
;;; MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.
;;; IN NO EVENT SHALL THE OPEN GROUP BE LIABLE FOR ANY CLAIM, DAMAGES OR
;;; OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE,
;;; ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR
;;; OTHER DEALINGS IN THE SOFTWARE.
;;; Except as contained in this notice, the name of The Open Group shall
;;; not be used in advertising or otherwise to promote the sale, use or
;;; other dealings in this Software without prior written authorization
;;; from The Open Group.
(define-glyph-cursor :XC_X_CURSOR 0)
(define-glyph-cursor :XC_ARROW 2)
(define-glyph-cursor :XC_BASED_ARROW_DOWN 4)
(define-glyph-cursor :XC_BASED_ARROW_UP 6)
(define-glyph-cursor :XC_BOAT 8)
(define-glyph-cursor :XC_BOGOSITY 10)
(define-glyph-cursor :XC_BOTTOM_LEFT_CORNER 12)
(define-glyph-cursor :XC_BOTTOM_RIGHT_CORNER 14)
(define-glyph-cursor :XC_BOTTOM_SIDE 16)
(define-glyph-cursor :XC_BOTTOM_TEE 18)
(define-glyph-cursor :XC_BOX_SPIRAL 20)
(define-glyph-cursor :XC_CENTER_PTR 22)
(define-glyph-cursor :XC_CIRCLE 24)
(define-glyph-cursor :XC_CLOCK 26)
(define-glyph-cursor :XC_COFFEE_MUG 28)
(define-glyph-cursor :XC_CROSS 30)
(define-glyph-cursor :XC_CROSS_REVERSE 32)
(define-glyph-cursor :XC_CROSSHAIR 34)
(define-glyph-cursor :XC_DIAMOND_CROSS 36)
(define-glyph-cursor :XC_DOT 38)
(define-glyph-cursor :XC_DOTBOX 40)
(define-glyph-cursor :XC_DOUBLE_ARROW 42)
(define-glyph-cursor :XC_DRAFT_LARGE 44)
(define-glyph-cursor :XC_DRAFT_SMALL 46)
(define-glyph-cursor :XC_DRAPED_BOX 48)
(define-glyph-cursor :XC_EXCHANGE 50)
(define-glyph-cursor :XC_FLEUR 52)
(define-glyph-cursor :XC_GOBBLER 54)
(define-glyph-cursor :XC_GUMBY 56)
(define-glyph-cursor :XC_HAND1 58)
(define-glyph-cursor :XC_HAND2 60)
(define-glyph-cursor :XC_HEART 62)
(define-glyph-cursor :XC_ICON 64)
(define-glyph-cursor :XC_IRON_CROSS 66)
(define-glyph-cursor :XC_LEFT_PTR 68)
(define-glyph-cursor :XC_LEFT_SIDE 70)
(define-glyph-cursor :XC_LEFT_TEE 72)
(define-glyph-cursor :XC_LEFTBUTTON 74)
(define-glyph-cursor :XC_LL_ANGLE 76)
(define-glyph-cursor :XC_LR_ANGLE 78)
(define-glyph-cursor :XC_MAN 80)
(define-glyph-cursor :XC_MIDDLEBUTTON 82)
(define-glyph-cursor :XC_MOUSE 84)
(define-glyph-cursor :XC_PENCIL 86)
(define-glyph-cursor :XC_PIRATE 88)
(define-glyph-cursor :XC_PLUS 90)
(define-glyph-cursor :XC_QUESTION_ARROW 92)
(define-glyph-cursor :XC_RIGHT_PTR 94)
(define-glyph-cursor :XC_RIGHT_SIDE 96)
(define-glyph-cursor :XC_RIGHT_TEE 98)
(define-glyph-cursor :XC_RIGHTBUTTON 100)
(define-glyph-cursor :XC_RTL_LOGO 102)
(define-glyph-cursor :XC_SAILBOAT 104)
(define-glyph-cursor :XC_SB_DOWN_ARROW 106)
(define-glyph-cursor :XC_SB_H_DOUBLE_ARROW 108)
(define-glyph-cursor :XC_SB_LEFT_ARROW 110)
(define-glyph-cursor :XC_SB_RIGHT_ARROW 112)
(define-glyph-cursor :XC_SB_UP_ARROW 114)
(define-glyph-cursor :XC_SB_V_DOUBLE_ARROW 116)
(define-glyph-cursor :XC_SHUTTLE 118)
(define-glyph-cursor :XC_SIZING 120)
(define-glyph-cursor :XC_SPIDER 122)
(define-glyph-cursor :XC_SPRAYCAN 124)
(define-glyph-cursor :XC_STAR 126)
(define-glyph-cursor :XC_TARGET 128)
(define-glyph-cursor :XC_TCROSS 130)
(define-glyph-cursor :XC_TOP_LEFT_ARROW 132)
(define-glyph-cursor :XC_TOP_LEFT_CORNER 134)
(define-glyph-cursor :XC_TOP_RIGHT_CORNER 136)
(define-glyph-cursor :XC_TOP_SIDE 138)
(define-glyph-cursor :XC_TOP_TEE 140)
(define-glyph-cursor :XC_TREK 142)
(define-glyph-cursor :XC_UL_ANGLE 144)
(define-glyph-cursor :XC_UMBRELLA 146)
(define-glyph-cursor :XC_UR_ANGLE 148)
(define-glyph-cursor :XC_WATCH 150)
(define-glyph-cursor :XC_XTERM 152)
(define-glyph-cursor :XC_NUM_GLYPHS 154)
GNU GENERAL PUBLIC LICENSE
Version 2, June 1991
Copyright (C) 1989, 1991 Free Software Foundation, Inc.
59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
Everyone is permitted to copy and distribute verbatim copies
of this license document, but changing it is not allowed.
Preamble
The licenses for most software are designed to take away your
freedom to share and change it. By contrast, the GNU General Public
License is intended to guarantee your freedom to share and change free
software--to make sure the software is free for all its users. This
General Public License applies to most of the Free Software
Foundation's software and to any other program whose authors commit to
using it. (Some other Free Software Foundation software is covered by
the GNU Library General Public License instead.) You can apply it to
your programs, too.
When we speak of free software, we are referring to freedom, not
price. Our General Public Licenses are designed to make sure that you
have the freedom to distribute copies of free software (and charge for
this service if you wish), that you receive source code or can get it
if you want it, that you can change the software or use pieces of it
in new free programs; and that you know you can do these things.
To protect your rights, we need to make restrictions that forbid
anyone to deny you these rights or to ask you to surrender the rights.
These restrictions translate to certain responsibilities for you if you
distribute copies of the software, or if you modify it.
For example, if you distribute copies of such a program, whether
gratis or for a fee, you must give the recipients all the rights that
you have. You must make sure that they, too, receive or can get the
source code. And you must show them these terms so they know their
rights.
We protect your rights with two steps: (1) copyright the software, and
(2) offer you this license which gives you legal permission to copy,
distribute and/or modify the software.
Also, for each author's protection and ours, we want to make certain
that everyone understands that there is no warranty for this free
software. If the software is modified by someone else and passed on, we
want its recipients to know that what they have is not the original, so
that any problems introduced by others will not reflect on the original
authors' reputations.
Finally, any free program is threatened constantly by software
patents. We wish to avoid the danger that redistributors of a free
program will individually obtain patent licenses, in effect making the
program proprietary. To prevent this, we have made it clear that any
patent must be licensed for everyone's free use or not licensed at all.
The precise terms and conditions for copying, distribution and
modification follow.
GNU GENERAL PUBLIC LICENSE
TERMS AND CONDITIONS FOR COPYING, DISTRIBUTION AND MODIFICATION
0. This License applies to any program or other work which contains
a notice placed by the copyright holder saying it may be distributed
under the terms of this General Public License. The "Program", below,
refers to any such program or work, and a "work based on the Program"
means either the Program or any derivative work under copyright law:
that is to say, a work containing the Program or a portion of it,
either verbatim or with modifications and/or translated into another
language. (Hereinafter, translation is included without limitation in
the term "modification".) Each licensee is addressed as "you".
Activities other than copying, distribution and modification are not
covered by this License; they are outside its scope. The act of
running the Program is not restricted, and the output from the Program
is covered only if its contents constitute a work based on the
Program (independent of having been made by running the Program).
Whether that is true depends on what the Program does.
1. You may copy and distribute verbatim copies of the Program's
source code as you receive it, in any medium, provided that you
conspicuously and appropriately publish on each copy an appropriate
copyright notice and disclaimer of warranty; keep intact all the
notices that refer to this License and to the absence of any warranty;
and give any other recipients of the Program a copy of this License
along with the Program.
You may charge a fee for the physical act of transferring a copy, and
you may at your option offer warranty protection in exchange for a fee.
2. You may modify your copy or copies of the Program or any portion
of it, thus forming a work based on the Program, and copy and
distribute such modifications or work under the terms of Section 1
above, provided that you also meet all of these conditions:
a) You must cause the modified files to carry prominent notices
stating that you changed the files and the date of any change.
b) You must cause any work that you distribute or publish, that in
whole or in part contains or is derived from the Program or any
part thereof, to be licensed as a whole at no charge to all third
parties under the terms of this License.
c) If the modified program normally reads commands interactively
when run, you must cause it, when started running for such
interactive use in the most ordinary way, to print or display an
announcement including an appropriate copyright notice and a
notice that there is no warranty (or else, saying that you provide
a warranty) and that users may redistribute the program under
these conditions, and telling the user how to view a copy of this
License. (Exception: if the Program itself is interactive but
does not normally print such an announcement, your work based on
the Program is not required to print an announcement.)
These requirements apply to the modified work as a whole. If
identifiable sections of that work are not derived from the Program,
and can be reasonably considered independent and separate works in
themselves, then this License, and its terms, do not apply to those
sections when you distribute them as separate works. But when you
distribute the same sections as part of a whole which is a work based
on the Program, the distribution of the whole must be on the terms of
this License, whose permissions for other licensees extend to the
entire whole, and thus to each and every part regardless of who wrote it.
Thus, it is not the intent of this section to claim rights or contest
your rights to work written entirely by you; rather, the intent is to
exercise the right to control the distribution of derivative or
collective works based on the Program.
In addition, mere aggregation of another work not based on the Program
with the Program (or with a work based on the Program) on a volume of
a storage or distribution medium does not bring the other work under
the scope of this License.
3. You may copy and distribute the Program (or a work based on it,
under Section 2) in object code or executable form under the terms of
Sections 1 and 2 above provided that you also do one of the following:
a) Accompany it with the complete corresponding machine-readable
source code, which must be distributed under the terms of Sections
1 and 2 above on a medium customarily used for software interchange; or,
b) Accompany it with a written offer, valid for at least three
years, to give any third party, for a charge no more than your
cost of physically performing source distribution, a complete
machine-readable copy of the corresponding source code, to be
distributed under the terms of Sections 1 and 2 above on a medium
customarily used for software interchange; or,
c) Accompany it with the information you received as to the offer
to distribute corresponding source code. (This alternative is
allowed only for noncommercial distribution and only if you
received the program in object code or executable form with such