Simple labeling by clips for audacity

label_clips.py

;nyquist plug-in
;version 4
;type tool analyze
;name "Simple Clips Label"

;get data from audacity
(setf clips 
    (get '*TRACK* 'CLIPS))

(setf time
    (get '*SELECTION* 'START))

(setf iterator 0)
(defun label-clip 
    (clip) 
    (setf clip 
        (list 
            (first clip) 
            (first (rest clip)) 
            (format nil "~a" iterator)))
    (setf iterator 
        (+ iterator 1))
    clip
)

(defun fix-time-values
    (clip)
    (setf (nth 0 clip) 
        (- 
            (nth 0 clip) 
            time))
    (setf (nth 1 clip) 
        (- 
            (nth 1 clip) 
            time))
    clip
)

(if 
    (arrayp clips)
    (mapcar #'fix-time-values
        (mapcar #'label-clip
            (aref clips 0)))
    (mapcar #'fix-time-values
        (mapcar #'label-clip
            (first clips)))
)