clipboard: function to get clipboard's content

The function can get the content of the clipboard for both MacOS and
Linux. This function is coming from this module [1].

[1] https://github.com/rolandwalker/simpleclip/blob/master/simpleclip.el

1 files changed, 19 insertions, 0 deletions

diff --git a/emacs/lisp/fcuny-clipboard.el b/emacs/lisp/fcuny-clipboard.el
new file mode 100644
index 0000000..f5834d4
--- /dev/null
+++ b/emacs/lisp/fcuny-clipboard.el
@@ -0,0 +1,19 @@
+;; 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)