rolandwalker / simpleclip

Simplified access to the system clipboard in Emacs.
174 stars 16 forks source link

no support for cygwin #2

Closed redguardtoo closed 9 years ago

redguardtoo commented 9 years ago

here is my patch

--- simpleclip.el   2015-03-31 11:42:59.552112400 +1100
+++ simpleclip.el   2015-03-31 11:18:08.394871000 +1100
@@ -330,6 +331,10 @@
             (with-output-to-string
               (with-current-buffer standard-output
                 (call-process "/usr/bin/pbpaste" nil t nil "-Prefer" "txt"))))
+           ((eq system-type 'cygwin)
+            (with-output-to-string
+              (with-current-buffer standard-output
+                (call-process "getclip" nil t nil))))
            ((memq system-type '(gnu gnu/linux gnu/kfreebsd))
             (with-output-to-string
               (with-current-buffer standard-output
@@ -362,6 +367,10 @@
             (with-temp-buffer
               (insert str-val)
               (call-process-region (point-min) (point-max) "/usr/bin/pbcopy")))
+           ((eq system-type 'cygwin)
+            (with-temp-buffer
+              (insert str-val)
+              (call-process-region (point-min) (point-max) "putclip")))
            ((memq system-type '(gnu gnu/linux gnu/kfreebsd))
             (with-temp-buffer
               (insert str-val)
rolandwalker commented 9 years ago

Thanks! Added in 7079086ec09a148fcc9146ba9bd10e12fb011861.