[gsharp-cvs] CVS gsharp

[crhodes]

Update of /project/gsharp/cvsroot/gsharp
In directory clnet:/tmp/cvs-serv5529

Modified Files:
	gui.lisp modes.lisp 
Log Message:
Movement by measure, bound to M-C-f and M-C-b.


--- /project/gsharp/cvsroot/gsharp/gui.lisp	2006/05/14 07:51:27	1.60
+++ /project/gsharp/cvsroot/gsharp/gui.lisp	2006/05/22 13:39:30	1.61
@@ -842,6 +842,22 @@
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;;;
+;;; motion by measure
+
+(define-gsharp-command com-forward-measure ((count 'integer :prompt "Number of Measures"))
+  (let ((cursor (current-cursor)))
+    (loop repeat count do
+          (loop do (forward-element cursor) 
+                until (end-of-bar-p cursor))))
+
+(define-gsharp-command com-backward-measure ((count 'integer :prompt "Number of Measures"))
+  (let ((cursor (current-cursor)))
+    (loop repeat count do
+          (loop do (backward-element cursor) 
+                until (beginning-of-bar-p cursor))))
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;;
 ;;; delete commands
 
 (defun go-to-beginning-of-bar (cursor)
--- /project/gsharp/cvsroot/gsharp/modes.lisp	2006/05/14 07:49:55	1.12
+++ /project/gsharp/cvsroot/gsharp/modes.lisp	2006/05/22 13:39:30	1.13
@@ -5,7 +5,10 @@
 
 (set-key `(com-forward-element ,*numeric-argument-marker*) 'global-gsharp-table '((#\f :control)))
 (set-key `(com-backward-element ,*numeric-argument-marker*) 'global-gsharp-table '((#\b :control)))
+(set-key `(com-forward-measure ,*numeric-argument-marker*) 'global-gsharp-table '((#\f :control :meta)))
+(set-key `(com-backward-measure ,*numeric-argument-marker*) 'global-gsharp-table '((#\b :control :meta)))
 (set-key `(com-delete-element ,*numeric-argument-marker*) 'global-gsharp-table '((#\d :control)))
+
 (set-key 'com-insert-measure-bar 'global-gsharp-table '(#\|))
 (set-key 'com-erase-element 'global-gsharp-table '((#\h :control)))