Mercurial > rlm

view src/rlm/music_lol.clj @ 0:78a630e650d2

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
initial import
author Robert McIntyre <rlm@mit.edu>
date Tue, 18 Oct 2011 00:57:08 -0700
parents
children
line wrap: on
line source
     1 (ns rlm.music-lol)



     2 (require 'rlm.ns-rlm)



     3 (require 'rlm.light-base)



     4 (rlm.ns-rlm/ns-clone rlm.light-base)



     5 



     6 



     7 (def base "/home/r/MIT/21M/21M.011/21M.011-music/")



     8 



     9 (defn disk [n path]



    10   (file-str (str base "/disk-" n "/" path)))



    11 



    12 



    13 



    14 (def listenings



    15      {:anonymous



    16       (disk 1 "47.Anonymous-Alleluia_-_Vidimus_Stellam.flac")



    17 



    18       :hildegard-of-bingen



    19       (disk 1 "50.Hildegard_of_Bingen-O_successores.flac")



    20 



    21       :llibre-vermell-de-montserrat



    22       (file-str base "Gregorian Chant (Advocatam) Llibre Vermell de Montserrat.mp4")



    23 



    24 



    25       })



    26