From 1e39dea72a229a6f770901b65aec73cf321e4b44 Mon Sep 17 00:00:00 2001
From: Kuba Orlik <kontatk@kuba-orlik.name>
Date: Sun, 12 Sep 2021 19:48:26 +0200
Subject: [PATCH] Add macro as file

---
 README.md         | 15 ++++++---------
 cut and label.txt |  1 +
 2 files changed, 7 insertions(+), 9 deletions(-)
 create mode 100644 cut and label.txt

diff --git a/README.md b/README.md
index 43e344c..68f6cf0 100644
--- a/README.md
+++ b/README.md
@@ -12,17 +12,14 @@ Zestaw narzędzi pomagający wyciąć z pliku wideo te same fragmenty, które zo
 
 ### Macro do Audacity
 
-1. W Audacity utwórz makro z jednym krokiem.
+Przenieś makro `cut and label.txt` z tego repo do katalogu `~/.audacity-data/Macros` i uruchom ponownie Audacity.
 
-2. Ustaw typ kroku: Nyquist Prompt
+Pojawi się nowa opcja w makrach (Tools > Apply Macro > Cut and
+Label). Uruchomienie tego makra spowoduje usunięcie zaznaczonego fragmentu i
+stworzenie nowej labelki, w której są metadane o lokalizacji i czasie trwania
+tego, co było właśnie usunięte.
 
-3. Kliknij `Edit`
-
-4. Wklej do okienka dialogowego zawartość pliku `macro.ny` z niniejszego repozytorium
-
-Następnie przypisz to makro do skrótu klawiaturowego (np. ctrl+d).
-
-Odpalenie tego makro usunie zaznaczony fragment ścieżki i zapisze w labelce informacje o długości usuniętego fragmentu i jego pozycji w ścieżce
+W ustawieniach Audacity można podpiąć sobie to makro pod np. klawisz `Del` lub `Ctrl+D`.
 
 ## Używanie
 
diff --git a/cut and label.txt b/cut and label.txt
new file mode 100644
index 0000000..8e526f7
--- /dev/null
+++ b/cut and label.txt	
@@ -0,0 +1 @@
+NyquistPrompt:Command="(aud-do \"AddLabel:\")\n\n(setf labels (car  (cdr (car (aud-get-info \"Labels\")))))\n\n(setf amount-of-labels (length labels))\n\n(setf last-label (cdr labels))\n\n(setf label-index (- amount-of-labels 1))\n(setf label-index (cond ((= label-index -1) 0) (t label-index)))\n\n(print label-index)\n\n(aud-do-command \"SetLabel\" :text (format nil \"~A ~A ~S\" amount-of-labels LEN (get '*selection* 'start)) :label (- amount-of-labels 1) :start 0 :end 0)\n\n(aud-do-command \"Delete\")\n\nNIL" Version="4"