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

Contents of /climacs/packages.lisp

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.32 - (show annotations)
Sat Jan 15 19:50:43 2005 UTC (9 years, 3 months ago) by rstrandh
Branch: MAIN
Changes since 1.31: +14 -6 lines
Did a major overhaul of the syntax facility.  The previous
functionality is now divided into three parts: the first one is the
real syntax, associated with the buffer instead of with the pane.  The
second part is the cache management, now associated with the pane
instead of with the syntax.  The third part is a CLIM view, associated
with the pane, which determines presentation parameters such as
highlighting.

modified the tabify/untabify code so that the space-width and
tab-width are no longer in the syntax, but in the view.

Factored out the climacs pane and displaying of text in the pane into
a new file, pane.lisp.
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 #:number-of-lines-in-region
53 #:constituentp #:whitespacep
54 #:forward-word #:backward-word
55 #:delete-word #:backward-delete-word
56 #:upcase-region #:downcase-region #:capitalize-region
57 #:upcase-word #:downcase-word #:capitalize-word
58 #:tabify-region #:untabify-region
59 #:input-from-stream #:output-to-stream
60 #:name-mixin #:name
61 #:buffer-lookin-at #:looking-at
62 #:buffer-search-forward #:buffer-search-backward
63 #:search-forward #:search-backward))
64
65 (defpackage :climacs-abbrev
66 (:use :clim-lisp :clim :climacs-buffer :climacs-base)
67 (:export #:abbrev-expander #:dictionary-abbrev-expander #:dictionary
68 #:expand-abbrev #:abbrev-mixin #:possibly-expand-abbrev
69 #:add-abbrev))
70
71 (defpackage :climacs-syntax
72 (:use :clim-lisp :clim :climacs-buffer :climacs-base :flexichain)
73 (:export #:syntax #:define-syntax
74 #:basic-syntax
75 #:update-syntax))
76
77 (defpackage :climacs-kill-ring
78 (:use :clim-lisp :flexichain)
79 (:export #:kill-ring #:kill-ring-length #:kill-ring-max-size
80 #:reset-yank-position #:rotate-yank-position #:kill-ring-yank
81 #:kill-ring-standard-push #:kill-ring-concatenating-push))
82
83 (defpackage :climacs-pane
84 (:use :clim-lisp :clim :climacs-buffer :climacs-base :climacs-abbrev
85 :climacs-syntax :flexichain)
86 (:export #:climacs-buffer #:needs-saving #:filename
87 #:climacs-pane #:point #:mark
88 #:redisplay-pane #:full-redisplay
89 #:page-down #:page-up
90 #:tab-space-count
91 #:url))
92
93 (defpackage :climacs-gui
94 (:use :clim-lisp :clim :climacs-buffer :climacs-base :climacs-abbrev :climacs-syntax
95 :climacs-kill-ring :climacs-pane))
96

  ViewVC Help
Powered by ViewVC 1.1.5