diff --git a/lisp/init-ui.el b/lisp/init-ui.el index 7605673..29fd88b 100644 --- a/lisp/init-ui.el +++ b/lisp/init-ui.el @@ -31,23 +31,43 @@ (unless (display-graphic-p) (xterm-mouse-mode 1)) +(when (file-exists-p "/etc/arch-release") + ;; Clipboard + (setq select-enable-clipboard t) + (setq select-enable-primary t) + + ;; Wayland-Terminal Clipboard via wl-copy / wl-paste + (unless (display-graphic-p) + (setq interprogram-cut-function + (lambda (text &optional _push) + (let ((process-connection-type nil)) + (let ((proc (start-process "wl-copy" nil "wl-copy"))) + (process-send-string proc text) + (process-send-eof proc))))) + + (setq interprogram-paste-function + (lambda () + (string-trim-right + (shell-command-to-string "wl-paste -n 2>/dev/null")))))) + + ;; Clipboard -(setq select-enable-clipboard t) -(setq select-enable-primary t) +;; (setq select-enable-clipboard t) +;; (setq select-enable-primary t) -;; Wayland-Terminal Clipboard via wl-copy / wl-paste -(unless (display-graphic-p) - (setq interprogram-cut-function - (lambda (text &optional _push) - (let ((process-connection-type nil)) - (let ((proc (start-process "wl-copy" nil "wl-copy"))) - (process-send-string proc text) - (process-send-eof proc))))) +;; ;; Wayland-Terminal Clipboard via wl-copy / wl-paste +;; (unless (display-graphic-p) +;; (setq interprogram-cut-function +;; (lambda (text &optional _push) +;; (let ((process-connection-type nil)) +;; (let ((proc (start-process "wl-copy" nil "wl-copy"))) +;; (process-send-string proc text) +;; (process-send-eof proc))))) - (setq interprogram-paste-function - (lambda () - (string-trim-right - (shell-command-to-string "wl-paste -n 2>/dev/null"))))) +;; (setq interprogram-paste-function +;; (lambda () +;; (string-trim-right +;; (shell-command-to-string "wl-paste -n 2>/dev/null"))))) ;; Hintergrund etwas neutraler (set-face-background 'default "#1e1e1e")