Partially rig up xdg-shell

Listen to new surface and map / unmap events, but don't do anything
with them yet.

heart/include/hrt/hrt_server.h

@@ -29,6 +29,9 @@ struct hrt_server {
 
   struct hrt_seat seat;
 
+  struct wlr_xdg_shell *xdg_shell;
+  struct wl_listener new_xdg_surface;
+
   const struct hrt_output_callbacks *output_callback;
 };
 

heart/include/hrt/hrt_view.h

@@ -0,0 +1,10 @@
+#include <wayland-server-core.h>
+#include "hrt/hrt_server.h"
+
+struct hrt_view {
+	struct wl_list link;
+	struct wlr_xdg_toplevel *xdg_toplevel;
+	struct wl_listener map;
+	struct wl_listener unmap;
+	struct wl_listener destroy;
+};

heart/include/xdg_impl.h

@@ -0,0 +1,5 @@
+#pragma once
+
+#include <wayland-server.h>
+
+void handle_new_xdg_surface(struct wl_listener *listener, void *data);

heart/src/meson.build

@@ -5,4 +5,5 @@ hrt_source_files += files(
   'seat.c',
   'keyboard.c',
   'cursor.c',
+  'xdg_shell.c',
   )

heart/src/server.c

@@ -1,4 +1,5 @@
 #include "wlr/util/log.h"
+#include "xdg_impl.h"
 #include <stdlib.h>
 #include <wayland-server-core.h>
 #include <wlr/types/wlr_export_dmabuf_v1.h>
@@ -8,6 +9,7 @@
 #include <wlr/types/wlr_subcompositor.h>
 #include <wlr/types/wlr_data_device.h>
 #include <wlr/render/wlr_renderer.h>
+#include <wlr/types/wlr_xdg_shell.h>
 
 #include <hrt/hrt_server.h>
 #include <hrt/hrt_output.h>
@@ -43,6 +45,13 @@ bool hrt_server_init(struct hrt_server *server, const struct hrt_output_callback
   wlr_data_control_manager_v1_create(server->wl_display);
   wlr_gamma_control_manager_v1_create(server->wl_display);
 
+  server->output_layout = wlr_output_layout_create();
+
+  server->xdg_shell = wlr_xdg_shell_create(server->wl_display, 3);
+  server->new_xdg_surface.notify = handle_new_xdg_surface;
+  wl_signal_add(&server->xdg_shell->events.new_surface, &server->new_xdg_surface);
+
+
   if(!hrt_output_init(server, output_callbacks)) {
     return false;
   }

heart/src/xdg_shell.c

@@ -0,0 +1,51 @@
+#include <stdlib.h>
+
+#include <wayland-server-core.h>
+#include <wayland-util.h>
+#include <wlr/util/log.h>
+
+#include "hrt/hrt_input.h"
+#include "xdg_impl.h"
+#include "hrt/hrt_view.h"
+
+#include <wlr/types/wlr_xdg_shell.h>
+
+static void handle_xdg_toplevel_map(struct wl_listener *listener, void *data) {
+	wlr_log(WLR_DEBUG, "XDG Toplevel Mapped!");
+}
+
+static void handle_xdg_toplevel_unmap(struct wl_listener *listener,
+                                      void *data) {
+	wlr_log(WLR_DEBUG, "XDG Toplevel unmapped!");
+}
+
+static void handle_xdg_toplevel_destroy(struct wl_listener *listener,
+                                        void *data) {
+	wlr_log(WLR_DEBUG, "XDG Toplevel Destroyed!");
+	struct hrt_view *view = wl_container_of(listener, view, destroy);
+
+	wl_list_remove(&view->map.link);
+	wl_list_remove(&view->unmap.link);
+	wl_list_remove(&view->destroy.link);
+
+	free(view);
+}
+
+void handle_new_xdg_surface(struct wl_listener *listener, void *data) {
+	wlr_log(WLR_DEBUG, "New XDG Surface recieved");
+	struct hrt_server *server = wl_container_of(listener, server, new_xdg_surface);
+	struct wlr_xdg_surface *xdg_surface = data;
+
+	if(xdg_surface->role == WLR_XDG_SURFACE_ROLE_POPUP) {
+		return;
+	}
+
+	struct hrt_view *view = calloc(1, sizeof(struct hrt_view));
+
+	view->map.notify = handle_xdg_toplevel_map;
+	wl_signal_add(&xdg_surface->events.map, &view->map);
+	view->unmap.notify = handle_xdg_toplevel_unmap;
+	wl_signal_add(&xdg_surface->events.unmap, &view->unmap);
+	view->destroy.notify = handle_xdg_toplevel_destroy;
+	wl_signal_add(&xdg_surface->events.destroy, &view->destroy);
+}

lisp/bindings/hrt-bindings.lisp

@@ -97,7 +97,6 @@ See themes section of man xcursor(3) to find where to find valid cursor names."
   (output-manager-apply (:struct wl-listener))
   (output-manager-test (:struct wl-listener))
   (seat (:struct hrt-seat))
-  (scene :pointer #| (:struct wlr-scene) |# )
   (xdg-shell :pointer #| (:struct wlr-xdg-shell) |# )
   (new-xdg-surface (:struct wl-listener))
   (output-callback (:pointer (:struct hrt-output-callbacks))))