Initial try on functions for sway/wayland

[zauster]

Hey,

I have a basic implementation of the needed functions for sway/wayland that mostly works. ydotoold has to run to be able to use this code. It mainly uses the commands proposed by msin32 here: #50 (comment)

What does not work:

• mark a region, call (emacs-everywhere), modify that text and paste it back: nothing is pasted back into the input field
• repeatedly calling (emacs-everywhere) in the same input field does not always paste the text

[tecosaur]

This looks like something I'll be happy to merge, thanks @zauster! At a glance, three comments come to mind:

• Since availability of particular wayland do-style tools is spotty across distros/repositories (for now at least), I think it would be good to try to support ydotool just prefer dotool, as opposed to switching them out.
• I don't like the shell call swaymsg -t get_tree | jq '.. | select(.type?) | select(.focused==true)', can't we process the json ourselves without too much difficulty?
• There seem to be some unrelated whitespace changes

[zauster]

Hey,
I adapted the PR according to your points 1 and 3.

I agree that it would be nicer to do the json parsing in elisp. But my
elisp is still quite rudimentary, so it might take a while until I
have something like that ready.

[tecosaur]

I don't have dotool conveniently packaged, could you share some example JSON output?

[zauster]

Sure, here you go:
swaymsg_tree.json

[lkirkwood]

Writing this using the PR - works beautifully! It does require $XDG_CURRENT_DESKTOP to be set which Sway does not do on its own.

[maser]

While using this branch I noticed that not all applications have an app_id on my system, leading to a Wrong type argument: stringp, nil in *Messages*.

I think the ones running with Xwayland do not have one (Slack in my case). They have window_properties['class'] set though, so I could get them to work with this change:

Suggested change

	(app-name (cdr (assoc 'app_id json-object)))
	(app-name (cdr (assoc 'app_id json-object)))
	(app-name (if app-name app-name (cdr (assoc 'class (cdr (assoc 'window_properties json-object))))))