108 lines
3.3 KiB
EmacsLisp
108 lines
3.3 KiB
EmacsLisp
;;; spacemacs-xclipboard.el --- Add support for xclipboard in the terminal
|
|
;;
|
|
;; Copyright (c) 2012-2018 Sylvain Benner & Contributors
|
|
;;
|
|
;; Authors: Charles Weill <weill@google.com>
|
|
;; Google LLC.
|
|
;;; Commentary:
|
|
;; URL: https://github.com/syl20bnr/spacemacs
|
|
;;
|
|
;; This file is not part of GNU Emacs.
|
|
;;
|
|
;;; License: GPLv3
|
|
;;
|
|
;;; Code:
|
|
|
|
(defun spacemacs/xclipboard-get-display ()
|
|
(shell-command-to-string "if [[ -n $TMUX ]]; then
|
|
export DISPLAY=$(tmux show-environment | grep -o '^DISPLAY.*$' | sed 's/DISPLAY=//')
|
|
fi
|
|
if [[ -z $DISPLAY ]]; then
|
|
export DISPLAY=:0
|
|
fi
|
|
printf $DISPLAY")
|
|
)
|
|
|
|
(defun spacemacs//xclipboard-get-copy-command ()
|
|
(if xclipboard-copy-command
|
|
xclipboard-copy-command
|
|
(shell-command-to-string "command_exists() {
|
|
local command=\"$1\"
|
|
type \"$command\" >/dev/null 2>&1
|
|
}
|
|
|
|
# Installing reattach-to-user-namespace is recommended on macOS.
|
|
if command_exists \"pbcopy\"; then
|
|
if command_exists \"reattach-to-user-namespace\"; then
|
|
printf \"reattach-to-user-namespace pbcopy\"
|
|
else
|
|
printf \"pbcopy\"
|
|
fi
|
|
elif command_exists \"clip.exe\"; then # WSL clipboard command
|
|
printf \"clip.exe\"
|
|
elif command_exists \"xsel\"; then
|
|
printf \"xsel -ib\"
|
|
elif command_exists \"putclip\"; then # cygwin clipboard command
|
|
printf \"putclip\"
|
|
fi")
|
|
)
|
|
)
|
|
|
|
(defun spacemacs//xclipboard-get-paste-command ()
|
|
(if xclipboard-paste-command
|
|
xclipboard-paste-command
|
|
(shell-command-to-string "command_exists() {
|
|
local command=\"$1\"
|
|
type \"$command\" >/dev/null 2>&1
|
|
}
|
|
|
|
# Installing reattach-to-user-namespace is recommended on macOS.
|
|
if command_exists \"pbpaste\"; then
|
|
if command_exists \"reattach-to-user-namespace\"; then
|
|
printf \"reattach-to-user-namespace pbpaste\"
|
|
else
|
|
printf \"pbpaste\"
|
|
fi
|
|
elif command_exists \"paste.exe\"; then # WSL clipboard command
|
|
printf \"paste.exe\"
|
|
elif command_exists \"xsel\"; then
|
|
printf \"xsel -ob\"
|
|
elif command_exists \"getclip\"; then # cygwin clipboard command
|
|
printf \"getclip\"
|
|
fi")
|
|
)
|
|
)
|
|
|
|
(defun spacemacs/xclipboard-copy ()
|
|
"Copies selection to x-clipboard."
|
|
(interactive)
|
|
(if (display-graphic-p)
|
|
(progn
|
|
(message "Copied region to x-clipboard!")
|
|
(call-interactively 'clipboard-kill-ring-save)
|
|
)
|
|
(if (region-active-p)
|
|
(progn
|
|
(shell-command-on-region (region-beginning) (region-end) (format "DISPLAY=%s %s" (spacemacs/xclipboard-get-display) (spacemacs//xclipboard-get-copy-command)))
|
|
(message (format "Copied region to clipboard \"%s\"!" (spacemacs/xclipboard-get-display)))
|
|
(deactivate-mark)
|
|
)
|
|
(message "No region active; can't copy to clipboard!")
|
|
)
|
|
)
|
|
)
|
|
|
|
(defun spacemacs/xclipboard-paste ()
|
|
"Pastes from x-clipboard."
|
|
(interactive)
|
|
(if (display-graphic-p)
|
|
(progn
|
|
(clipboard-yank)
|
|
(message "graphics active")
|
|
)
|
|
(insert (shell-command-to-string (format "DISPLAY=%s %s" (spacemacs/xclipboard-get-display) (spacemacs//xclipboard-get-paste-command))))
|
|
)
|
|
(message (format "Pasted from clipboard \"%s\"!" (spacemacs/xclipboard-get-display)))
|
|
)
|
|
|
|
(provide 'spacemacs-xclipboard)
|