- climacs-cvs@common-lisp.net - mailman3.common-lisp.net

[climacs-cvs] CVS update: climacs/esa.lisp
by dmurray＠common-lisp.net 16 Oct '05

16 Oct '05

Update of /project/climacs/cvsroot/climacs In directory common-lisp.net:/tmp/cvs-serv7791 Modified Files: esa.lisp Log Message: Fixed set-key to allow for mcclim's treatment of the :shift modifier in the :esc command tables. Date: Sun Oct 16 15:56:51 2005 Author: dmurray Index: climacs/esa.lisp diff -u climacs/esa.lisp:1.18 climacs/esa.lisp:1.19 --- climacs/esa.lisp:1.18 Tue Sep 13 21:23:59 2005 +++ climacs/esa.lisp Sun Oct 16 15:56:50 2005 @@ -328,7 +328,13 @@ command table :keystroke gesture :errorp nil) (when (and (listp gesture) (find :meta gesture)) - (set-key command table (list (list :escape) (remove :meta gesture))))) + (set-key command table + (list (list :escape) + (let ((esc-list (remove :meta gesture))) + (if (and (= (length esc-list) 2) + (find :shift esc-list)) + (remove :shift esc-list) + esc-list)))))) (t (set-key command (ensure-subtable table gesture) (cdr gestures))))))

1 0

[climacs-cvs] CVS update: climacs/gui.lisp
by crhodes＠common-lisp.net 13 Oct '05

13 Oct '05

Update of /project/climacs/cvsroot/climacs In directory common-lisp.net:/tmp/cvs-serv18560 Modified Files: gui.lisp Log Message: Fix for unintuitive capitalization of replacement string ("X4" replaced by "Xa////" got turned into "XA////"). Date: Thu Oct 13 11:34:12 2005 Author: crhodes Index: climacs/gui.lisp diff -u climacs/gui.lisp:1.190 climacs/gui.lisp:1.191 --- climacs/gui.lisp:1.190 Tue Oct 11 23:20:52 2005 +++ climacs/gui.lisp Thu Oct 13 11:34:12 2005 @@ -1975,10 +1975,11 @@ (insert-sequence point string2) (setf offset2 (+ offset1 (length string2))) (finish-output *error-output*) - (case region-case - (:upper-case (upcase-buffer-region buffer offset1 offset2)) - (:lower-case (downcase-buffer-region buffer offset1 offset2)) - (:capitalized (capitalize-buffer-region buffer offset1 offset2)))) + (unless (find-if #'upper-case-p string1) + (case region-case + (:upper-case (upcase-buffer-region buffer offset1 offset2)) + (:lower-case (downcase-buffer-region buffer offset1 offset2)) + (:capitalized (capitalize-buffer-region buffer offset1 offset2))))) (incf occurrences) (if (query-replace-find-next-match point string1) (display-message "Query Replace ~A with ~A:"

1 0

[climacs-cvs] CVS update: climacs/prolog-syntax.lisp
by crhodes＠common-lisp.net 13 Oct '05

13 Oct '05

Update of /project/climacs/cvsroot/climacs In directory common-lisp.net:/tmp/cvs-serv17454 Modified Files: prolog-syntax.lisp Log Message: Comment cut'n'pasteo fix Date: Thu Oct 13 11:18:48 2005 Author: crhodes Index: climacs/prolog-syntax.lisp diff -u climacs/prolog-syntax.lisp:1.22 climacs/prolog-syntax.lisp:1.23 --- climacs/prolog-syntax.lisp:1.22 Tue Aug 16 01:31:22 2005 +++ climacs/prolog-syntax.lisp Thu Oct 13 11:18:47 2005 @@ -1,4 +1,4 @@ -;;; -*- Mode: Lisp; Package: CLIMACS-HTML-SYNTAX -*- +;;; -*- Mode: Lisp; Package: CLIMACS-PROLOG-SYNTAX -*- ;;; (c) copyright 2005 by ;;; Christophe Rhodes (c.rhodes(a)gold.ac.uk)

1 0

[climacs-cvs] CVS update: climacs/slidemacs-gui.lisp climacs/gui.lisp
by dmurray＠common-lisp.net 11 Oct '05

11 Oct '05

Update of /project/climacs/cvsroot/climacs In directory common-lisp.net:/tmp/cvs-serv13949 Modified Files: slidemacs-gui.lisp gui.lisp Log Message: Added :errorp nil to command-table definitions for easier reloading during development. Also added right-click (sets mark to previous point, point to where clicked, and copies resulting region to kill-ring) and middle-click (pastes from kill-ring). Date: Tue Oct 11 23:20:52 2005 Author: dmurray Index: climacs/slidemacs-gui.lisp diff -u climacs/slidemacs-gui.lisp:1.19 climacs/slidemacs-gui.lisp:1.20 --- climacs/slidemacs-gui.lisp:1.19 Tue Sep 13 21:23:59 2005 +++ climacs/slidemacs-gui.lisp Tue Oct 11 23:20:52 2005 @@ -35,7 +35,7 @@ (defvar *current-slideset*) (defvar *did-display-a-slide*) -(make-command-table 'slidemacs-table) +(make-command-table 'slidemacs-table :errorp nil) (defun slidemacs-entity-string (entity) (coerce (buffer-sequence (buffer entity) Index: climacs/gui.lisp diff -u climacs/gui.lisp:1.189 climacs/gui.lisp:1.190 --- climacs/gui.lisp:1.189 Tue Sep 13 21:38:02 2005 +++ climacs/gui.lisp Tue Oct 11 23:20:52 2005 @@ -54,39 +54,39 @@ "If T, classic look and feel. If NIL, stripped-down look (:") ;;; Basic functionality -(make-command-table 'base-table) +(make-command-table 'base-table :errorp nil) ;;; buffers -(make-command-table 'buffer-table) +(make-command-table 'buffer-table :errorp nil) ;;; case -(make-command-table 'case-table) +(make-command-table 'case-table :errorp nil) ;;; comments -(make-command-table 'comment-table) +(make-command-table 'comment-table :errorp nil) ;;; deleting -(make-command-table 'deletion-table) +(make-command-table 'deletion-table :errorp nil) ;;; commands used for climacs development -(make-command-table 'development-table) +(make-command-table 'development-table :errorp nil) ;;; editing - making changes to a buffer -(make-command-table 'editing-table) +(make-command-table 'editing-table :errorp nil) ;;; filling -(make-command-table 'fill-table) +(make-command-table 'fill-table :errorp nil) ;;; indentation -(make-command-table 'indent-table) +(make-command-table 'indent-table :errorp nil) ;;; information about the buffer -(make-command-table 'info-table) +(make-command-table 'info-table :errorp nil) ;;; lisp-related commands -(make-command-table 'lisp-table) +(make-command-table 'lisp-table :errorp nil) ;;; marking things -(make-command-table 'marking-table) +(make-command-table 'marking-table :errorp nil) ;;; moving around -(make-command-table 'movement-table) +(make-command-table 'movement-table :errorp nil) ;;; panes -(make-command-table 'pane-table) +(make-command-table 'pane-table :errorp nil) ;;; searching -(make-command-table 'search-table) +(make-command-table 'search-table :errorp nil) ;;; self-insertion -(make-command-table 'self-insert-table) +(make-command-table 'self-insert-table :errorp nil) ;;; windows -(make-command-table 'window-table) +(make-command-table 'window-table :errorp nil) (define-application-frame climacs (standard-application-frame esa-frame-mixin) @@ -618,7 +618,8 @@ 'movement-table '((:left :control))) -(define-command (com-delete-word :name t :command-table deletion-table) ((count 'integer :prompt "Number of words")) +(define-command (com-delete-word :name t :command-table deletion-table) + ((count 'integer :prompt "Number of words")) (delete-word (point (current-window)) count)) (defun kill-word (mark &optional (count 1) (concatenate-p nil)) @@ -1579,29 +1580,65 @@ 'window-table '((#\x :control) (#\o))) +(defun click-to-offset (window x y) + (with-slots (top bot) window + (let ((new-x (floor x (stream-character-width window #\m))) + (new-y (floor y (stream-line-height window))) + (buffer (buffer window))) + (loop for scan from (offset top) + with lines = 0 + until (= scan (offset bot)) + until (= lines new-y) + when (eql (buffer-object buffer scan) #\Newline) + do (incf lines) + finally (loop for columns from 0 + until (= scan (offset bot)) + until (eql (buffer-object buffer scan) #\Newline) + until (= columns new-x) + do (incf scan)) + (return scan))))) + (define-command (com-switch-to-this-window :name nil :command-table window-table) ((window 'pane) (x 'integer) (y 'integer)) (other-window window) - (with-slots (top bot) window - (let ((new-x (floor x (stream-character-width window #\m))) - (new-y (floor y (stream-line-height window))) - (buffer (buffer window))) - (loop for scan from (offset top) - with lines = 0 - until (= scan (offset bot)) - until (= lines new-y) - when (eql (buffer-object buffer scan) #\Newline) - do (incf lines) - finally (loop for columns from 0 - until (= scan (offset bot)) - until (eql (buffer-object buffer scan) #\Newline) - until (= columns new-x) - do (incf scan)) - (setf (offset (point window)) scan))))) + (when (typep window 'extended-pane) + (setf (offset (point window)) + (click-to-offset window x y)))) (define-presentation-to-command-translator blank-area-to-switch-to-this-window (blank-area com-switch-to-this-window window-table :echo nil) - (object window x y) + (window x y) + (list window x y)) + +(define-gesture-name :select-other :pointer-button (:right) :unique nil) + +(define-command (com-mouse-save :name nil :command-table window-table) + ((window 'pane) (x 'integer) (y 'integer)) + (when (and (typep window 'extended-pane) + (eq window (current-window))) + (setf (offset (mark window)) + (click-to-offset window x y)) + (com-exchange-point-and-mark) + (com-copy-region))) + +(define-presentation-to-command-translator blank-area-to-mouse-save + (blank-area com-mouse-save window-table :echo nil :gesture :select-other) + (window x y) + (list window x y)) + +(define-gesture-name :middle-button :pointer-button (:middle) :unique nil) + +(define-command (com-yank-here :name nil :command-table window-table) + ((window 'pane) (x 'integer) (y 'integer)) + (when (typep window 'extended-pane) + (other-window window) + (setf (offset (point window)) + (click-to-offset window x y)) + (com-yank))) + +(define-presentation-to-command-translator blank-area-to-yank-here + (blank-area com-yank-here window-table :echo nil :gesture :middle-button) + (window x y) (list window x y)) (defun single-window ()

1 0

[climacs-cvs] CVS update: climacs/cl-automaton/state-and-transition.lisp
by abakic＠common-lisp.net 25 Sep '05

25 Sep '05

Update of /project/climacs/cvsroot/climacs/cl-automaton In directory common-lisp.net:/tmp/cvs-serv25386/cl-automaton Modified Files: state-and-transition.lisp Log Message: Fixed one more typo in INSTALL. Cleaned up :climacs.tests in climacs.asd. Changed *do-not-escape* to *escape-unicode-chars*, as requested by Derek Peschel. Date: Sun Sep 25 22:06:27 2005 Author: abakic Index: climacs/cl-automaton/state-and-transition.lisp diff -u climacs/cl-automaton/state-and-transition.lisp:1.1 climacs/cl-automaton/state-and-transition.lisp:1.2 --- climacs/cl-automaton/state-and-transition.lisp:1.1 Fri Aug 5 00:07:48 2005 +++ climacs/cl-automaton/state-and-transition.lisp Sun Sep 25 22:06:26 2005 @@ -118,10 +118,11 @@ sum (sxhash st)) most-positive-fixnum))) -(defvar *do-not-escape* t) ; nil may be useful in Slime +(defvar *escape-unicode-chars* nil) ; true may be useful in Slime (defun escaped-char (c) - (if (or *do-not-escape* (and (<= #x21 c #x7e) (/= c (char-code #\\)))) + (if (or (not *escape-unicode-chars*) + (and (<= #x21 c #x7e) (/= c (char-code #\\)))) (code-char c) (format nil "\\u~4,'0O" c)))

1 0

[climacs-cvs] CVS update: climacs/INSTALL climacs/climacs.asd
by abakic＠common-lisp.net 25 Sep '05

25 Sep '05

Update of /project/climacs/cvsroot/climacs In directory common-lisp.net:/tmp/cvs-serv25386 Modified Files: INSTALL climacs.asd Log Message: Fixed one more typo in INSTALL. Cleaned up :climacs.tests in climacs.asd. Changed *do-not-escape* to *escape-unicode-chars*, as requested by Derek Peschel. Date: Sun Sep 25 22:06:25 2005 Author: abakic Index: climacs/INSTALL diff -u climacs/INSTALL:1.6 climacs/INSTALL:1.7 --- climacs/INSTALL:1.6 Sun Sep 25 21:36:31 2005 +++ climacs/INSTALL Sun Sep 25 22:06:25 2005 @@ -45,6 +45,6 @@ For that reason, Climacs often depends on very fresh CVS versions of McCLIM. If you discover a bug, please try to install a new version of -McCLIM before looking to hard for any other reasons. +McCLIM before looking too hard for any other reasons. Index: climacs/climacs.asd diff -u climacs/climacs.asd:1.37 climacs/climacs.asd:1.38 --- climacs/climacs.asd:1.37 Fri Aug 12 23:15:26 2005 +++ climacs/climacs.asd Sun Sep 25 22:06:25 2005 @@ -81,21 +81,15 @@ ((:file "rt" :pathname #p"testing/rt.lisp") (:file "buffer-test" :depends-on ("rt")) (:file "base-test" :depends-on ("rt")) - (:file "automaton-test-package" - :pathname #P"cl-automaton/automaton-test-package.lisp" - :depends-on ("rt")) - (:file "eqv-hash-test" - :pathname #P"cl-automaton/eqv-hash-test.lisp" - :depends-on ("rt" "automaton-test-package")) - (:file "state-and-transition-test" - :pathname #P"cl-automaton/state-and-transition-test.lisp" - :depends-on ("rt" "automaton-test-package")) - (:file "automaton-test" - :pathname #P"cl-automaton/automaton-test.lisp" - :depends-on ("rt" "automaton-test-package")) - (:file "regexp-test" - :pathname #P"cl-automaton/regexp-test.lisp" - :depends-on ("rt" "automaton-test-package")))) + (:module + "cl-automaton" + :depends-on ("rt") + :components + ((:file "automaton-test-package") + (:file "eqv-hash-test" :depends-on ("automaton-test-package")) + (:file "state-and-transition-test" :depends-on ("automaton-test-package")) + (:file "automaton-test" :depends-on ("automaton-test-package")) + (:file "regexp-test" :depends-on ("automaton-test-package")))))) #+asdf (defmethod asdf:perform :around ((o asdf:compile-op)

1 0

[climacs-cvs] CVS update: climacs/INSTALL
by afuchs＠common-lisp.net 25 Sep '05

25 Sep '05

Update of /project/climacs/cvsroot/climacs In directory common-lisp.net:/tmp/cvs-serv23262 Modified Files: INSTALL Log Message: Add a paragraph to INSTALL detailing how to get McCLIM and CLX, written by Xan on #lisp. Date: Sun Sep 25 21:36:32 2005 Author: afuchs Index: climacs/INSTALL diff -u climacs/INSTALL:1.5 climacs/INSTALL:1.6 --- climacs/INSTALL:1.5 Sun Sep 25 21:03:52 2005 +++ climacs/INSTALL Sun Sep 25 21:36:31 2005 @@ -1,3 +1,9 @@ +*Note*: Climacs depends on McCLIM, a graphic toolkit for Common Lisp +(http://www.cliki.net/McCLIM) and CLX, a low level, Xlib-like library +on top of which McCLIM is built (http://www.cliki.net/CLX) Make sure +these are properly installed on your system before attempting to install +Climacs. + Install instructions for Climacs. We assume that if you have gotten this far, it means that you have either extracted a tar file with everything in it, or checked out the files from some CVS repository.

1 0

[climacs-cvs] CVS update: climacs/INSTALL
by afuchs＠common-lisp.net 25 Sep '05

25 Sep '05

Update of /project/climacs/cvsroot/climacs In directory common-lisp.net:/tmp/cvs-serv21185 Modified Files: INSTALL Log Message: Fix two small typos in INSTALL. Date: Sun Sep 25 21:03:52 2005 Author: afuchs Index: climacs/INSTALL diff -u climacs/INSTALL:1.4 climacs/INSTALL:1.5 --- climacs/INSTALL:1.4 Sun Jan 23 17:37:24 2005 +++ climacs/INSTALL Sun Sep 25 21:03:52 2005 @@ -37,8 +37,8 @@ find bugs in McCLIM, or ask for functionality of McCLIM that can be useful to us. -For that reason, McCLIM often depend on very fresh CVS versions of +For that reason, Climacs often depends on very fresh CVS versions of McCLIM. If you discover a bug, please try to install a new version of -McCLIM before looking to hard for any other reasons. +McCLIM before looking to hard for any other reasons.

1 0

[climacs-cvs] CVS update: climacs/Doc/climacs-user.texi
by rstrandh＠common-lisp.net 24 Sep '05

24 Sep '05

Update of /project/climacs/cvsroot/climacs/Doc In directory common-lisp.net:/tmp/cvs-serv17448 Modified Files: climacs-user.texi Log Message: Fixed spelling errors and a faulty index entry. Date: Sat Sep 24 20:53:49 2005 Author: rstrandh Index: climacs/Doc/climacs-user.texi diff -u climacs/Doc/climacs-user.texi:1.5 climacs/Doc/climacs-user.texi:1.6 --- climacs/Doc/climacs-user.texi:1.5 Fri Sep 23 01:25:14 2005 +++ climacs/Doc/climacs-user.texi Sat Sep 24 20:53:48 2005 @@ -145,7 +145,7 @@ window that displays the buffer. Points are right-sticky marks, even when a language such as Arabic is edited, simply because by convention, the @climacs{} buffer is considered as being organized -from left to right. It is question of @emph{rendering} as to whether +from left to right. It is a question of @emph{rendering} as to whether the objects in the buffer are actually displayed from left to right, from right to left, or in any other appropriate order. @@ -164,7 +164,8 @@ @emph{command}. @cindex command Such a key sequence is called a @emph{complete key sequence} -@cindex complete key sequence or an @emph{order}. +@cindex complete key sequence +or an @emph{order}. @cindex order @node Basic editing commands @@ -204,7 +205,7 @@ saved. In addition, if you answer no to any of those questions, you will be asked to confirm that you want to quit @climacs{} anyway. The reason for this pestering on the part of @climacs{} is that currently -when you quit @climacs{}, the buffer contents is lost. +when you quit @climacs{}, the buffer contents are lost. @node Numeric arguments @section Numeric arguments @@ -315,7 +316,7 @@ When used with a numeric argument, this command is not simply repeated that many times. Instead, the number of lines indicated by the -numerid argument are removed. +numeric argument are removed. Because this command name contains the word @emph{kill} it saves the deleted objects on the @emph{kill ring} (@pxref{kill-ring}). @@ -353,7 +354,7 @@ @node Moving by words @subsection Moving by words -@climacs{} will allow you to move around by larger unites than +@climacs{} will allow you to move around by larger units than objects. The order @kbd{M-f} @@ -396,7 +397,7 @@ @command{Next Line} is also associated with the @emph{down-arrow key}. -When you move by lines, @climacs{} tries to be smart about what +When you move by lines, @climacs{} tries to be smart about which @emph{column} point ends up in, in the following way: when a sequence of commands that move by lines is given, the initial column of point is remembered (this is called the @emph{goal column}). @climacs{} @@ -457,7 +458,7 @@ The result of finding a file is that a @emph{buffer} will be created that has the name of the file, and the file will be associated with -that buffer when the contents is saved. +that buffer when the content is saved. @node Saving a buffer @subsection Saving a buffer @@ -494,7 +495,7 @@ Normally, typing ordinary characters to @climacs{} results in these characters being @emph{inserted} at point. Sometimes, however, it is useful to treat a line of objects as being of @emph{fixed length}, and -have @climacs{} @emph{replace} objects as new ones are begin typed. +have @climacs{} @emph{replace} objects as new ones are being typed. This is exactly the purpose of @climacs{} @emph{overwrite mode}. This mode alters the insert commands so that the object after point is @@ -525,11 +526,11 @@ @section Keyboard macros Sometimes, it is useful to be able to repeat a sequence of keystrokes -several times. @climacs{} allows you to do this through a features +several times. @climacs{} allows you to do this through a feature called @emph{keyboard macros}. @cindex keyboard macro @climacs{} does this by @emph{recording} whatever the user types on -the keyboard, and then making it possibly to @emph{replaying} the +the keyboard, and then making it possibly to @emph{replay} the recorded sequence. To start recording a sequence of keystrokes, use the order @kbd{C-x (} @@ -586,9 +587,9 @@ To obtain a description of what some putative order will do, use the order @kbd{C-h c} @kindex C-h c -(@command{Describe Key Briefly}. You will be prompted for a key +(@command{Describe Key Briefly}). You will be prompted for a key sequence. If the key sequence you type is bound to a command, the -command name will be displayed in the minibuffer. Otherwise a message +command name will be displayed in the minibuffer. Otherwise, a message indicating that the key is not bound to a command will be displayed. @node Help finding an order for a command

1 0

[climacs-cvs] CVS update: climacs/Doc/Makefile climacs/Doc/climacs-user.texi
by rstrandh＠common-lisp.net 22 Sep '05

22 Sep '05

Update of /project/climacs/cvsroot/climacs/Doc In directory common-lisp.net:/tmp/cvs-serv31173 Modified Files: Makefile climacs-user.texi Log Message: Include the user manual in the Makefile. Minor fixes to avoid errors from texinfo translators. Date: Fri Sep 23 01:25:15 2005 Author: rstrandh Index: climacs/Doc/Makefile diff -u climacs/Doc/Makefile:1.1 climacs/Doc/Makefile:1.2 --- climacs/Doc/Makefile:1.1 Sat Dec 25 13:05:17 2004 +++ climacs/Doc/Makefile Fri Sep 23 01:25:14 2005 @@ -1,4 +1,4 @@ -all: climacs-internals.pdf climacs-internals.ps +all: climacs-internals.pdf climacs-internals.ps climacs-user.pdf climacs-user.ps %.eps: %.fig fig2dev -Leps -m 0.75 $< $@ @@ -9,6 +9,13 @@ climacs-internals.ps: climacs-internals.texi undo.eps texi2dvi climacs-internals.texi dvips -o climacs-internals.ps climacs-internals.dvi + +climacs-user.pdf: climacs-user.texi + texi2pdf climacs-user.texi + +climacs-user.ps: climacs-user.texi + texi2dvi climacs-user.texi + dvips -o climacs-user.ps climacs-user.dvi clean: rm -f *.aux *.cp *.fn *.fns *.ky *.log *.pdf *.pg *.toc *.tp *.tps *.vr *.dvi *.ps *.eps *~ Index: climacs/Doc/climacs-user.texi diff -u climacs/Doc/climacs-user.texi:1.4 climacs/Doc/climacs-user.texi:1.5 --- climacs/Doc/climacs-user.texi:1.4 Wed Sep 14 01:42:17 2005 +++ climacs/Doc/climacs-user.texi Fri Sep 23 01:25:14 2005 @@ -178,7 +178,7 @@ commands of @climacs{}. @menu -* Entering and exiting @climacs{}:: +* Entering and exiting Climacs:: * Numeric arguments:: * Entering and deleting text:: * Moving around:: @@ -186,8 +186,8 @@ * Editing the contents of a file:: @end menu -@node Entering and exiting @climacs{} -@section Entering and exiting @climacs{} +@node Entering and exiting Climacs +@section Entering and exiting Climacs The typical way of entering @climacs{} is to type a @cl{} @emph{expression} at the prompt of a @cl{} @emph{listener} such as:

1 0