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

Contents of /climacs/packages.lisp

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.40 - (show annotations)
Mon Jan 24 12:49:09 2005 UTC (9 years, 2 months ago) by rstrandh
Branch: MAIN
Changes since 1.39: +10 -2 lines
Implemented undo and redo.
1 ;;; -*- Mode: Lisp; Package: COMMON-LISP-USER -*-
2
3 ;;; (c) copyright 2004-2005 by
4 ;;; Robert Strandh (strandh@labri.fr)
5 ;;; (c) copyright 2005 by
6 ;;; Matthieu Villeneuve (matthieu.villeneuve@free.fr)
7
8 ;;; This library is free software; you can redistribute it and/or
9 ;;; modify it under the terms of the GNU Library General Public
10 ;;; License as published by the Free Software Foundation; either
11 ;;; version 2 of the License, or (at your option) any later version.
12 ;;;
13 ;;; This library is distributed in the hope that it will be useful,
14 ;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
15 ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
16 ;;; Library General Public License for more details.
17 ;;;
18 ;;; You should have received a copy of the GNU Library General Public
19 ;;; License along with this library; if not, write to the
20 ;;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
21 ;;; Boston, MA 02111-1307 USA.
22
23 ;;; Package definitions for the Climacs editor.
24
25 (defpackage :climacs-buffer
26 (:use :clim-lisp :flexichain)
27 (:export #:buffer #:standard-buffer
28 #:mark #:left-sticky-mark #:right-sticky-mark
29 #:standard-left-sticky-mark #:standard-right-sticky-mark
30 #:clone-mark #:no-such-offset #:size #:number-of-lines
31 #:offset #:mark< #:mark<= #:mark= #:mark> #:mark>=
32 #:beginning-of-buffer #:end-of-buffer
33 #:beginning-of-buffer-p #:end-of-buffer-p
34 #:beginning-of-line #:end-of-line
35 #:beginning-of-line-p #:end-of-line-p
36 #:buffer-line-number #:buffer-column-number
37 #:line-number #:column-number
38 #:insert-buffer-object #:insert-buffer-sequence
39 #:insert-object #:insert-sequence
40 #:delete-buffer-range #:delete-range
41 #:delete-region
42 #:buffer-object #:buffer-sequence
43 #:object-before #:object-after #:region-to-sequence
44 #:low-mark #:high-mark #:modified-p #:clear-modify))
45
46 (defpackage :climacs-base
47 (:use :clim-lisp :climacs-buffer)
48 (:export #:do-buffer-region
49 #:forward-object #:backward-object
50 #:previous-line #:next-line
51 #:open-line #:kill-line
52 #:empty-line-p
53 #:line-indentation
54 #:buffer-display-column
55 #:number-of-lines-in-region
56 #:constituentp #:whitespacep
57 #:forward-word #:backward-word
58 #:delete-word #:backward-delete-word
59 #:upcase-region #:downcase-region #:capitalize-region
60 #:upcase-word #:downcase-word #:capitalize-word
61 #:tabify-region #:untabify-region
62 #:indent-line
63 #:delete-indentation
64 #:fill-line
65 #:input-from-stream #:output-to-stream
66 #:name-mixin #:name
67 #:buffer-lookin-at #:looking-at
68 #:buffer-search-forward #:buffer-search-backward
69 #:search-forward #:search-backward))
70
71 (defpackage :climacs-abbrev
72 (:use :clim-lisp :clim :climacs-buffer :climacs-base)
73 (:export #:abbrev-expander #:dictionary-abbrev-expander #:dictionary
74 #:expand-abbrev #:abbrev-mixin #:possibly-expand-abbrev
75 #:add-abbrev))
76
77 (defpackage :climacs-syntax
78 (:use :clim-lisp :clim :climacs-buffer :climacs-base :flexichain)
79 (:export #:syntax #:define-syntax
80 #:basic-syntax
81 #:update-syntax
82 #:syntax-line-indentation
83 #:beginning-of-paragraph #:end-of-paragraph))
84
85 (defpackage :climacs-kill-ring
86 (:use :clim-lisp :flexichain)
87 (:export #:kill-ring #:kill-ring-length #:kill-ring-max-size
88 #:reset-yank-position #:rotate-yank-position #:kill-ring-yank
89 #:kill-ring-standard-push #:kill-ring-concatenating-push))
90
91 (defpackage :undo
92 (:use :common-lisp)
93 (:export #:no-more-undo
94 #:undo-tree #:standard-undo-tree
95 #:undo-record #:standard-undo-record
96 #:add-undo #:flip-undo-record #:undo #:redo))
97
98 (defpackage :climacs-pane
99 (:use :clim-lisp :clim :climacs-buffer :climacs-base :climacs-abbrev
100 :climacs-syntax :flexichain :undo)
101 (:export #:climacs-buffer #:needs-saving #:filename
102 #:climacs-pane #:point #:mark
103 #:redisplay-pane #:full-redisplay
104 #:page-down #:page-up
105 #:tab-space-count
106 #:indent-tabs-mode
107 #:auto-fill-mode #:auto-fill-column
108 #:isearch-state #:search-string #:search-mark #:search-forward-p
109 #:isearch-mode #:isearch-states #:isearch-previous-string
110 #:with-undo
111 #:url))
112
113 (defpackage :climacs-gui
114 (:use :clim-lisp :clim :climacs-buffer :climacs-base :climacs-abbrev :climacs-syntax
115 :climacs-kill-ring :climacs-pane :clim-extensions :undo))
116

  ViewVC Help
Powered by ViewVC 1.1.5