;;;; clip.lisp

(in-package :oneliners.cli.app)

(defun clip/handler (cmd)
  (a:if-let (args (cli:command-arguments cmd))
    (ol::run-item
     (parse-identifier (first args)) (rest args)
     :force-clip t)
    (cli:print-usage-and-exit cmd t)))

(defun clip/command ()
  (cli:make-command
   :name "clip"
   :usage "<IDENTIFIER> [ARG ...]"
   :description "attempt to copy the oneliner to the clipboard"
   :handler #'clip/handler))