about summary refs log tree commit diff
diff options
context:
space:
mode:
authorWilliam Carroll <wpcarro@gmail.com>2020-01-15T19·53+0000
committerWilliam Carroll <wpcarro@gmail.com>2020-01-17T10·56+0000
commitdf4eed20f4c0ff3a96702448b021f263891a3ea5 (patch)
treefcc1f33576fef97f662d91bd49bafc76f571b7ca
parentf7047099e1658785c993c7174a8ed12cc538905c (diff)
Drop support for clipmon.el
I prefer cdown/clipmenu. Forthcoming is an ivy/counsel (I never know which word
to use) client for clipmenud!
-rw-r--r--configs/shared/.emacs.d/wpc/clipboard.el44
1 files changed, 0 insertions, 44 deletions
diff --git a/configs/shared/.emacs.d/wpc/clipboard.el b/configs/shared/.emacs.d/wpc/clipboard.el
index 975e06c5064f..f014c253cf8a 100644
--- a/configs/shared/.emacs.d/wpc/clipboard.el
+++ b/configs/shared/.emacs.d/wpc/clipboard.el
@@ -13,28 +13,9 @@
 ;;; Code:
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-;; Dependencies
-;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-
-(require 'bytes)
-
-;; autoinsert feature feels unappealing at first attempt.
-(use-package clipmon
-  :config
-  ;; If this is too large, it could be set machine-dependently, so use
-  ;; `clipboard/print-clipboard-size' to help troubleshoot this if it becomes
-  ;; problematic.
-  (setq kill-ring-max 500)
-  (add-to-list 'after-init-hook #'clipmon-mode-start)
-  (clipmon-mode 1))
-
-;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;; Library
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 
-(defvar clipboard/install-kbds? t
-  "When t, install keybindings.")
-
 (defun clipboard/copy (x)
   "Copy string, X, to X11's clipboard."
   (kill-new x)
@@ -45,30 +26,5 @@
   (yank)
   (message "Pasted!"))
 
-(defun clipboard/print-clipboard-size ()
-  "Message the size (in Bytes) of `kill-ring'."
-  (interactive)
-  (->> (clipmon-kill-ring-total)
-       bytes/to-string
-       message))
-
-(defun clipboard/ivy-select ()
-  "Use counsel to copy the selected entry to the system clipboard.
-NOTE: A function, `counsel-yank-pop', exists that does something similar.
-  However instead of copying the entry to the system clipboard, it inserts it
-  where the current point is."
-  (interactive)
-  (ivy-read "kill-ring: " (counsel--yank-pop-kills)
-            :require-match t
-            :action #'clipboard/copy))
-
-;; TODO: Support ivy-actions to insert into an Emacs buffer when an Emacs buffer
-;; was the last active buffer.  However, if an X window is the last buffer,
-;; maybe use xdotool to insert the selected entry.  This would be a bit of a
-;; DWIM command.
-(when clipboard/install-kbds?
-  (exwm-input-set-key
-   (kbd "C-M-v") #'clipboard/ivy-select))
-
 (provide 'clipboard)
 ;;; clipboard.el ends here