Convert VST Avenger presets to fxp with emacs elisp

avenger_vstpreset_gen.el

(require 'bindat)

;;; put your avengers content path here
(setq avenger-content-path "")

(mapcar (lambda (filename)
          ;; show current patch in message buffer
          (message filename)

          ;; read file
          (let ((coding-system-for-read 'binary))
            (setq content (with-temp-buffer
                            (insert-file-contents filename)
                            (buffer-string))))

          ;;; set some test data
          (setq header (bindat-pack
                        ;; vstspec
                        '((magiccode str 4)
                          (size u32)
                          (vstpatchtype str 4)
                          (version u32)
                          (pluginid str 4)
                          (pluginversion u32)
                          (parametercount u32)
                          (presetname strz 28)
                          (contentsize u32))
                        ;; data
                        `((magiccode . "CcnK")
                          (size . ,(+ (length content) #x44))
                          (vstpatchtype . "FPCh")
                          (version . 1)
                          (pluginid . "Avgr")
                          (pluginversion . 1)
                          ;; set a name from filename, respect the limit
                          (presetname . ,(substring (file-name-base filename) 0 (min 27 (string-width (file-name-base filename)))))
                          (parametercount . 0)
                          (contentsize . ,(length content)))
                        ))

          ;;; write to hdd as ready to use fxp patch
          (let ((coding-system-for-write 'binary))
            (write-region (concat header content) nil (concat (file-name-directory filename) (file-name-base filename) ".fxp"))))
        ;; search for avgr patches
        (directory-files-recursively avenger-content-path "\\.avgr$"))