Mercurial > rlm
annotate src/rlm/music_lol.clj @ 0:78a630e650d2
initial import
| author | Robert McIntyre <rlm@mit.edu> |
|---|---|
| date | Tue, 18 Oct 2011 00:57:08 -0700 |
| parents | |
| children |
| rev | line source |
|---|---|
| rlm@0 | 1 (ns rlm.music-lol) |
| rlm@0 | 2 (require 'rlm.ns-rlm) |
| rlm@0 | 3 (require 'rlm.light-base) |
| rlm@0 | 4 (rlm.ns-rlm/ns-clone rlm.light-base) |
| rlm@0 | 5 |
| rlm@0 | 6 |
| rlm@0 | 7 (def base "/home/r/MIT/21M/21M.011/21M.011-music/") |
| rlm@0 | 8 |
| rlm@0 | 9 (defn disk [n path] |
| rlm@0 | 10 (file-str (str base "/disk-" n "/" path))) |
| rlm@0 | 11 |
| rlm@0 | 12 |
| rlm@0 | 13 |
| rlm@0 | 14 (def listenings |
| rlm@0 | 15 {:anonymous |
| rlm@0 | 16 (disk 1 "47.Anonymous-Alleluia_-_Vidimus_Stellam.flac") |
| rlm@0 | 17 |
| rlm@0 | 18 :hildegard-of-bingen |
| rlm@0 | 19 (disk 1 "50.Hildegard_of_Bingen-O_successores.flac") |
| rlm@0 | 20 |
| rlm@0 | 21 :llibre-vermell-de-montserrat |
| rlm@0 | 22 (file-str base "Gregorian Chant (Advocatam) Llibre Vermell de Montserrat.mp4") |
| rlm@0 | 23 |
| rlm@0 | 24 |
| rlm@0 | 25 }) |
| rlm@0 | 26 |