# HG changeset patch
# User Steve Losh <steve@stevelosh.com>
# Date 1526766141 14400
# Node ID 2f0928adebb9411483bac4723d57a5bd40011213
# Parent  a537826e314128f9fff9bf0f3b4d6e7d85876aa6
Add `exit` support

diff -r a537826e3141 -r 2f0928adebb9 src/main.lisp
--- a/src/main.lisp	Thu May 10 22:02:42 2018 -0400
+++ b/src/main.lisp	Sat May 19 17:42:21 2018 -0400
@@ -27,6 +27,14 @@
   (setf *pos* (clamp 0 (1- (length *urls*))
                      (+ *pos* delta))))
 
+(defun quit (&optional code)
+  #+sbcl (sb-ext:exit :code code)
+  #+ccl (ccl:quit code)
+  #+abcl (ext:quit :status code)
+  #+ecl (ext:quit code)
+  #-(or ccl sbcl ecl abcl)
+  (error "QUIT not supported on this implementation"))
+
 
 ;;;; Actions ------------------------------------------------------------------
 (defclass* (action :conc-name "") ()
@@ -40,13 +48,15 @@
 (defmacro define-action (keys program &key
                          (url 'url)
                          (arguments `(list ,url))
+                         exit
                          tty)
   `(create-action
      (lambda (,url)
        (external-program:run ,program ,arguments
                              ,@(if tty
                                  '(:output t :input t)
-                                 '())))
+                                 '()))
+       (when ,exit (quit)))
      ,keys
      ,tty))