a/v recording: fix setup, add test functionality and indicatorlkg

Integrates a modeline indicator to display active recording status
in Emacs. The indicator shows "🔴Audio", "🔴Video", or "🔴A+V" based
on the active recording processes. Includes functions for starting
and stopping audio/video recordings, with sentinel processes
ensuring timely updates to the modeline. Also adds extensive
integration tests to validate modeline synchronization.

1 files changed, 0 insertions, 151 deletions

diff --git a/tests/test-video-audio-recording-detect-system-device.el b/tests/test-video-audio-recording-detect-system-device.el
deleted file mode 100644
index bea20e8a..00000000
--- a/tests/test-video-audio-recording-detect-system-device.el
+++ /dev/null
@@ -1,151 +0,0 @@
-;;; test-video-audio-recording-detect-system-device.el --- Tests for cj/recording-detect-system-device -*- lexical-binding: t; -*-
-
-;;; Commentary:
-;; Unit tests for cj/recording-detect-system-device function.
-;; Tests auto-detection of system audio monitor device from pactl output.
-;; Mocks shell-command-to-string to test regex matching logic.
-;;
-;; NOTE: This function works correctly - returns the full device name ending in .monitor.
-;; The regex \\([^\t\n]+\\.monitor\\) matches any non-tab/newline chars ending with .monitor,
-;; which correctly captures the device name field from pactl output.
-;;
-;; This function may not be actively used (parse-sources is preferred).
-;; Tests document current behavior to catch regressions.
-
-;;; Code:
-
-(require 'ert)
-
-;; Stub dependencies before loading the module
-(defvar cj/custom-keymap (make-sparse-keymap)
-  "Stub keymap for testing.")
-
-;; Now load the actual production module
-(require 'video-audio-recording)
-
-;;; Normal Cases
-
-(ert-deftest test-video-audio-recording-detect-system-device-normal-built-in-monitor-found ()
-  "Test detection of built-in system audio monitor.
-Returns full device name."
-  (let ((output "49\talsa_output.pci-0000_00_1f.3.analog-stereo.monitor\tPipeWire\ts32le 2ch 48000Hz\tSUSPENDED\n50\talsa_input.pci-0000_00_1f.3.analog-stereo\tPipeWire\ts32le 2ch 48000Hz\tSUSPENDED\n"))
-    (cl-letf (((symbol-function 'shell-command-to-string)
-               (lambda (_cmd) output)))
-      (let ((result (cj/recording-detect-system-device)))
-        (should (stringp result))
-        (should (equal "alsa_output.pci-0000_00_1f.3.analog-stereo.monitor" result))))))
-
-(ert-deftest test-video-audio-recording-detect-system-device-normal-usb-monitor-found ()
-  "Test detection of USB system audio monitor."
-  (let ((output "99\talsa_output.usb-0b0e_Jabra_SPEAK_510_USB_1C48F9C067D5020A00-00.analog-stereo.monitor\tPipeWire\ts16le 2ch 48000Hz\tSUSPENDED\n"))
-    (cl-letf (((symbol-function 'shell-command-to-string)
-               (lambda (_cmd) output)))
-      (let ((result (cj/recording-detect-system-device)))
-        (should (stringp result))
-        (should (equal "alsa_output.usb-0b0e_Jabra_SPEAK_510_USB_1C48F9C067D5020A00-00.analog-stereo.monitor" result))))))
-
-(ert-deftest test-video-audio-recording-detect-system-device-normal-bluetooth-monitor-found ()
-  "Test detection of Bluetooth monitor device."
-  (let ((output "81\tbluez_output.00_1B_66_C0_91_6D.1.monitor\tPipeWire\ts24le 2ch 48000Hz\tRUNNING\n"))
-    (cl-letf (((symbol-function 'shell-command-to-string)
-               (lambda (_cmd) output)))
-      (let ((result (cj/recording-detect-system-device)))
-        (should (stringp result))
-        (should (equal "bluez_output.00_1B_66_C0_91_6D.1.monitor" result))))))
-
-(ert-deftest test-video-audio-recording-detect-system-device-normal-first-match-returned ()
-  "Test that first matching monitor is returned when multiple exist."
-  (let ((output (concat "49\talsa_output.pci-0000_00_1f.3.analog-stereo.monitor\tPipeWire\ts32le 2ch 48000Hz\tSUSPENDED\n"
-                        "81\tbluez_output.00_1B_66_C0_91_6D.1.monitor\tPipeWire\ts24le 2ch 48000Hz\tRUNNING\n"
-                        "99\talsa_output.usb-device.monitor\tPipeWire\ts16le 2ch 48000Hz\tSUSPENDED\n")))
-    (cl-letf (((symbol-function 'shell-command-to-string)
-               (lambda (_cmd) output)))
-      (let ((result (cj/recording-detect-system-device)))
-        ;; Returns first monitor device name
-        (should (equal "alsa_output.pci-0000_00_1f.3.analog-stereo.monitor" result))))))
-
-;;; Boundary Cases
-
-(ert-deftest test-video-audio-recording-detect-system-device-boundary-empty-output-returns-nil ()
-  "Test that empty output returns nil."
-  (cl-letf (((symbol-function 'shell-command-to-string)
-             (lambda (_cmd) "")))
-    (let ((result (cj/recording-detect-system-device)))
-      (should (null result)))))
-
-(ert-deftest test-video-audio-recording-detect-system-device-boundary-only-inputs-returns-nil ()
-  "Test that output with only input devices (no monitors) returns nil."
-  (let ((output (concat "50\talsa_input.pci-0000_00_1f.3.analog-stereo\tPipeWire\ts32le 2ch 48000Hz\tSUSPENDED\n"
-                        "79\tbluez_input.00:1B:66:C0:91:6D\tPipeWire\tfloat32le 1ch 48000Hz\tSUSPENDED\n")))
-    (cl-letf (((symbol-function 'shell-command-to-string)
-               (lambda (_cmd) output)))
-      (let ((result (cj/recording-detect-system-device)))
-        (should (null result))))))
-
-(ert-deftest test-video-audio-recording-detect-system-device-boundary-whitespace-only-returns-nil ()
-  "Test that whitespace-only output returns nil."
-  (cl-letf (((symbol-function 'shell-command-to-string)
-             (lambda (_cmd) "  \n\t\n  ")))
-    (let ((result (cj/recording-detect-system-device)))
-      (should (null result)))))
-
-(ert-deftest test-video-audio-recording-detect-system-device-boundary-monitor-different-states ()
-  "Test that monitors in different states are all matched."
-  (let ((output "81\tbluez_output.00_1B_66_C0_91_6D.1.monitor\tPipeWire\ts24le 2ch 48000Hz\tRUNNING\n"))
-    (cl-letf (((symbol-function 'shell-command-to-string)
-               (lambda (_cmd) output)))
-      (let ((result (cj/recording-detect-system-device)))
-        ;; Should match regardless of state (RUNNING, SUSPENDED, IDLE)
-        (should (equal "bluez_output.00_1B_66_C0_91_6D.1.monitor" result))))))
-
-(ert-deftest test-video-audio-recording-detect-system-device-boundary-case-insensitive-monitor ()
-  "Test that regex is case-insensitive for '.monitor' suffix.
-Documents that .MONITOR (uppercase) also matches."
-  (let ((output "49\talsa_output.pci-0000_00_1f.3.analog-stereo.MONITOR\tPipeWire\ts32le 2ch 48000Hz\tSUSPENDED\n"))
-    (cl-letf (((symbol-function 'shell-command-to-string)
-               (lambda (_cmd) output)))
-      (let ((result (cj/recording-detect-system-device)))
-        ;; Case-insensitive: .MONITOR matches
-        (should (equal "alsa_output.pci-0000_00_1f.3.analog-stereo.MONITOR" result))))))
-
-;;; Error Cases
-
-(ert-deftest test-video-audio-recording-detect-system-device-error-malformed-output-returns-nil ()
-  "Test that malformed output returns nil."
-  (let ((output "This is not valid pactl output\nRandom text here\n"))
-    (cl-letf (((symbol-function 'shell-command-to-string)
-               (lambda (_cmd) output)))
-      (let ((result (cj/recording-detect-system-device)))
-        (should (null result))))))
-
-(ert-deftest test-video-audio-recording-detect-system-device-error-partial-monitor-matches ()
-  "Test that device with .monitor in middle partially matches (documents quirk).
-The regex matches up to first .monitor occurrence, even if not at end of device name."
-  (let ((output "50\talsa_input.monitor-device.analog-stereo\tPipeWire\ts32le 2ch 48000Hz\tSUSPENDED\n"))
-    (cl-letf (((symbol-function 'shell-command-to-string)
-               (lambda (_cmd) output)))
-      (let ((result (cj/recording-detect-system-device)))
-        ;; QUIRK: Matches partial string "alsa_input.monitor"
-        (should (equal "alsa_input.monitor" result))))))
-
-(ert-deftest test-video-audio-recording-detect-system-device-error-incomplete-line ()
-  "Test that incomplete lines with .monitor are still matched."
-  (let ((output "49\tincomplete-line.monitor\n"))
-    (cl-letf (((symbol-function 'shell-command-to-string)
-               (lambda (_cmd) output)))
-      (let ((result (cj/recording-detect-system-device)))
-        ;; Should match device name ending in .monitor
-        (should (equal "incomplete-line.monitor" result))))))
-
-(ert-deftest test-video-audio-recording-detect-system-device-error-mixed-valid-invalid ()
-  "Test that mix of valid and invalid lines returns first valid monitor."
-  (let ((output (concat "invalid line without tabs\n"
-                        "49\talsa_output.pci-0000_00_1f.3.analog-stereo.monitor\tPipeWire\ts32le 2ch 48000Hz\tSUSPENDED\n"
-                        "another invalid line\n")))
-    (cl-letf (((symbol-function 'shell-command-to-string)
-               (lambda (_cmd) output)))
-      (let ((result (cj/recording-detect-system-device)))
-        (should (equal "alsa_output.pci-0000_00_1f.3.analog-stereo.monitor" result))))))
-
-(provide 'test-video-audio-recording-detect-system-device)
-;;; test-video-audio-recording-detect-system-device.el ends here