[Emacs] Add copyq-sync function

2016-09-30 17:48:25 -07:00 · 2016-09-30 17:48:25 -07:00 · 073c3dbb8a
commit 073c3dbb8a
parent 11513a19be
1 changed files with 11 additions and 0 deletions
--- a/dotfiles/emacs.d/load.d/copyq.el
+++ 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))))