Add macro as file
parent
02599bdf1d
commit
1e39dea72a
@ -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"
|
Loading…
Reference in New Issue