From de9b7a842d29301dd0e06c7ecf60023d171a9e08 Mon Sep 17 00:00:00 2001
From: Mattias Andrée <maandree@operamail.com>
Date: Sun, 28 Oct 2012 19:27:19 +0100
Subject: example completeion

---
 example | 59 +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 59 insertions(+)
 create mode 100644 example

(limited to 'example')

diff --git a/example b/example
new file mode 100644
index 0000000..37a7c1e
--- /dev/null
+++ b/example
@@ -0,0 +1,59 @@
+(completion ponysay
+
+	(multiple unargumented
+		((options -h --help)                                  (complete --help)        (desc 'Show summary of options'))
+		((options -v --version)                               (complete --version)     (desc 'Show version of program'))
+		((options -c --compress)                              (complete --compress)    (desc 'Compress message'))
+		((options -l --list)                                  (complete --list)        (desc 'List all MLP:FiM ponies'))
+		((options -L --altlist --symlist)                     (complete --symlist)     (desc 'List all MLP:FiM ponies, with symlink mapping'))
+		((options +l ++list)                                  (complete ++list)        (desc 'List all non-MLP:FiM ponies'))
+		((options +K ++altlist ++symlist)                     (complete ++symlist)     (desc 'List all non-MLP:FiM ponies, with symlink mapping'))
+		((options -A --all)                                   (complete --all)         (desc 'List all ponies'))
+		((options +A ++all --altall --symall)                 (complete --symall)      (desc 'List all ponies, with symlink mapping'))
+		((options -b --bubblelist --balloonlist)              (complete --balloonlist) (desc 'List all balloon styles'))
+		((options -o --pony-only --ponyonly)                  (complete --pony-only)   (desc 'Print just the pony'))
+		((options -X --256-colours --256colours --x-colours)                           (desc 'Use xterm colours'))
+		((options -V --tty-colours --ttycolours --vt-colours)                          (desc 'Use linux vt colours'))
+		((options -K --kms-colours --kmscolours)                                       (desc 'Utilise kms support'))
+	)
+	
+	(multiple argumented
+		((options -f --file --pony)                 (arg PONY)        (complete --file --pony) (suggest pony-f)  (desc 'Specify the pony that should printed'))
+		((options +f ++file ++pony)                 (arg PONY)        (complete ++file ++pony) (suggest pony+f)  (desc 'Specify the extrapony that should printed'))
+		((options -q --quote)                       (arg PONY)        (complete --quote)       (suggest pony-q)  (desc 'Specify the pony that should quote herself'))
+		((options -b --bubble --balloon)            (arg STYLE)       (complete --balloon)     (suggest balloon) (desc 'Specify message balloon style'))
+		((options -W --wrap)                        (arg COLUMN)      (complete --wrap)        (suggest wrap)    (desc 'Specify wrapping column'))
+		((options +c --colour)                      (arg ANSI-COLOUR) (complete --colour)                        (desc 'Specify colour of the balloon, balloon link and message'))
+		((options --colour-bubble --colour-balloon) (arg ANSI-COLOUR)                                            (desc 'Specify colour of the balloon'))
+		((options --colour-link)                    (arg ANSI-COLOUR)                                            (desc 'Specify colour of the balloon link'))
+		((options --colour-msg --colour-message)    (arg ANSI-COLOUR)                                            (desc 'Specify colour of the message'))
+		((options --colour-pony)                    (arg ANSI-COLOUR)                                            (desc 'Specify colour of the pony (if uncoloured)'))
+		((options --colour-wrap --colour-hyphen)    (arg ANSI-COLOUR)                                            (desc 'Specify addition colour of wrapping hyphen'))
+	)
+	
+	; `bind` copies everything that is missing except `options` and `suggest`
+	(variadic (options --f --files --ponies) (bind -f) (desc 'Specify the ponies that may be printed'))
+	(variadic (options ++f ++files ++ponies) (bind +f) (desc 'Specify the extraponies that may be printed'))
+	(variadic (options --q --quotes)         (bind -q) (desc 'Specify the pony that may quote themself'))
+	
+	(suggestion pony-f  (exec "'/usr/bin/ponysay'" --onelist)
+	                    (no-exec ls "'/usr/share/ponysay/ponies'" .pony)
+	)
+	(suggestion pony+f  (exec "'/usr/bin/ponysay'" ++onelist)
+		    	    (no-exec ls "'/usr/share/ponysay/extraponies'" .pony)
+	)
+	(suggestion pony-q  (exec "'/usr/bin/ponysay'" --quoters)
+		    	    (no-exec ls "'/usr/share/ponysay/ponies'" .pony)
+	)
+	(suggestion balloon (exec "'/usr/bin/ponysay'" --balloonlist)
+		    	    (no-exec ls "'/usr/share/ponysay/balloons'") (case (ponysay .say) (ponythink .think))
+	)
+	(suggestion wrap    (verbatim none inhertit 100 60)
+		    	    (calc (pipe (stty size)
+			    	  	(cut -d ' ' -f 2)
+				  ) - 10
+			    )
+	)
+	; in addition to `pipe` to following are also possible `fullpipe` `exec` `cat` `and` `or`
+)
+
-- 
cgit v1.2.3-70-g09d2