new file mode 100644

@@ -0,0 +1,17 @@

+# A simple clipboard utility

+

+This wraps <https://github.com/Shinmera/buildapp> to provide a handy suite of

+utilities to manage a set of named clipboards.

+

+# Installation

+

+  sbcl --load ~/quicklisp/setup.lisp --eval '(ql:quickload :buildapp)' --eval '(buildapp:build-buildapp)'

+

+  ./buildapp --output ~/bin/multicall/uclip --asdf-tree ~/quicklisp/quicklisp --asdf-path `pwd` --load-system uclip --dispatched-entry ucopy/uclip::copy --dispatched-entry /uclip::paste --dispatched-entry upaste/uclip::paste --dispatched-entry uswitch/uclip::switch-clipboards --dispatched-entry uclipop/uclip::pop-clipboard

+

+  args  -n1  ln -fs multicall/uclip <<EOF

+  ucopy

+  upaste

+  uswitch

+  uclipop

+  EOF

new file mode 100644

@@ -0,0 +1,5 @@

+;;;; package.lisp

+

+(defpackage #:uclip

+  (:use #:cl #:alexandria #:ubiquitous #:anaphora))

+

new file mode 100644

@@ -0,0 +1,13 @@

+;;;; ubiquitous-clipboard.asd

+

+(asdf:defsystem #:uclip

+  :description "Describe uclip here"

+  :author "fiddlerwoaroof <fiddlerwoaroof+uc@gmail.com>"

+  :license "GPL2"

+  :depends-on (#:alexandria

+                #:anaphora

+                #:ubiquitous)

+  :serial t

+  :components ((:file "package")

+               (:file "uclip")))

+

new file mode 100644

@@ -0,0 +1,40 @@

+;;;; uclip.lisp

+

+(in-package #:uclip)

+

+

+

+(defvar *current-clipboard*)

+(defun init ()

+  (restore 'uclip) 

+  (setf *current-clipboard* (defaulted-value "main" 'current-clipboard)))

+

+(defun copy (argv)

+  (init)

+  (push (cond ((null (cdr argv))

+               (apply #'concatenate

+                      (list* 'string

+                             (loop for a := (read-line *standard-input* nil)

+                                   while (not (null a))

+                                   collect (format nil "~a~%" a)))))

+              (t (format nil "~{~a~^ ~}" (cdr argv))))

+        (value 'clipboard *current-clipboard*)))

+

+(defun paste (argv)

+  (declare (ignore argv))

+  (init) 

+  (let ((*current-clipboard*

+          (if (cdr argv) (cadr argv) *current-clipboard*)))

+    (awhen (car (value 'clipboard *current-clipboard*))

+      (format t "~a" it))))

+

+(defun switch-clipboards (argv)

+  (init) 

+  (setf *current-clipboard*

+        (setf (value 'current-clipboard) (cadr argv))))

+

+(defun pop-clipboard (argv)

+  (declare (ignore argv))

+  (init) 

+  (when (value 'clipboard *current-clipboard*)

+    (format t "~a" (pop (value 'clipboard *current-clipboard*)))))