app/clip.lisp


1
2
3
4
5
6
7
8
9
10
11
12
13

;;;; clip.lisp

(in-package :oneliners.cli.app)

(defhandler clip/handler (id . args)
  (ol:run-item (parse-identifier id) args :force-clip t))

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