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