From 36940e41b9ae155a8c6a7ab74e2f07e94bc72961 Mon Sep 17 00:00:00 2001
From: Raphael Roberts <raphael.roberts48@gmail.com>
Date: Fri, 22 Nov 2019 03:24:44 -0600
Subject: [PATCH] Working towards making windows clipboard manager work

---
 settings.org | 12 ++++++++++++
 1 file changed, 12 insertions(+)

diff --git a/settings.org b/settings.org
index 6edcea1..1971b7e 100644
--- a/settings.org
+++ b/settings.org
@@ -695,7 +695,19 @@ put executables in elpy-rpc-venv in path
 ** Browse kill ring settings
 #+BEGIN_SRC emacs-lisp
   (use-package browse-kill-ring
+    :defer nil
+    :bind
+    (:map browse-kill-ring-mode-map
+	  ("c" . rlbr/update-sys-clipboard-move-to-top))
     :config
+    (defun rlbr/update-sys-clipboard-move-to-top (&optional quit)
+      "Move the entry to the front." (interactive "P")
+      (let ((buf (current-buffer))
+	    (pt (point)))
+	(let ((str (browse-kill-ring-current-string buf pt)))
+	  (browse-kill-ring-delete)
+	  (kill-new str)))
+      (unless quit (browse-kill-ring-update)))
     (browse-kill-ring-default-keybindings))
 #+END_SRC
 ** Clipmon settings