You cannot select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
18 lines
464 B
Plaintext
18 lines
464 B
Plaintext
3 years ago
|
(aud-do "AddLabel:")
|
||
|
|
|
||
|
|
(setf labels (car (cdr (car (aud-get-info "Labels")))))
|
||
|
|
|
||
|
|
(setf amount-of-labels (length labels))
|
||
|
|
|
||
|
|
(setf last-label (cdr labels))
|
||
|
|
|
||
|
|
(setf label-index (- amount-of-labels 1))
|
||
|
|
(setf label-index (cond ((= label-index -1) 0) (t label-index)))
|
||
|
|
|
||
|
|
(print label-index)
|
||
|
|
|
||
|
|
(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)
|
||
|
|
|
||
|
|
(aud-do-command "Delete")
|
||
|
|
|
||
|
|
NIL
|