emacs magic to use eufonctl as inferior lisp

kiwmi/include/input/input.h

@@ -15,6 +15,7 @@ struct kiwmi_input {
     struct wl_listener new_input;
     struct kiwmi_cursor *cursor;
     struct kiwmi_seat *seat;
+    int touchpads;
 
     struct {
         struct wl_signal keyboard_new;

kiwmi/kiwmi/input/input.c

@@ -32,6 +32,7 @@ static void
 new_touch(struct kiwmi_input *input, struct wlr_input_device *device)
 {
     wlr_cursor_attach_input_device(input->cursor->cursor, device);
+    input->touchpads++;
 }
 
 static void
@@ -74,6 +75,9 @@ new_input_notify(struct wl_listener *listener, void *data)
     if (!wl_list_empty(&input->keyboards)) {
         caps |= WL_SEAT_CAPABILITY_KEYBOARD;
     }
+    if(input->touchpads) {
+	caps |= WL_SEAT_CAPABILITY_TOUCH;
+    }
 
     wlr_seat_set_capabilities(input->seat->seat, caps);
 }

module.nix

@@ -40,6 +40,7 @@
         StandardInput = "tty";
         StandardError = "journal";
         StandardOutput = "journal";
+        SyslogIdentifier = "eufon";
         User = "dan";
         ExecStart = run-eufon;
         Restart = "always";

rc.fnl

@@ -1,3 +1,5 @@
+;; -*- mode: Fennel;
+
 (local { : view } (require :fennel))
 
 (local texture (require :texture))
@@ -190,3 +192,7 @@
 (kiwmi:spawn "lua -l fennelrun crier/crier.fnl")
 (kiwmi:spawn "lua -l fennelrun just/just.fnl")
 ;(kiwmi:spawn "foot")
+
+;; Local Variables:
+;; inferior-lisp-program: "eufonctl"
+;; End:

shell.nix

@@ -9,7 +9,7 @@ in (p.overrideAttrs (o:{
     # to experiment with starting sway or tinywl or something else
     # to see how they behave if kiwmi is being weird
     start_eufon(){
-      kiwmi -c init.lua;
+      kiwmi -V -V -c init.lua;
     }
   '';
 })).override { debug = true; }