From 45cab5c38dc089935416a89d36b461d9127094ac Mon Sep 17 00:00:00 2001
From: Craig Jennings <c@cjennings.net>
Date: Tue, 4 Nov 2025 14:35:50 -0600
Subject: feat: Add complete async audio transcription workflow
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

Implemented full transcription system with local Whisper and OpenAI API
support. Includes comprehensive test suite (60 tests) and reorganized
keybindings for better discoverability.

Features:
- Async transcription (non-blocking workflow)
- Desktop notifications (started/complete/error)
- Output: audio.txt (transcript) + audio.log (process logs)
- Modeline integration showing active transcription count
- Dired integration (press T on audio files)
- Process management and tracking

Scripts:
- install-whisper.sh: Install Whisper via AUR or pip
- uninstall-whisper.sh: Clean removal with cache cleanup
- local-whisper: Offline transcription using installed Whisper
- oai-transcribe: Cloud transcription via OpenAI API

Tests (60 passing):
- Audio file detection (16 tests)
- Path generation logic (11 tests)
- Log cleanup behavior (5 tests)
- Duration formatting (9 tests)
- Active counter & modeline (11 tests)
- Integration workflows (8 tests)

Keybindings:
- Reorganized gcal to C-; g submenu (s/t/r/c)
- Added C-; t transcription submenu (t/b/k)
- Dired: T to transcribe file at point

🤖 Generated with [Claude Code](https://claude.com/claude-code)

Co-Authored-By: Claude <noreply@anthropic.com>
---
 tests/test-transcription-duration.el | 58 ++++++++++++++++++++++++++++++++++++
 1 file changed, 58 insertions(+)
 create mode 100644 tests/test-transcription-duration.el

(limited to 'tests/test-transcription-duration.el')

diff --git a/tests/test-transcription-duration.el b/tests/test-transcription-duration.el
new file mode 100644
index 00000000..370c439b
--- /dev/null
+++ b/tests/test-transcription-duration.el
@@ -0,0 +1,58 @@
+;;; test-transcription-duration.el --- Tests for duration calculation -*- lexical-binding: t; -*-
+
+;;; Commentary:
+;; Tests for cj/--transcription-duration function
+;; Categories: Normal cases, Boundary cases
+
+;;; Code:
+
+(require 'ert)
+(require 'transcription-config)
+
+;; ----------------------------- Normal Cases ----------------------------------
+
+(ert-deftest test-cj/--transcription-duration-zero-seconds ()
+  "Test duration calculation for current time (should be 00:00)."
+  (let ((now (current-time)))
+    (should (string= (cj/--transcription-duration now) "00:00"))))
+
+(ert-deftest test-cj/--transcription-duration-30-seconds ()
+  "Test duration calculation for 30 seconds ago."
+  (let ((start-time (time-subtract (current-time) (seconds-to-time 30))))
+    (should (string= (cj/--transcription-duration start-time) "00:30"))))
+
+(ert-deftest test-cj/--transcription-duration-1-minute ()
+  "Test duration calculation for 1 minute ago."
+  (let ((start-time (time-subtract (current-time) (seconds-to-time 60))))
+    (should (string= (cj/--transcription-duration start-time) "01:00"))))
+
+(ert-deftest test-cj/--transcription-duration-2-minutes-30-seconds ()
+  "Test duration calculation for 2:30 ago."
+  (let ((start-time (time-subtract (current-time) (seconds-to-time 150))))
+    (should (string= (cj/--transcription-duration start-time) "02:30"))))
+
+(ert-deftest test-cj/--transcription-duration-10-minutes ()
+  "Test duration calculation for 10 minutes ago."
+  (let ((start-time (time-subtract (current-time) (seconds-to-time 600))))
+    (should (string= (cj/--transcription-duration start-time) "10:00"))))
+
+;; ----------------------------- Boundary Cases --------------------------------
+
+(ert-deftest test-cj/--transcription-duration-59-seconds ()
+  "Test duration just before 1 minute."
+  (let ((start-time (time-subtract (current-time) (seconds-to-time 59))))
+    (should (string= (cj/--transcription-duration start-time) "00:59"))))
+
+(ert-deftest test-cj/--transcription-duration-1-hour ()
+  "Test duration for 1 hour (60 minutes)."
+  (let ((start-time (time-subtract (current-time) (seconds-to-time 3600))))
+    (should (string= (cj/--transcription-duration start-time) "60:00"))))
+
+(ert-deftest test-cj/--transcription-duration-format ()
+  "Test that duration is always in MM:SS format with zero-padding."
+  (let ((start-time (time-subtract (current-time) (seconds-to-time 65))))
+    (let ((result (cj/--transcription-duration start-time)))
+      (should (string-match-p "^[0-9][0-9]:[0-9][0-9]$" result)))))
+
+(provide 'test-transcription-duration)
+;;; test-transcription-duration.el ends here
-- 
cgit v1.2.3