Changeset b950088 for examples

Timestamp:

Jun 29, 2002, 11:55:06 AM (22 years ago)

Author:

Erik Nygren <nygren@mit.edu>

Branches:

master, barnowl_perlaim, debian, owl, release-1.10, release-1.4, release-1.5, release-1.6, release-1.7, release-1.8, release-1.9

Children:

855ebe7

Parents:

61d27fb

Message:

* Added --no-move option to delete command.
        In particular, delete-and-always-move-down may now
	be implemented with
	'( delete --no-move ; next --skip-deleted )'.
* Folded the nextmsg and prevmsg commands and functions together into
        one command which takes arguments.
	Added '--filter <name>' option (eg, for next_personal),
	'--skip-deleted' option, and
	'--last-if-none'/'--first-if-none' options.
	Help updated accordingly.
	In particular, the 'personal' view is now used
	for 'next personal'.
* Updated examples/owlconf.erik with the above.

File:

• examples/owlconf.erik (modified) (2 diffs)

examples/owlconf.erik

@@ -1 +1 @@
 ### The owlconf config file   -*- perl -*-  
 ###  $Id$
+
+### !!!!!WARNING!!!!! !!!!!WARNING!!!!! !!!!!WARNING!!!!! !!!!!WARNING!!!!!
+### This is an example file intended to demonstrate how to use 
+### various features of owl.  Some of the key bindings, in particular,
+### are more for examples than things you may actually want to use.
+### Make sure to read through it first and understand it before just using it.
+### Don't blame me if anything in here ends up vaporizing your dog.
+### !!!!!WARNING!!!!! !!!!!WARNING!!!!! !!!!!WARNING!!!!! !!!!!WARNING!!!!!
+
 ###
 ### This file is interpreted by the perl interpreter.
@@ -77 +86 @@
     owl::command("alias zc zwrite -c");
 
+    # Send zephyrs with "C-c C-c".  
+    # Note that this will cause "C-c" to not work...
     owl::command("bindkey editmulti \"C-c C-c\" command editmulti:done");
+
+    # Make "d" ignore current movement direction
+    owl::command("bindkey recv d command ( delete --no-move ; next --skip-deleted )");
+
+    # Useful keys for reading and deleting by class/instance
     owl::command("bindkey recv M-k command ( smartnarrow ; delete view )");
     owl::command("bindkey recv M-l command ( expunge ; view all )");
     owl::command("bindkey recv M-K command ( smartnarrow ; delete view ; expunge ; view all )");
+
+    # Make 'M-s' insert a <scritchscritchscritch> sequence with a random
+    # number of scritches.
     owl::command(q(bindkey edit M-s command perl owl::command("edit:insert-text <".("scritch"x int(1+rand(5))).">")));