Как скопировать в буфер обмена в Emacs Lisp

Я хочу скопировать строку в буфер обмена (не область какого-либо конкретного буфера, просто строку). Было бы неплохо, если бы он также был добавлен в kill-ring. Вот пример:

(copy-to-clipboard "Hello World")

Существует ли эта функция? Если да, то как это называется и как вы его нашли? Существует ли также функция paste-from-clipboard?

Я не могу найти этот материал в справочном руководстве Lisp, поэтому, пожалуйста, скажите мне, как вы его нашли.

Ответы

Ответ 1

Вы ищете kill-new.

kill-new is a compiled Lisp function in `simple.el'.

(kill-new string &optional replace yank-handler)

Make string the latest kill in the kill ring.
Set `kill-ring-yank-pointer' to point to it.
If `interprogram-cut-function' is non-nil, apply it to string.
Optional second argument replace non-nil means that string will replace
the front of the kill ring, rather than being added to the list.

Optional third arguments yank-handler controls how the string is later
inserted into a buffer; see `insert-for-yank' for details.
When a yank handler is specified, string must be non-empty (the yank
handler, if non-nil, is stored as a `yank-handler' text property on string).

When the yank handler has a non-nil PARAM element, the original string
argument is not used by `insert-for-yank'.  However, since Lisp code
may access and use elements from the kill ring directly, the string
argument should still be a "useful" string for such uses.

Ответ 2

Я делаю это:

(with-temp-buffer
  (insert "Hello World")
  (clipboard-kill-region (point-min) (point-max)))

Это получает его в буфере обмена. Если вы хотите, чтобы это на kill-ring добавило форму kill-region.

Ответ 3

Команда поместить ваш выбор в буфер обмена оконной системы x-select-text. Вы можете дать ему блок текста для запоминания. Итак, (buffer-substring (point) (mark)) или что-то должно дать вам то, что вам нужно передать. В ответе Джо вы можете увидеть функцию interprogram-cut-function. Посмотрите, как это найти.

Ответ 4

В моем файле .emacs я использую этот

(global-set-key "\C-V" 'yank)
(global-set-key "\C-cc" 'kill-ring-save)

Я не мог использовать Ctrl-C (или System-copy), но этого может быть достаточно в случае, если старые привычки пинают.