climacs-cvs

climacs-cvs@common-lisp.net

847 discussions

[climacs-cvs] CVS climacs/Doc
by thenriksen 02 Jul '06

02 Jul '06

Update of /project/climacs/cvsroot/climacs/Doc In directory clnet:/tmp/cvs-serv994/Doc Modified Files: climacs-user.texi Log Message: Fleshed out the definitions for the buffer and pane concepts. --- /project/climacs/cvsroot/climacs/Doc/climacs-user.texi 2006/07/02 19:34:15 1.11 +++ /project/climacs/cvsroot/climacs/Doc/climacs-user.texi 2006/07/02 19:55:45 1.12 @@ -108,9 +108,16 @@ A @climacs{} @emph{buffer} @cindex buffer -is an editable sequence of arbitrary @cl{} objects. If the buffer +is a named, editable sequence of arbitrary @cl{} objects. If the buffer contains text, most of those objects will be @emph{Unicode -characters}. +characters}. When editing a file, the contents of the file will be +loaded into a buffer with a name corresponding to the name of the file +(creating the buffer in the process), and all editing operations will be +performed on the buffer. Upon saving, the contents of the buffer will be +written to the file associated with it. @xref{Editing the contents of a +file}. A buffer does not necessarily have a file associated with it, for +example, the @emph{*scratch*} buffer automatically created upon +@climacs{} startup is not associated with any file. @cindex character @cindex Unicode @@ -118,10 +125,15 @@ @section Window and pane A @climacs{} buffer may or may not be on display. If it is, it is on -display in a @emph{pane} +display in a @emph{pane} @cindex pane or a @emph{window}. @cindex window +A pane does not necessarily contain a buffer, it may just be a pane +containing output from Climacs. These panes are known as @emph{typeout +panes}, +@cindex typeout pane +and their contents are lost when they are destroyed. @node Mark and point @section Mark and point @@ -731,8 +743,8 @@ To get documentation about a particular command, use the order @kbd{C-h f} @kindex C-h f -(@command{Describe Command}). You will be prompted for -the name of a command, and if you provide a valid command name, a pane +(@command{Describe Command}). You will be prompted for the name of a +command, and if you provide a valid command name, a typeout pane containing information about which function the command calls, which gestures the command can be invoked through, as well as a description of the command, will be displayed. @@ -762,20 +774,21 @@ (@command{Describe Key}). You will be prompted for a key sequence, and if the key sequence you provide is bound to a command, documentation for that command, as well as any arguments the given key binding calls the -command with, will be shown. +command with, will be shown in a typeout pane. @node Help finding a command -@section Help findind a command +@section Help finding a command If you do not know which commands are applicable to a given situation, you can use the order @kbd{C-h a} @kindex C-h a (@command{Apropos Command}) to perform a keyword-based search for -commands. You will be prompted for a keyword, after which @climacs{} will -search through the available commands for commands that are connected to -the keyword. If commands are found, they will be displayed in a pane -along with the gestures you can use to invoke them. You can also click -on the names of the commands to get more thorough documentation. +commands. You will be prompted for a keyword, after which @climacs{} +will search through the available commands for commands that are +connected to the keyword. If commands are found, they will be displayed +in a typeout pane along with the gestures you can use to invoke +them. You can also click on the names of the commands to get more +thorough documentation. @node Help finding an order for a command @section Help finding an order for a command

1 0

[climacs-cvs] CVS climacs/Doc
by thenriksen 02 Jul '06

02 Jul '06

Update of /project/climacs/cvsroot/climacs/Doc In directory clnet:/tmp/cvs-serv31495/Doc Modified Files: climacs-user.texi Log Message: Climacs => @climacs{} (but why?) --- /project/climacs/cvsroot/climacs/Doc/climacs-user.texi 2006/07/02 19:01:33 1.10 +++ /project/climacs/cvsroot/climacs/Doc/climacs-user.texi 2006/07/02 19:34:15 1.11 @@ -556,7 +556,7 @@ @node Searching and replacing @section Searching and replacing -Climacs has a number of useful searching and replacing commands. The +@climacs{} has a number of useful searching and replacing commands. The replacing commands come in two flavors - querying commands and non-querying commands. The former will unconditionally replace all matches, while the latter will query before each replacement. Note that @@ -619,7 +619,7 @@ @subsection The isearch command loop The isearch command loop consists of the user typing in characters for -the search string, and Climacs moving point ahead to the most immediate +the search string, and @climacs{} moving point ahead to the most immediate instance of the provided string, while the user is typing. Apart from simply entering text, the user can manipulate the command loop by entering the following orders: @@ -669,7 +669,7 @@ with one command - for instance, you might want to replace all occurrences of ``foo'' with ``bar'' and all occurrences of ``bar'' with ``baz'', without having the replacements affect each other. For this, -Climacs provides the command @command{Multiple Query Replace}, which +@climacs{} provides the command @command{Multiple Query Replace}, which will prompt for pairs of strings, replacing the first with the second. Entering an empty search string stops the prompting and starts the query-replace command loop. It is also possible to use @command{Multiple @@ -771,7 +771,7 @@ you can use the order @kbd{C-h a} @kindex C-h a (@command{Apropos Command}) to perform a keyword-based search for -commands. You will be prompted for a keyword, after which Climacs will +commands. You will be prompted for a keyword, after which @climacs{} will search through the available commands for commands that are connected to the keyword. If commands are found, they will be displayed in a pane along with the gestures you can use to invoke them. You can also click

1 0

[climacs-cvs] CVS climacs/Doc
by thenriksen 02 Jul '06

02 Jul '06

Update of /project/climacs/cvsroot/climacs/Doc In directory clnet:/tmp/cvs-serv27509/Doc Modified Files: climacs-user.texi Log Message: Added documentation for the search/replace-commands to the Climacs User Guide. --- /project/climacs/cvsroot/climacs/Doc/climacs-user.texi 2006/07/01 23:11:19 1.9 +++ /project/climacs/cvsroot/climacs/Doc/climacs-user.texi 2006/07/02 19:01:33 1.10 @@ -556,6 +556,156 @@ @node Searching and replacing @section Searching and replacing +Climacs has a number of useful searching and replacing commands. The +replacing commands come in two flavors - querying commands and +non-querying commands. The former will unconditionally replace all +matches, while the latter will query before each replacement. Note that +the searching and replacing commands only affect the buffer contents +after point. + +@menu +* Simple search:: +* Incremental search:: +* The isearch command loop:: +* Replacing single strings:: +* Replacing multiple different strings:: +* The query-replace command loop:: +@end menu + +@node Simple search +@subsection Simple search + +The simplest search command is @command{String Search}. It prompts for a +string and moves point to after the next occurrence of the +string. @command{Reverse String Search} is similar, but searches +backwards from point, and puts point before the first occurrence of the +string. + +The commands @command{Word Search} and @command{Reverse Word Search} are +very similar to @command{String Search} and @command{Reverse String +Search}, but only finds matches that are whole words. + +The commands @command{Regex Search Forward} and @command{Regex Search +Backward} are similar to @command{String Search} and @command{Reverse +Word Search}, but do not search for plain strings. Instead, they ask the +user to enter a regular expression and attempts to find a match in the +buffer. + +You can use the command @command{How Many} to count the number of +matches in the buffer for a given regular expression. When invoked, the +command will ask for a regular expression, and then proceed to search +through the buffer, counting each match for the regular expression, and +finally print the number of matches to the minibuffer. + +@node Incremental search +@subsection Incremental search + +Incremental search, or @emph{isearch} in common speech, is different +from string search, in that point is moved to matches in the buffer, +while the search string is being entered, thus, the user receives +immediate feedback while entering the search string. Incremental search +is controlled through a command loop. @xref{The isearch command loop}. + +Incremental search can be entered via two orders, @kbd{C-s} +@kindex C-s +(@command{Isearch Forward}) and @kbd{C-r} +@kindex C-r +(@command{Isearch Backward}). These commands starts a command loop that +searches forwards and backwards by default, respectively. Note that the +search direction can be changed from inside the command loop, no matter +which of these commands were used to start it. + +@node The isearch command loop +@subsection The isearch command loop + +The isearch command loop consists of the user typing in characters for +the search string, and Climacs moving point ahead to the most immediate +instance of the provided string, while the user is typing. Apart from +simply entering text, the user can manipulate the command loop by +entering the following orders: + +@table @kbd +@item C-s +Move to next match for current search string and set the search +direction to forward. +@item C-r +Move to previous match for current search string and set the search +direction to backward. +@item C-j +Append a ``newline'' character to the current search string. +@item C-w +Append the word at point to the current search string. +@item C-y +Append the line at point to the current search string. +@item M-y +Append the head of the kill ring to the search string. +@item @key{Backspace} +Delete the last element of the search string. This is not the same as +deleting the last character - for example, if the word at point has been +appended to the search string via @kbd{C-w}, this order will delete the +entire word, not just the last character of the word. +@item @key{Newline} +Exit the isearch command loop. +@end table + +@node Replacing single strings +@subsection Replacing single strings + +The basic string-replacement command can be accessed through the order +@kbd{C-x e} +@kindex C-x e +(@command{Replace String}). This command will prompt for two strings, +and replace all instances of the first string following point in the +current buffer, with the second string. This command is not querying, +and will thus not prompt before each replacement, so if you desire this +behavior, use the order @kbd{M-%} +@kindex M-% +(@command{Query Replace}) instead. @xref{The query-replace command loop}. + +@node Replacing multiple different strings +@subsection Replacing multiple different strings + +It is often desirable to be able to replace multiple, different strings +with one command - for instance, you might want to replace all +occurrences of ``foo'' with ``bar'' and all occurrences of ``bar'' with +``baz'', without having the replacements affect each other. For this, +Climacs provides the command @command{Multiple Query Replace}, which +will prompt for pairs of strings, replacing the first with the second. +Entering an empty search string stops the prompting and starts the +query-replace command loop. It is also possible to use @command{Multiple +Query Replace From Buffer}, which will read the string pairs from a +buffer provided by the user. + +If you wish to exchange two strings for one another, use the command +@command{Query Exchange}, which will prompt for two strings, and replace +them for each other in the current buffer. + +@node The query-replace command loop +@subsection The query-replace command loop + +When invoking one of the querying replace commands, you will enter a +command loop with specialized commands for manipulating the replacement +process. + +The command loop will loop across the buffer, and for each match, the +command loop will read an order from the user. The following orders and +their corresponding commands are available: + +@table @kbd +@item y, @key{Space} +Replace the current match with the provided string, go to next +match. +@item n, @key{Rubout}, @key{Backspace} +Do not replace the current match, go to next match. +@item q, @key{Newline} +Quit the command loop, preserving all replacements already made. +@item . +Replace the current match with the provided string and quit the +command loop. +@item ! +Replace all matches with the provided replacement strings. +@end table + @node Getting help @chapter Getting help @@ -568,8 +718,10 @@ information is displayed. @menu +* Help with a command:: * Help with a key binding:: * Help with a particular key sequence:: +* Help finding a command:: * Help finding an order for a command:: @end menu @@ -598,7 +750,7 @@ @section Help with a particular key sequence To obtain a description of what some putative order will do, use the -order @kbd{C-h c} +order @kbd{C-h c}p @kindex C-h c (@command{Describe Key Briefly}). You will be prompted for a key sequence. If the key sequence you type is bound to a command, the

1 0

[climacs-cvs] CVS climacs
by thenriksen 02 Jul '06

02 Jul '06

Update of /project/climacs/cvsroot/climacs In directory clnet:/tmp/cvs-serv22006 Modified Files: search-commands.lisp Log Message: Fixed `com-isearch-append-word' to work with the new motion methods. --- /project/climacs/cvsroot/climacs/search-commands.lisp 2006/06/12 19:10:58 1.7 +++ /project/climacs/cvsroot/climacs/search-commands.lisp 2006/07/02 18:42:28 1.8 @@ -199,7 +199,9 @@ (isearch-from-mark pane mark string forwardp)))) (define-command (com-isearch-append-word :name t :command-table isearch-climacs-table) () - (isearch-append-text #'forward-word)) + (let ((syntax (syntax (current-buffer)))) + (isearch-append-text #'(lambda (mark) + (forward-word mark syntax))))) (define-command (com-isearch-append-line :name t :command-table isearch-climacs-table) () (isearch-append-text #'end-of-line))

1 0

[climacs-cvs] CVS climacs
by thenriksen 02 Jul '06

02 Jul '06

Update of /project/climacs/cvsroot/climacs In directory clnet:/tmp/cvs-serv26319 Modified Files: misc-commands.lisp editing-commands.lisp Log Message: Moved the Kill Line command into editing-commands.lisp. --- /project/climacs/cvsroot/climacs/misc-commands.lisp 2006/06/12 19:10:58 1.15 +++ /project/climacs/cvsroot/climacs/misc-commands.lisp 2006/07/02 15:43:48 1.16 @@ -150,53 +150,6 @@ 'editing-table '((#\o :control))) -(defun kill-line (mark &optional (count 1) (whole-lines-p nil) (concatenate-p nil)) - (let ((start (offset mark))) - (cond ((= 0 count) - (beginning-of-line mark)) - ((< count 0) - (loop repeat (- count) - until (beginning-of-buffer-p mark) - do (beginning-of-line mark) - until (beginning-of-buffer-p mark) - do (backward-object mark))) - ((or whole-lines-p (> count 1)) - (loop repeat count - until (end-of-buffer-p mark) - do (end-of-line mark) - until (end-of-buffer-p mark) - do (forward-object mark))) - (t - (cond ((end-of-buffer-p mark) nil) - ((end-of-line-p mark) (forward-object mark)) - (t (end-of-line mark))))) - (unless (mark= mark start) - (if concatenate-p - (kill-ring-concatenating-push *kill-ring* - (region-to-sequence start mark)) - (kill-ring-standard-push *kill-ring* - (region-to-sequence start mark))) - (delete-region start mark)))) - -(define-command (com-kill-line :name t :command-table deletion-table) - ((numarg 'integer :prompt "Kill how many lines?") - (numargp 'boolean :prompt "Kill entire lines?")) - "Kill the objects on the current line after point. -When at the end of a line, kill the #\\Newline. -With a numeric argument of 0, kill the objects on the current line before point. -With a non-zero numeric argument, kill that many lines forward (backward, -if negative) from point. - -Successive kills append to the kill ring." - (let* ((pane (current-window)) - (point (point pane)) - (concatenate-p (eq (previous-command pane) 'com-kill-line))) - (kill-line point numarg numargp concatenate-p))) - -(set-key `(com-kill-line ,*numeric-argument-marker* ,*numeric-argument-p*) - 'deletion-table - '((#\k :control))) - (defmacro define-mark-unit-command (unit command-table &key move-point noun --- /project/climacs/cvsroot/climacs/editing-commands.lisp 2006/06/12 19:10:58 1.1 +++ /project/climacs/cvsroot/climacs/editing-commands.lisp 2006/07/02 15:43:48 1.2 @@ -195,13 +195,57 @@ (region-to-sequence mark point))) (delete-region mark point))) +;; We require somewhat special behavior from Kill Line, so define a +;; new function and use that to implement the Kill Line command. +(defun user-kill-line (mark &optional (count 1) (whole-lines-p nil) (concatenate-p nil)) + (let ((start (offset mark))) + (cond ((= 0 count) + (beginning-of-line mark)) + ((< count 0) + (loop repeat (- count) + until (beginning-of-buffer-p mark) + do (beginning-of-line mark) + until (beginning-of-buffer-p mark) + do (backward-object mark))) + ((or whole-lines-p (> count 1)) + (loop repeat count + until (end-of-buffer-p mark) + do (end-of-line mark) + until (end-of-buffer-p mark) + do (forward-object mark))) + (t + (cond ((end-of-buffer-p mark) nil) + ((end-of-line-p mark) (forward-object mark)) + (t (end-of-line mark))))) + (unless (mark= mark start) + (if concatenate-p + (kill-ring-concatenating-push *kill-ring* + (region-to-sequence start mark)) + (kill-ring-standard-push *kill-ring* + (region-to-sequence start mark))) + (delete-region start mark)))) + +(define-command (com-kill-line :name t :command-table deletion-table) + ((numarg 'integer :prompt "Kill how many lines?") + (numargp 'boolean :prompt "Kill entire lines?")) + "Kill the objects on the current line after point. +When at the end of a line, kill the #\\Newline. +With a numeric argument of 0, kill the objects on the current line before point. +With a non-zero numeric argument, kill that many lines forward (backward, +if negative) from point. + +Successive kills append to the kill ring." + (let* ((pane (current-window)) + (point (point pane)) + (concatenate-p (eq (previous-command pane) 'com-kill-line))) + (user-kill-line point numarg numargp concatenate-p))) + ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;; ;;; Autogenerate commands (define-deletion-commands word deletion-table) (define-editing-commands word editing-table) -(define-deletion-commands line deletion-table) (define-editing-commands line editing-table) (define-deletion-commands definition deletion-table) (define-editing-commands definition editing-table) @@ -247,3 +291,6 @@ 'editing-table '((#\t :control))) +(set-key `(com-kill-line ,*numeric-argument-marker* ,*numeric-argument-p*) + 'deletion-table + '((#\k :control))) \ No newline at end of file

1 0

[climacs-cvs] CVS climacs/Doc
by thenriksen 01 Jul '06

01 Jul '06

Update of /project/climacs/cvsroot/climacs/Doc In directory clnet:/tmp/cvs-serv23856/Doc Modified Files: climacs-user.texi Log Message: Added mention of new documentation commands to the user manual. --- /project/climacs/cvsroot/climacs/Doc/climacs-user.texi 2006/07/01 22:41:05 1.8 +++ /project/climacs/cvsroot/climacs/Doc/climacs-user.texi 2006/07/01 23:11:19 1.9 @@ -564,7 +564,7 @@ with. Most of these topics are obtained by some order using the @kbd{C-h} @kindex C-h -prefex key. The key following @kbd{C-h} determines what kind of help +prefix key. The key following @kbd{C-h} determines what kind of help information is displayed. @menu @@ -573,6 +573,18 @@ * Help finding an order for a command:: @end menu +@node Help with a command +@section Help with a command + +To get documentation about a particular command, use the order @kbd{C-h +f} +@kindex C-h f +(@command{Describe Command}). You will be prompted for +the name of a command, and if you provide a valid command name, a pane +containing information about which function the command calls, which +gestures the command can be invoked through, as well as a description of +the command, will be displayed. + @node Help with a key binding @section Help with a key binding @@ -593,6 +605,26 @@ command name will be displayed in the minibuffer. Otherwise, a message indicating that the key is not bound to a command will be displayed. +For more detailed information, use the order @kbd{C-h c} +@kindex C-h k +(@command{Describe Key}). You will be prompted for a key sequence, and +if the key sequence you provide is bound to a command, documentation for +that command, as well as any arguments the given key binding calls the +command with, will be shown. + +@node Help finding a command +@section Help findind a command + +If you do not know which commands are applicable to a given situation, +you can use the order @kbd{C-h a} +@kindex C-h a +(@command{Apropos Command}) to perform a keyword-based search for +commands. You will be prompted for a keyword, after which Climacs will +search through the available commands for commands that are connected to +the keyword. If commands are found, they will be displayed in a pane +along with the gestures you can use to invoke them. You can also click +on the names of the commands to get more thorough documentation. + @node Help finding an order for a command @section Help finding an order for a command

1 0

[climacs-cvs] CVS climacs/Doc
by thenriksen 01 Jul '06

01 Jul '06

Update of /project/climacs/cvsroot/climacs/Doc In directory clnet:/tmp/cvs-serv20213/Doc Modified Files: climacs-user.texi Log Message: The entry point is in the CLIMACS-GUI package. --- /project/climacs/cvsroot/climacs/Doc/climacs-user.texi 2005/10/19 18:03:07 1.7 +++ /project/climacs/cvsroot/climacs/Doc/climacs-user.texi 2006/07/01 22:41:05 1.8 @@ -195,7 +195,7 @@ @emph{expression} at the prompt of a @cl{} @emph{listener} such as: @lisp -CL-USER> (climacs:climacs) +CL-USER> (climacs-gui:climacs) @end lisp You exit from @climacs{} by typing @kbd{C-x C-c} (@command{Quit}).

1 0

[climacs-cvs] CVS climacs
by thenriksen 29 Jun '06

29 Jun '06

Update of /project/climacs/cvsroot/climacs In directory clnet:/tmp/cvs-serv1454 Modified Files: base.lisp Log Message: Added non-syntax-aware version of `whitespacep'. --- /project/climacs/cvsroot/climacs/base.lisp 2006/06/12 19:10:58 1.51 +++ /project/climacs/cvsroot/climacs/base.lisp 2006/06/29 14:23:26 1.52 @@ -139,6 +139,11 @@ #\: #\< #\= #\> #\? #\@ #\^ #\~ #\_ #\{ #\} #\[ #\] ))))) +(defun buffer-whitespacep (obj) + "Return T if `obj' is a basic whitespace character. This + function does not respect the current syntax." + (member obj '(#\Space #\Tab #\Newline #\Page #\Return))) + ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;; ;;; Character case @@ -317,7 +322,7 @@ (loop for i downfrom (- offset wlen) to 0 for j = (+ i wlen) - when (and (or (zerop i) (whitespacep t (buffer-object buffer (1- i)))) + when (and (or (zerop i) (buffer-whitespacep (buffer-object buffer (1- i)))) (buffer-looking-at buffer i word :test test) (not (and (< (+ i wlen) blen) (constituentp (buffer-object buffer (+ i wlen)))))) @@ -337,7 +342,7 @@ (loop for i upfrom offset to (- blen (max wlen 1)) for j = (+ i wlen) - when (and (or (zerop i) (whitespacep (buffer-object buffer (1- i)))) + when (and (or (zerop i) (buffer-whitespacep (buffer-object buffer (1- i)))) (buffer-looking-at buffer i word :test test) (not (and (< j blen) (constituentp (buffer-object buffer j)))))

1 0

[climacs-cvs] CVS climacs
by thenriksen 13 Jun '06

13 Jun '06

Update of /project/climacs/cvsroot/climacs In directory clnet:/tmp/cvs-serv25345 Modified Files: lisp-syntax.lisp Log Message: Fixed indentation for quote and backquote forms (again?). --- /project/climacs/cvsroot/climacs/lisp-syntax.lisp 2006/06/12 19:10:58 1.87 +++ /project/climacs/cvsroot/climacs/lisp-syntax.lisp 2006/06/13 14:58:37 1.88 @@ -2309,10 +2309,10 @@ (values tree 0)) (defmethod indent-form ((syntax lisp-syntax) (tree quote-form) path) - (indent-form syntax (elt-noncomment (children tree) (car path)) (cdr path))) + (indent-list syntax (elt-noncomment (children tree) (car path)) (cdr path))) (defmethod indent-form ((syntax lisp-syntax) (tree backquote-form) path) - (indent-form syntax (elt-noncomment (children tree) (car path)) (cdr path))) + (indent-list syntax (elt-noncomment (children tree) (car path)) (cdr path))) (defmethod indent-form ((syntax lisp-syntax) (tree comma-form) path) (indent-form syntax (elt-noncomment (children tree) (car path)) (cdr path)))

1 0

[climacs-cvs] CVS climacs
by thenriksen 13 Jun '06

13 Jun '06

Update of /project/climacs/cvsroot/climacs In directory clnet:/tmp/cvs-serv29666 Modified Files: gui.lisp Log Message: Added internal option to show line and column number in info-pane, fixed bug in info-pane display code where buffers with long names would cause an error. --- /project/climacs/cvsroot/climacs/gui.lisp 2006/06/12 19:10:58 1.218 +++ /project/climacs/cvsroot/climacs/gui.lisp 2006/06/13 11:34:52 1.219 @@ -63,6 +63,11 @@ (defparameter *with-scrollbars* t "If T, classic look and feel. If NIL, stripped-down look (:") +(defparameter *show-info-pane-mark-position* nil + "If T, show the line number and column number in the info pane + of all panes. If NIL, don't. This is off by default, as finding + the line and column numbers is potentially expensive.") + ;;; Basic command tables follow. The global command table, ;;; `global-climacs-table', inherits from these, so they should not ;;; contain any overly syntax-specific commands. The idea is that it @@ -255,7 +260,8 @@ (buffer (buffer master-pane)) (size (size buffer)) (top (top master-pane)) - (bot (bot master-pane))) + (bot (bot master-pane)) + (point (point master-pane))) (princ " " pane) (with-output-as-presentation (pane buffer 'read-only) (princ (cond @@ -274,7 +280,7 @@ (with-output-as-presentation (pane buffer 'buffer) (format pane "~A" (name buffer))) ;; FIXME: bare 25. - (format pane "~V@T" (- 25 (length (name buffer))))) + (format pane "~V@T" (max (- 25 (length (name buffer))) 1))) (format pane " ~A " (cond ((and (mark= size bot) (mark= 0 top)) @@ -286,6 +292,10 @@ (t (format nil "~a%" (round (* 100 (/ (offset top) size))))))) + (when *show-info-pane-mark-position* + (format pane "(~A,~A) " + (1+ (line-number point)) + (column-number point))) (with-text-family (pane :sans-serif) (princ #\( pane) (princ (name-for-info-pane (syntax buffer) :pane (master-pane pane)) pane)

1 0

← Newer
1
...
18
19
20
21
22
23
24
...
85
Older →

Jump to page:

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

2004

climacs-cvs