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