climacs-cvs

climacs-cvs@common-lisp.net

847 discussions

[climacs-cvs] CVS climacs
by crhodes 04 Jan '08

04 Jan '08

Update of /project/climacs/cvsroot/climacs In directory clnet:/tmp/cvs-serv25939 Modified Files: core.lisp Log Message: Be more careful about file-write-date; new sbcls will error if the file is not present. --- /project/climacs/cvsroot/climacs/core.lisp 2007/12/28 15:39:49 1.21 +++ /project/climacs/cvsroot/climacs/core.lisp 2008/01/04 11:14:08 1.22 @@ -329,10 +329,11 @@ (beep) (display-message "No such file: ~A" filepath) (return-from find-file-impl nil))) - (let* ((buffer (if (probe-file filepath) + (let* ((newp (not (probe-file filepath))) + (buffer (if newp + (make-new-buffer) (with-open-file (stream filepath :direction :input) - (make-buffer-from-stream stream)) - (make-new-buffer))) + (make-buffer-from-stream stream)))) (view (make-new-view-for-climacs *esa-instance* 'textual-drei-syntax-view :name (filepath-filename filepath) @@ -344,7 +345,7 @@ (split-window t)))) (setf (offset (point buffer)) (offset (point view)) (syntax view) (make-syntax-for-view view (syntax-class-name-for-filepath filepath)) - (file-write-time buffer) (file-write-date filepath) + (file-write-time buffer) (if newp (get-universal-time) (file-write-date filepath)) (needs-saving buffer) nil (name buffer) (filepath-filename filepath)) (setf (current-view (current-window)) view)

1 0

[climacs-cvs] CVS climacs
by thenriksen 03 Jan '08

03 Jan '08

Update of /project/climacs/cvsroot/climacs In directory clnet:/tmp/cvs-serv20125 Modified Files: climacs.asd Log Message: Disable syntaxes that do not yet work with the new redisplay engine. --- /project/climacs/cvsroot/climacs/climacs.asd 2007/12/08 08:55:06 1.62 +++ /project/climacs/cvsroot/climacs/climacs.asd 2008/01/03 17:00:24 1.63 @@ -41,10 +41,10 @@ ;; (:file "ttcn3-syntax" :depends-on ("packages")) (:file "climacs-lisp-syntax" :depends-on ("core" "groups")) (:file "climacs-lisp-syntax-commands" :depends-on ("climacs-lisp-syntax" "misc-commands")) - (:file "c-syntax" :depends-on ("core")) - (:file "c-syntax-commands" :depends-on ("c-syntax" "misc-commands")) - (:file "java-syntax" :depends-on ("core")) - (:file "java-syntax-commands" :depends-on ("java-syntax" "misc-commands")) + #+nil(:file "c-syntax" :depends-on ("core")) + #+nil(:file "c-syntax-commands" :depends-on ("c-syntax" "misc-commands")) + #+nil(:file "java-syntax" :depends-on ("core")) + #+nil(:file "java-syntax-commands" :depends-on ("java-syntax" "misc-commands")) (:file "gui" :depends-on ("packages")) (:file "core" :depends-on ("gui")) (:file "io" :depends-on ("packages" "gui"))

1 0

[climacs-cvs] CVS climacs
by thenriksen 01 Jan '08

01 Jan '08

Update of /project/climacs/cvsroot/climacs In directory clnet:/tmp/cvs-serv16766 Modified Files: gui.lisp Log Message: Climacs panes should no longer use incremental redisplay, Drei does not like it. --- /project/climacs/cvsroot/climacs/gui.lisp 2007/12/27 16:34:08 1.247 +++ /project/climacs/cvsroot/climacs/gui.lisp 2008/01/01 21:18:48 1.248 @@ -56,6 +56,7 @@ (:default-initargs :view (make-instance 'textual-drei-syntax-view :buffer (make-instance 'climacs-buffer)) + :display-time :command-loop :width 900 :height 400)) (defmethod command-table ((pane climacs-pane))

1 0

[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

← Newer
1
...
4
5
6
7
8
9
10
...
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