j@310: (cl:in-package #:amuse-midi-db)
j@310: 
j@310: (connect-to-database :database-name "amuse"
j@310: 		     :username "jamief") ; needs to be adequate permissions
j@310: 
j@310: (create-midi-db-tables *amuse-database*)
j@310: 
j@310: ;(drop-midi-db-tables *amuse-database*)
j@310: 
j@310: (register-new-implementation *package*)
j@310: 
j@310: 
j@310: ;;;=====================================================================
j@310: ;;; Import collections of drum loops (from Marcus)
j@310: ;;;=====================================================================
j@310: 
j@310: ;;; Dangerous Drums
j@310: (let ((collection-identifier
j@310:        (register-new-collection "Dangerous Drums"
j@310: 				"Collection of drum loops. Each 'composition' is a collection of loops on separate tracks."
j@310: 				*amuse-database*)))
j@310: 
j@310:   (import-midifiles
j@310:    "/home/jamie/Music/MIDIFiles/MarcusMIDIFiles/DangerousDrums/"
j@310:    collection-identifier
j@310:    *amuse-database*))
j@310: 
j@310: 
j@310: ;;; LA Riot v1
j@310: (let ((collection-identifier
j@310:        (register-new-collection "LA Riot V1"
j@310: 				"Collection of drum loops. Each 'composition' is a collection of loops on separate tracks."
j@310: 				*amuse-database*)))
j@310: 
j@310:   (import-midifiles
j@310:    "/home/jamie/Music/MIDIFiles/MarcusMIDIFiles/LARiotv1/"
j@310:    collection-identifier
j@310:    *amuse-database*))
j@310: 
j@310: ;;; Midi breakbeats v8
j@310: (let ((collection-identifier
j@310:        (register-new-collection "MIDI Breakbeats V8"
j@310: 				"Collection of drum loops. Each 'composition' is a collection of loops on separate tracks."
j@310: 				*amuse-database*)))
j@310: 
j@310:   (import-midifiles
j@310:    "/home/jamie/Music/MIDIFiles/MarcusMIDIFiles/MIDIBreakbeatsv8/"
j@310:    collection-identifier
j@310:    *amuse-database*))
j@310: 
j@310: (disconnect-from-database)