LISP 写入字符串 到系统剪切板

要在LISP中写入字符串到系统剪切板，可以使用以下代码：

(defun set-clipboard-text (text)
  (let ((process-connection-type nil))
    (with-temp-buffer
      (insert text)
      (call-process-region (point-min) (point-max) "pbcopy"))))

(set-clipboard-text "Hello, World!")

上述代码定义了一个名为set-clipboard-text的函数，它接受一个字符串作为参数，并将该字符串写入系统剪切板。在函数内部，我们使用with-temp-buffer创建一个临时缓冲区，并将要写入剪切板的字符串插入缓冲区。然后，我们使用call-process-region调用系统命令pbcopy将缓冲区中的内容写入剪切板。

最后一行代码调用set-clipboard-text函数，并传递一个字符串参数，这个字符串将被写入剪切板。您可以根据需要修改字符串参数