summary refs log tree commit diff
path: root/emacs/elisp/my-clipboard.el
diff options
context:
space:
mode:
authorFranck Cuny <franck@fcuny.net>2022-03-23 19:43:46 -0700
committerFranck Cuny <franck@fcuny.net>2022-03-23 19:43:46 -0700
commitd52fb88582f431738994a3321614bd7ec76e7f56 (patch)
treeca3dfc64107cb9e06e47c4edcd69f4d79a63bde3 /emacs/elisp/my-clipboard.el
parentfunctions: move custom functions to libraries (diff)
downloademacs.d-d52fb88582f431738994a3321614bd7ec76e7f56.tar.gz
this should be the last mass refactor
Diffstat (limited to 'emacs/elisp/my-clipboard.el')
-rw-r--r--emacs/elisp/my-clipboard.el24
1 files changed, 0 insertions, 24 deletions
diff --git a/emacs/elisp/my-clipboard.el b/emacs/elisp/my-clipboard.el
deleted file mode 100644
index f0f3c01..0000000
--- a/emacs/elisp/my-clipboard.el
+++ /dev/null
@@ -1,24 +0,0 @@
-;;; my-clipboard.el --- Functions related to clipboard
-;;; Commentary:
-;;; Code:
-
-;; https://github.com/chongchonghe/emacs-dotfile/blob/f4f9ce5f586f224e2c83b118d471652d65d38e8c/packages/simpleclip.el
-(defun my/clipboard-get-contents ()
-  "Return the contents of the system clipboard as a string."
-  (condition-case nil
-      (cond
-       ((fboundp 'ns-get-pasteboard)
-        (ns-get-pasteboard))
-       ((and (featurep 'mac)
-             (fboundp 'gui-get-selection))
-        (gui-get-selection 'CLIPBOARD 'NSStringPboardType))
-       ((and (featurep 'mac)
-             (fboundp 'x-get-selection))
-        (x-get-selection 'CLIPBOARD 'NSStringPboardType))
-       ((fboundp 'gui-get-selection)
-        (gui-get-selection 'CLIPBOARD (or x-select-request-type 'UTF8_STRING)))
-       (t
-        (error "Clipboard support not available")))))
-
-(provide 'my-clipboard)
-;;; my-clipboard.el ends here