/[climacs]/climacs/developer-commands.lisp
ViewVC logotype

Contents of /climacs/developer-commands.lisp

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.4 - (show annotations)
Sun Nov 12 16:06:06 2006 UTC (7 years, 5 months ago) by thenriksen
Branch: MAIN
CVS Tags: HEAD
Changes since 1.3: +1 -1 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 ;;; -*- Mode: Lisp; Package: CLIMACS-GUI -*-
2
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
12 ;;; This library is free software; you can redistribute it and/or
13 ;;; modify it under the terms of the GNU Library General Public
14 ;;; License as published by the Free Software Foundation; either
15 ;;; version 2 of the License, or (at your option) any later version.
16 ;;;
17 ;;; This library is distributed in the hope that it will be useful,
18 ;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
19 ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
20 ;;; Library General Public License for more details.
21 ;;;
22 ;;; You should have received a copy of the GNU Library General Public
23 ;;; License along with this library; if not, write to the
24 ;;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
25 ;;; Boston, MA 02111-1307 USA.
26
27 ;;; Commands for developing the Climacs editor.
28
29 (in-package :climacs-commands)
30
31 (define-command (com-reset-profile :name t :command-table development-table) ()
32 #+sbcl (sb-profile:reset)
33 #-sbcl nil)
34
35 (define-command (com-report-profile :name t :command-table development-table) ()
36 #+sbcl (sb-profile:report)
37 #-sbcl nil)
38
39 (define-command (com-recompile :name t :command-table development-table) ()
40 (asdf:operate 'asdf:load-op :climacs))
41
42
43 (define-gesture-name :select-other #+mcclim :pointer-button-press #-mcclim :pointer-button (:left :meta) :unique nil)
44
45 (define-presentation-translator lisp-string-to-string
46 (drei-lisp-syntax::lisp-string string development-table
47 :gesture :select-other
48 :tester-definitive t
49 :menu nil
50 :priority 10)
51 (object)
52 object)
53
54 (define-command (com-accept-string :name t :command-table development-table) ()
55 (display-message (format nil "~s" (accept 'string))))
56
57 (define-command (com-accept-symbol :name t :command-table development-table) ()
58 (display-message (format nil "~s" (accept 'symbol))))
59
60 (define-command (com-accept-lisp-string :name t :command-table development-table) ()
61 (display-message (format nil "~s" (accept 'lisp-string))))

  ViewVC Help
Powered by ViewVC 1.1.5