summaryrefslogtreecommitdiff
path: root/emacs/lisp/fcuny-clipboard.el
diff options
context:
space:
mode:
Diffstat (limited to 'emacs/lisp/fcuny-clipboard.el')
-rw-r--r--emacs/lisp/fcuny-clipboard.el19
1 files changed, 0 insertions, 19 deletions
diff --git a/emacs/lisp/fcuny-clipboard.el b/emacs/lisp/fcuny-clipboard.el
deleted file mode 100644
index f5834d4..0000000
--- a/emacs/lisp/fcuny-clipboard.el
+++ /dev/null
@@ -1,19 +0,0 @@
-;; https://github.com/chongchonghe/emacs-dotfile/blob/f4f9ce5f586f224e2c83b118d471652d65d38e8c/packages/simpleclip.el
-(defun fcuny/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 'fcuny-clipboard)