41 lines
1.8 KiB
EmacsLisp
41 lines
1.8 KiB
EmacsLisp
|
;; See https://github.com/agzam/exwm-edit/issues/7.
|
||
|
|
||
|
(defun exwm-edit--compose ()
|
||
|
"Edit text in an EXWM app."
|
||
|
(interactive)
|
||
|
;; flushing clipboard is required, otherwise `gui-get-selection` simply picks up what's in the clipboard (when nothing is actually selected in GUI)
|
||
|
(gui-set-selection nil nil)
|
||
|
(let* ((title (exwm-edit--buffer-title (buffer-name)))
|
||
|
(existing (get-buffer title))
|
||
|
(inhibit-read-only t)
|
||
|
(save-interprogram-paste-before-kill t)
|
||
|
(selection-coding-system 'utf-8) ; required for multilang-support
|
||
|
(sel (gui-get-selection))
|
||
|
(unmarked? (or (not sel)
|
||
|
(string= (substring-no-properties (or sel ""))
|
||
|
(substring-no-properties (or (car kill-ring) ""))))))
|
||
|
(when (derived-mode-p 'exwm-mode)
|
||
|
(setq exwm-edit--last-exwm-buffer (buffer-name))
|
||
|
(unless (bound-and-true-p global-exwm-edit-mode)
|
||
|
(global-exwm-edit-mode 1))
|
||
|
(if existing
|
||
|
(switch-to-buffer-other-window existing)
|
||
|
(progn
|
||
|
(when unmarked? (exwm-input--fake-key ?\C-a))
|
||
|
(let ((buffer (get-buffer-create title)))
|
||
|
(with-current-buffer buffer
|
||
|
(run-hooks 'exwm-edit-compose-hook)
|
||
|
(exwm-edit-mode 1)
|
||
|
(switch-to-buffer-other-window buffer)
|
||
|
(let ((sel (and (gui-get-selection) ; TODO: This is the fix, not sure why it works.
|
||
|
(gui-get-selection))))
|
||
|
(kill-new sel)
|
||
|
(insert sel))
|
||
|
(setq-local
|
||
|
header-line-format
|
||
|
(substitute-command-keys
|
||
|
"Edit, then exit with `\\[exwm-edit--finish]' or cancel with \ `\\[exwm-edit--cancel]'")))))))))
|
||
|
|
||
|
|
||
|
(provide 'patch-exwm-edit)
|