From d6dee4eb2906b1a845488065066fae7ef6906338 Mon Sep 17 00:00:00 2001
From: Colin Okay <okay@toyful.space>
Date: Tue, 22 Feb 2022 11:39:42 -0600
Subject: supporting forced clipping. defaulting to bash

---
 build-app.lisp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'build-app.lisp')

diff --git a/build-app.lisp b/build-app.lisp
index 8be3639..b0405f5 100644
--- a/build-app.lisp
+++ b/build-app.lisp
@@ -135,7 +135,7 @@ than the users."
                ((getopt :long-name "unlock")
                 (cli::unlock-item hist-number))
                (t
-                (cli::run-item hist-number (rest arguments))))
+                (cli::run-item hist-number (rest arguments) (getopt :long-name "clip"))))
              (uiop:quit))   
            ;; otherwise search for oneliners
            (cli::search-for-oneliners arguments
-- 
cgit v1.2.3