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@238: ;(create-midi-db-tables *amuse-database*) ; if not already created
j@236: 
j@236: ;(drop-midi-db-tables *amuse-database*)
j@236: 
j@238: ;(register-new-implementation *package*) ; if not already registered
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@238:    "/home/jamie/music/midifiles/marcus-midifiles/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@238:    "/home/jamie/music/midifiles/marcus-midifiles/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@238:    "/home/jamie/music/midifiles/marcus-midifiles/MIDIBreakbeatsv8/"
j@236:    collection-identifier
j@236:    *amuse-database*))
j@236: 
j@238: 
j@238: ;;;=====================================================================
j@238: ;;; Import Clapping Music (from Marcus)
j@238: ;;;=====================================================================
j@238: 
j@238: (let ((collection-identifier
j@242:        (register-new-collection "Minimalism"
j@242: 				"Minimalist midifile."
j@238: 				*amuse-database*)))
j@238: 
j@238:   (import-midifiles
j@242:    "/home/jamie/music/midifiles/modernism/reich/"
j@238:    collection-identifier
j@238:    *amuse-database*))
j@238: 
j@238: 
j@236: (disconnect-from-database)