From 073c3dbb8aba6dce8b7e6a1d38a31cb23fba1105 Mon Sep 17 00:00:00 2001 From: Ivan Malison Date: Fri, 30 Sep 2016 17:48:25 -0700 Subject: [PATCH] [Emacs] Add copyq-sync function --- dotfiles/emacs.d/load.d/copyq.el | 11 +++++++++++ 1 file changed, 11 insertions(+) create mode 100644 dotfiles/emacs.d/load.d/copyq.el diff --git a/dotfiles/emacs.d/load.d/copyq.el b/dotfiles/emacs.d/load.d/copyq.el new file mode 100644 index 00000000..e0809500 --- /dev/null +++ b/dotfiles/emacs.d/load.d/copyq.el @@ -0,0 +1,11 @@ +(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))))