procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Add support for dropping plain text on Haiku

Browse source 
* haiku-win.el (haiku-dnd-handle-drag-n-drop-event): Handle
`text/plain'.
This commit is contained in:
Po Lu 2022-03-16 13:24:18 +00:00
parent 3de3f12b94
commit 79f3d9c8f3
1 changed files with 10 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
lisp/term/haiku-win.el
View file

@ -137,7 +137,16 @@ If TYPE is nil, return \"text/plain\"."
(dolist (filename (cddr (assoc "refs" string)))
(dnd-handle-one-url window 'private
(concat "file:" filename)))))
(t (message "Don't know how to drop: %s" event)))))
((assoc "text/plain" string)
(with-selected-window window
(raise-frame)
(dolist (text (cddr (assoc "text/plain" string)))
(goto-char (posn-point (event-start event)))
(dnd-insert-text window 'private
(if (multibyte-string-p text)
text
(decode-coding-string text 'undecided))))))
(t (message "Don't know how to drop any of: %s" (mapcar #'car string))))))
(define-key special-event-map [drag-n-drop]
'haiku-dnd-handle-drag-n-drop-event)