(in-package :custom)

(sd-defdialog 'my-remove-faces-dialog
  :dialog-title "Flaechen ausschneiden"
  :variables
  '(
    (flachliste :value-type :face
                 :multiple-items t
                 :show-select-menu t
                 :additional-token-string ":start"
                 :prompt-text "Flaechen zum Ausschneiden angeben"
                 :title "Ausschneiden"
     )
   )
  :ok-action
       '(remove_faces :check :faces flachliste)

)