#!/bin/sh
exec rep "$0" "$@"
!#;; Source file: sawfish-client.jl
(validate-byte-code 11 1)

(require (quote sawfish.client))
(%define current-repl (run-byte-code "v" [make-fluid] 1))
(defun usage #["@
v" [write standard-output "usage: sawfish-client OPTIONS...

where OPTIONS are any of:

        --display X     Connect to the window manager on display X
        -q              Be quiet (perform commands asynchronously)
        -f FUNCTION     Call Lisp function FUNCTION on the server
        -c COMMAND      Call the interactive Lisp function COMMAND
        -r FEATURE      Require the module called FEATURE
        -e FORM         Evaluate Lisp form FORM on the server
        -               Read lines of input until EOF, evaluating each
                         one as it is read
        --              Read forms from standard input until EOF, evaluating
                         the whole lot in one go (inside a progn)
"] 3])
(defun exit #["0 tv" [quit] 1048578])
(defun main #["J
 J
DF0  	EH	 #H	HIDUDI0C0@ 6	D1]L
` MJ(M1 8L` [M1 8L` xM x 
	IK	H1 8L` M  
	IKKIKK	H1 8L` M  
	IKKIKK	H1 8L` M  
		H1 8L`	H	H@	H	DU8D@
H I!8	%\"'#$8		DF2%&'()*8IKKIKKIKKK+,-./*IKKIKKK0KKIKKK1KKIKKKIKKK	DF3L(8H@M
H8EEEEEEHM1 8L2`3D245@
H 
678	9		HM1E 8:@;LH:@<
H	EH	v" [get-command-line-option "-display" "--display" sawfish-client-display "--help" usage exit #["08 
 	v@ J

H@

v" [sawfish-client-eval-async write standard-output sawfish-client-eval] 1048581] command-line-args ("-") "-q" "-d" "-f" read-from-string "-c" call-command quote "-r" require "-e" "-" rep.io.readline rep.util.repl format standard-output "sawfish-client %s.
" sawfish-client-eval sawfish-version (progn (require (quote rep.util.repl)) (define-repl-command (quote quit) (lambda () (throw (quote sawfish-client-exit)))) (make-repl (quote user))) current-repl write "
Enter `,help' to list commands.
" readline repl-pending "" "client > " repl-struct progn (require (quote rep.util.repl)) let* (standard-output (make-string-output-stream)) (standard-error standard-output) r cons catch (quote sawfish-client-exit) and repl-iterate (r) ((get-output-stream-string standard-output)) "--" make-string-output-stream copy-stream standard-input concat "(progn" get-output-stream-string ")" standard-error "sawfish-client: unknown option `%s'
" "Try `sawfish-client --help' for more information.
"] 4201487])
(defun rl-completion-generator #["0BIKK IKKIKKK	v" [sawfish-client-eval repl-completions quote current-repl] 1048582])
(run-byte-code "v" [main] 1)
