(in-package :custom)
(use-package :oli)


(sd-defdialog 'trim-example
	:dialog-title "my trim"
	:toolbox-button t
	:variables '(
    (edge-1
        :title 						     "Edge"
        :value-type       :raw-vport-pick
        :prompt-text 			  "Select edge.")
    (edge-2
        :title 						     "Edge"
        :value-type       :raw-vport-pick
        :prompt-text 			  "Select edge."
        :after-input      (sd-call-cmds (trim :TWO_ELEMENTS edge-1 edge-2)))))
        
        ;; (sd-put-buffer
                           ;; (format nil "trim :TWO_ELEMENTS ~a ~a" edge-1 edge-2)))))