functions: move custom functions to libraries

1 files changed, 24 insertions, 0 deletions

diff --git a/emacs/elisp/my-clipboard.el b/emacs/elisp/my-clipboard.el
new file mode 100644
index 0000000..f0f3c01
--- /dev/null
+++ b/emacs/elisp/my-clipboard.el
@@ -0,0 +1,24 @@
+;;; 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