Added keyboard shortcut for listing all matches in a search tab.
Sun Feb 17 08:10:07 PST 2008 Thomas Persson <tompa.persson@gmail.com>
* Added keyboard shortcut for listing all matches in a search tab.
Warning: CRC errors found. These are probably harmless but should be repaired.
See 'darcs gzcrcs --help' for more information.
diff -rN -u old-climplayer/README new-climplayer/README
--- old-climplayer/README 2014-08-01 00:50:22.000000000 -0700
+++ new-climplayer/README 2014-08-01 00:50:22.000000000 -0700
@@ -65,6 +65,10 @@
Makes the currently visible tab the current playlist.
+* C-l
+
+ If the current tab is a search tab, toggle listing all matches.
+
* C-RET
Stop
diff -rN -u old-climplayer/gui.lisp new-climplayer/gui.lisp
--- old-climplayer/gui.lisp 2014-08-01 00:50:22.000000000 -0700
+++ new-climplayer/gui.lisp 2014-08-01 00:50:22.000000000 -0700
@@ -1257,7 +1257,8 @@
0
0)))))
-(define-climplayer-command (com-show-all) ()
+(define-climplayer-command (com-list-all :keystroke (#\l :control))
+ ()
(let ((enabled (tab-layout-enabled-page (find-pane-named *application-frame*
'main-pane))))
(when (typep enabled 'search-page)
@@ -1282,7 +1283,7 @@
((or (not matching)
(= n 0))
(if matching
- (with-output-as-presentation (pane `(com-show-all) 'command )
+ (with-output-as-presentation (pane `(com-list-all) 'command )
(format pane "~%~A more matches"
(length matching)))))
(let* ((node (car matching)))