;======================================
;OM-Lead, 2022-2023
;
;Library for Rule-based Voice-Leading
;Author: Lorenz Lehmann
;Supervision: Marlon Schumacher
;======================================


(defpackage :omlead) 
(in-package :omlead)

;--------------------------------------------------
;Variable definiton with files to load 
;--------------------------------------------------


(defvar *initfile* *load-pathname*)

(defun lib-src-file (name)
  (make-pathname :directory (append (pathname-directory *initfile*) (list "sources")) 
                 :name name))

(defvar *OMLead-files* nil)
(setf *OMLead-files* '("harmon-database"
                       "harmon-progress"
                       "get-score"
                       "harmon-rhythm"
                      ))

;--------------------------------------------------
;Loading files 
;--------------------------------------------------

(mapc #'(lambda (filename) 
          (om::compile&load (namestring (lib-src-file filename))))
      *OMLead-files*)

;--------------------------------------------------
; OM subpackages initialization
; ("sub-pack-name" subpacke-lists class-list function-list class-alias-list)
;--------------------------------------------------
(defvar *svppackages-list* nil)
(setf *subpackages-list* 
      '((Nil Nil Nil (omlead::harmon-database omlead::harmon-progress omlead::get-score omlead::harmon-rhythm) Nil)))

;--------------------------------------------------
;filling packages
;--------------------------------------------------
(om::fill-library *subpackages-list*)