[Emacs] Remove old copyq.el file

This commit is contained in:
Ivan Malison 2016-10-18 14:48:12 -07:00
parent 251ae7c60a
commit d799d94edf
No known key found for this signature in database
GPG Key ID: 62530EFBE99DC2F8

View File

@ -1,11 +0,0 @@
(defun imalison:copyq-get (i)
(imalison:shell-command-to-string (format "copyq eval read(%s)" i)))
(defun imalison:copyq-sync ()
(interactive)
(let ((missing-items (cl-loop for i from 0 to (string-to-int
(imalison:shell-command-to-string "copyq eval size()"))
for item = (imalison:copyq-get i)
when (not (member item kill-ring))
collect item)))
(setq kill-ring (nconc kill-ring missing-items))))