Support for wayland clipboard

init.el

@@ -54,9 +54,16 @@
 (menu-bar-mode -1)
 (tooltip-mode -1)
 (fringe-mode -1)
+(scroll-bar-mode -1)
+
+;; The minimap gives a much better scrolling experience
+(use-package minimap
+  :straight t
+  :config
+  (minimap-mode)
+  (setq minimap-window-location 'right)
+  (setq minimap-width-fraction 0.10))
 
-(scroll-bar-mode t)
-(set-window-scroll-bars (minibuffer-window) nil nil nil nil 1)
 
 ;; Font settings
 (set-face-attribute 'default nil :font "Iosevka Fixed SS05-12")
@@ -77,6 +84,21 @@
 (setq auto-save-default nil)
 (setq create-lockfiles nil)
 
+(when (getenv "WAYLAND_DISPLAY")
+  ;; Without this, copy and pasting from other wayland apps into
+  ;; emacs-pgtk doesn't work.
+  ;; https://www.emacswiki.org/emacs/CopyAndPaste#h5o-4
+  (setq wl-copy-process nil)
+  (defun wl-copy (text)
+    (setq wl-copy-process (make-process :name "wl-copy"
+                                        :buffer nil
+                                :command '("wl-copy" "-f" "-n")
+                                :connection-type 'pipe
+                                :noquery t))
+    (process-send-string wl-copy-process text)
+    (process-send-eof wl-copy-process))
+    (setq interprogram-cut-function 'wl-copy))
+
 ;; Dired settings
 (defun embark-open-externally (file)
   "Open FILE externally using the default application of the system."
@@ -170,6 +192,7 @@
 (global-auto-revert-mode 1)
 
 ;; Keybindings
+(bind-key "M-<f4>"     'kill-emacs)
 (bind-key "C-x k"      'kill-buffer-with-prejudice)
 (bind-key "C-w"        'kill-buffer-with-prejudice)
 (bind-key "C-x C-k"    'kill-buffer-and-window)