/[climacs]/climacs/climacs.lisp
ViewVC logotype

Contents of /climacs/climacs.lisp

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.4 - (hide annotations)
Sun Nov 12 16:06:06 2006 UTC (7 years, 5 months ago) by thenriksen
Branch: MAIN
Changes since 1.3: +2 -2 lines
Make Climacs use Drei. There are known problems (apart from the docs
now being outdated):

* Some syntaxes have not been updated.
* Group functionality has been disabled.
* It's a large change and Climacs has no test suite. Bugs probably
  still remain.

But it should work nicely most of the time. Otherwise, you'll get a
full refund.
1 thenriksen 1.3 ;;; -*- Mode: Lisp; Package: CLIMACS -*-
2 strandh 1.1
3 thenriksen 1.3 ;;; (c) copyright 2004-2005 by
4     ;;; Robert Strandh (strandh@labri.fr)
5     ;;; (c) copyright 2004-2005 by
6     ;;; Elliott Johnson (ejohnson@fasl.info)
7     ;;; (c) copyright 2005 by
8     ;;; Matthieu Villeneuve (matthieu.villeneuve@free.fr)
9     ;;; (c) copyright 2005 by
10     ;;; Aleksandar Bakic (a_bakic@yahoo.com)
11     ;;; (c) copyright 2006 by
12     ;;; Troels Henriksen (athas@sigkill.dk)
13    
14     ;;; This library is free software; you can redistribute it and/or
15     ;;; modify it under the terms of the GNU Library General Public
16     ;;; License as published by the Free Software Foundation; either
17     ;;; version 2 of the License, or (at your option) any later version.
18     ;;;
19     ;;; This library is distributed in the hope that it will be useful,
20     ;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
21     ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
22     ;;; Library General Public License for more details.
23     ;;;
24     ;;; You should have received a copy of the GNU Library General Public
25     ;;; License along with this library; if not, write to the
26     ;;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
27     ;;; Boston, MA 02111-1307 USA.
28 strandh 1.1
29 thenriksen 1.3 ;;; Entry points for the Climacs editor.
30 strandh 1.1
31 thenriksen 1.3 (in-package :climacs)
32 strandh 1.1
33 thenriksen 1.3 (defun climacs (&key new-process (process-name "Climacs")
34     (width 900) (height 400))
35     "Starts up a climacs session"
36     (let ((frame (make-application-frame 'climacs :width width :height height)))
37     (flet ((run ()
38     (run-frame-top-level frame)))
39     (if new-process
40     (clim-sys:make-process #'run :name process-name)
41     (run)))))
42    
43     (defun climacs-rv (&key new-process (process-name "Climacs")
44     (width 900) (height 400))
45     "Starts up a climacs session with alternative colors."
46     ;; SBCL doesn't inherit dynamic bindings when starting new
47     ;; processes, so start a new processes and THEN setup the colors.
48     (flet ((run ()
49 thenriksen 1.4 (let ((*background-color* +black+)
50     (*foreground-color* +gray+)
51 thenriksen 1.3 (*info-bg-color* +darkslategray+)
52     (*info-fg-color* +gray+)
53     (*mini-bg-color* +black+)
54     (*mini-fg-color* +white+))
55     (climacs :new-process nil :width width :height height))))
56     (if new-process
57     (clim-sys:make-process #'run :name process-name)
58     (run))))

  ViewVC Help
Powered by ViewVC 1.1.5