December 2007 - climacs-cvs@common-lisp.net

[climacs-cvs] CVS climacs
by thenriksen 28 Dec '07

28 Dec '07

Update of /project/climacs/cvsroot/climacs In directory clnet:/tmp/cvs-serv12985 Modified Files: core.lisp Log Message: Fixed finding of files while the current window is a typeout pane. --- /project/climacs/cvsroot/climacs/core.lisp 2007/12/13 19:28:16 1.20 +++ /project/climacs/cvsroot/climacs/core.lisp 2007/12/28 15:39:49 1.21 @@ -331,22 +331,27 @@ (return-from find-file-impl nil))) (let* ((buffer (if (probe-file filepath) (with-open-file (stream filepath :direction :input) - (make-buffer-from-stream stream)) - (make-new-buffer))) + (make-buffer-from-stream stream)) + (make-new-buffer))) (view (make-new-view-for-climacs *esa-instance* 'textual-drei-syntax-view :name (filepath-filename filepath) :buffer buffer))) + (unless (buffer-pane-p (current-window)) + (other-window (or (find-if #'(lambda (window) + (typep window 'climacs-pane)) + (windows *esa-instance*)) + (split-window t)))) (setf (offset (point buffer)) (offset (point view)) - (current-view) view (syntax view) (make-syntax-for-view view (syntax-class-name-for-filepath filepath)) (file-write-time buffer) (file-write-date filepath) (needs-saving buffer) nil (name buffer) (filepath-filename filepath)) + (setf (current-view (current-window)) view) (evaluate-attribute-line view) (setf (filepath buffer) filepath (read-only-p buffer) readonlyp) - (beginning-of-buffer (point)) + (beginning-of-buffer (point view)) buffer))))))) (defmethod frame-find-file ((application-frame climacs) filepath)

1 0

[climacs-cvs] CVS climacs
by thenriksen 27 Dec '07

27 Dec '07

Update of /project/climacs/cvsroot/climacs In directory clnet:/tmp/cvs-serv28778 Modified Files: gui.lisp Log Message: The current buffer is now NIL if no the current window is not a buffer-pane. --- /project/climacs/cvsroot/climacs/gui.lisp 2007/12/27 16:27:47 1.246 +++ /project/climacs/cvsroot/climacs/gui.lisp 2007/12/27 16:34:08 1.247 @@ -307,7 +307,8 @@ (views climacs))))) (defmethod esa-current-buffer ((application-frame climacs)) - (buffer (current-view (esa-current-window application-frame)))) + (when (buffer-pane-p (esa-current-window application-frame)) + (buffer (current-view (esa-current-window application-frame))))) (defmethod (setf esa-current-buffer) ((new-buffer climacs-buffer) (application-frame climacs))

1 0

[climacs-cvs] CVS climacs
by thenriksen 27 Dec '07

27 Dec '07

Update of /project/climacs/cvsroot/climacs In directory clnet:/tmp/cvs-serv28279 Modified Files: window-commands.lisp Log Message: Fixed left- and right-clicking on Climacs panes (I think). --- /project/climacs/cvsroot/climacs/window-commands.lisp 2007/12/19 11:02:22 1.15 +++ /project/climacs/cvsroot/climacs/window-commands.lisp 2007/12/27 16:28:08 1.16 @@ -113,7 +113,7 @@ ((window 'pane) (x 'integer) (y 'integer)) (when (and (buffer-pane-p window) (eq window (current-window))) - (setf (offset (mark window)) + (setf (offset (mark (view window))) (click-to-offset window x y)) (drei-commands::com-exchange-point-and-mark) (drei-commands::com-copy-region))) @@ -129,7 +129,7 @@ ((window 'pane) (x 'integer) (y 'integer)) (when (buffer-pane-p window) (other-window window) - (setf (offset (point window)) + (setf (offset (point (view window))) (click-to-offset window x y)) (drei-commands::com-yank)))

1 0

[climacs-cvs] CVS climacs
by thenriksen 27 Dec '07

27 Dec '07

Update of /project/climacs/cvsroot/climacs In directory clnet:/tmp/cvs-serv28241 Modified Files: gui.lisp Log Message: A pane is now only a buffer pane if its view is a buffer-view. --- /project/climacs/cvsroot/climacs/gui.lisp 2007/12/15 07:22:50 1.245 +++ /project/climacs/cvsroot/climacs/gui.lisp 2007/12/27 16:27:47 1.246 @@ -152,7 +152,7 @@ nil) (defmethod buffer-pane-p ((pane climacs-pane)) - t) + (typep (view pane) 'drei-buffer-view)) (defmethod in-focus-p ((pane climacs-pane)) (eq pane (first (windows *application-frame*))))

1 0

[climacs-cvs] CVS climacs
by thenriksen 27 Dec '07

27 Dec '07

Update of /project/climacs/cvsroot/climacs In directory clnet:/tmp/cvs-serv28151 Modified Files: climacs-lisp-syntax.lisp Log Message: Fixed goto-location function in Lisp syntax. --- /project/climacs/cvsroot/climacs/climacs-lisp-syntax.lisp 2007/12/11 18:46:53 1.7 +++ /project/climacs/cvsroot/climacs/climacs-lisp-syntax.lisp 2007/12/27 16:27:25 1.8 @@ -237,13 +237,14 @@ (let ((view (find (file-name location) (views *application-frame*) :test #'string= :key #'(lambda (view) - (let ((path (filepath view))) - (when path - (namestring path))))))) + (when (typep view 'drei-buffer-view) + (let ((path (filepath (buffer view)))) + (when path + (namestring path)))))))) (if view (climacs-core:switch-to-view (current-window) view) (find-file (file-name location))) - (goto-position (point (current-window)) + (goto-position (point (current-view)) (char-position (source-position location))))) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

1 0

[climacs-cvs] CVS climacs
by thenriksen 21 Dec '07

21 Dec '07

Update of /project/climacs/cvsroot/climacs In directory clnet:/tmp/cvs-serv19718 Modified Files: java-syntax-commands.lisp Log Message: Fixed undeclared variable error for a Java syntax command. --- /project/climacs/cvsroot/climacs/java-syntax-commands.lisp 2007/12/08 08:55:06 1.3 +++ /project/climacs/cvsroot/climacs/java-syntax-commands.lisp 2007/12/21 11:22:50 1.4 @@ -67,10 +67,10 @@ (make-buffer-mark (current-buffer) offset2 :right) #'(lambda (mark) (syntax-line-indentation - mark (tab-space-count (current-view)) syntax)) + mark (tab-space-count (current-view)) (current-syntax))) fill-column (tab-space-count (current-view)) - syntax + (current-syntax) t))))) (define-command (com-indent-expression :name t :command-table java-table) @@ -131,4 +131,4 @@ (set-key `(com-transpose-expressions) 'java-table - '((#\t :control :meta))) \ No newline at end of file + '((#\t :control :meta)))

1 0

[climacs-cvs] CVS climacs
by thenriksen 19 Dec '07

19 Dec '07

Update of /project/climacs/cvsroot/climacs In directory clnet:/tmp/cvs-serv29549 Modified Files: window-commands.lisp Log Message: *numeric-argument-marker* is now equivalent to *numeric-argument-p*, so use that instead. --- /project/climacs/cvsroot/climacs/window-commands.lisp 2007/12/15 10:17:11 1.14 +++ /project/climacs/cvsroot/climacs/window-commands.lisp 2007/12/19 11:02:22 1.15 @@ -51,7 +51,7 @@ ((clone-current-view 'boolean :default nil)) (split-window-maybe-cloning t clone-current-view)) -(set-key `(com-split-window-vertically ,*numeric-argument-p*) +(set-key `(com-split-window-vertically ,*numeric-argument-marker*) 'window-table '((#\x :control) (#\2))) @@ -60,7 +60,7 @@ ((clone-current-view 'boolean :default nil)) (split-window-maybe-cloning nil clone-current-view)) -(set-key `(com-split-window-horizontally ,*numeric-argument-p*) +(set-key `(com-split-window-horizontally ,*numeric-argument-marker*) 'window-table '((#\x :control) (#\3)))

1 0

[climacs-cvs] CVS climacs
by thenriksen 15 Dec '07

15 Dec '07

Update of /project/climacs/cvsroot/climacs In directory clnet:/tmp/cvs-serv25934 Modified Files: window-commands.lisp text-syntax.lisp search-commands.lisp misc-commands.lisp Log Message: Added my copyright statement to a bunch of files. --- /project/climacs/cvsroot/climacs/window-commands.lisp 2007/12/10 21:31:09 1.13 +++ /project/climacs/cvsroot/climacs/window-commands.lisp 2007/12/15 10:17:11 1.14 @@ -8,6 +8,8 @@ ;;; Matthieu Villeneuve (matthieu.villeneuve(a)free.fr) ;;; (c) copyright 2005 by ;;; Aleksandar Bakic (a_bakic(a)yahoo.com) +;;; (c) copyright 2007 by +;;; Troels Henriksen (athas(a)sigkill.dk) ;;; This library is free software; you can redistribute it and/or ;;; modify it under the terms of the GNU Library General Public --- /project/climacs/cvsroot/climacs/text-syntax.lisp 2007/12/08 08:55:06 1.14 +++ /project/climacs/cvsroot/climacs/text-syntax.lisp 2007/12/15 10:17:11 1.15 @@ -4,6 +4,8 @@ ;;; Robert Strandh (strandh(a)labri.fr) ;;; (c) copyright 2005 by ;;; Matthieu Villeneuve (matthieu.villeneuve(a)free.fr) +;;; (c) copyright 2007 by +;;; Troels Henriksen (athas(a)sigkill.dk) ;;; This library is free software; you can redistribute it and/or ;;; modify it under the terms of the GNU Library General Public --- /project/climacs/cvsroot/climacs/search-commands.lisp 2007/12/08 08:55:06 1.17 +++ /project/climacs/cvsroot/climacs/search-commands.lisp 2007/12/15 10:17:11 1.18 @@ -8,6 +8,8 @@ ;;; Matthieu Villeneuve (matthieu.villeneuve(a)free.fr) ;;; (c) copyright 2005 by ;;; Aleksandar Bakic (a_bakic(a)yahoo.com) +;;; (c) copyright 2007 by +;;; Troels Henriksen (athas(a)sigkill.dk) ;;; This library is free software; you can redistribute it and/or ;;; modify it under the terms of the GNU Library General Public --- /project/climacs/cvsroot/climacs/misc-commands.lisp 2007/12/08 08:55:06 1.29 +++ /project/climacs/cvsroot/climacs/misc-commands.lisp 2007/12/15 10:17:11 1.30 @@ -8,6 +8,8 @@ ;;; Matthieu Villeneuve (matthieu.villeneuve(a)free.fr) ;;; (c) copyright 2005 by ;;; Aleksandar Bakic (a_bakic(a)yahoo.com) +;;; (c) copyright 2007 by +;;; Troels Henriksen (athas(a)sigkill.dk) ;;; This library is free software; you can redistribute it and/or ;;; modify it under the terms of the GNU Library General Public

1 0

[climacs-cvs] CVS climacs
by rstrandh 15 Dec '07

15 Dec '07

Update of /project/climacs/cvsroot/climacs In directory clnet:/tmp/cvs-serv27849 Modified Files: gui.lisp Log Message: Fixed a double negative. --- /project/climacs/cvsroot/climacs/gui.lisp 2007/12/13 08:57:08 1.244 +++ /project/climacs/cvsroot/climacs/gui.lisp 2007/12/15 07:22:50 1.245 @@ -405,7 +405,7 @@ "Return some view, any view, preferable one that is not currently displayed in any window." (or (find-if-not #'(lambda (view) - (not (view-on-display *esa-instance* view))) + (view-on-display *esa-instance* view)) (views *esa-instance*)) (any-view)))

1 0

[climacs-cvs] CVS climacs
by thenriksen 13 Dec '07

13 Dec '07

Update of /project/climacs/cvsroot/climacs In directory clnet:/tmp/cvs-serv328 Modified Files: core.lisp Log Message: Set the name of a buffer to the name of the file. In general, "buffer names" are pretty informally handled everywhere. At least they're no longer all called *scratch*, though. --- /project/climacs/cvsroot/climacs/core.lisp 2007/12/13 19:09:39 1.19 +++ /project/climacs/cvsroot/climacs/core.lisp 2007/12/13 19:28:16 1.20 @@ -341,7 +341,8 @@ (current-view) view (syntax view) (make-syntax-for-view view (syntax-class-name-for-filepath filepath)) (file-write-time buffer) (file-write-date filepath) - (needs-saving buffer) nil) + (needs-saving buffer) nil + (name buffer) (filepath-filename filepath)) (evaluate-attribute-line view) (setf (filepath buffer) filepath (read-only-p buffer) readonlyp)

1 0