   {"kr" :kurzschrift
    "vd" :vollschrift})
 
+(def braille-music-grade-raw-to-braille-grade
+  "Mapping between braille-music-grade-raw and braille-grade"
+  {"ms" :kurzschrift
+   "vd" :vollschrift
+   "vs" :fixme})
+
 (defn get-subfield
   "Get the subfield text for the given `path` in the given `record`.
   Returns nil if there is no such subfield"

   :source-date [:datafield (attr= :tag "534") :subfield (attr= :code "d")] ; Erscheinungsjahr
   :language [:datafield (attr= :tag "041") :subfield (attr= :code "a")] ; Sprache
   :general-note [:datafield (attr= :tag "500") :subfield (attr= :code "a")] ; Land, Erscheinungsjahr (des Originalfilms)
   :accompanying_material [:datafield (attr= :tag "300") :subfield (attr= :code "e")] ; Begleitmaterial
   :personel-name [:datafield (attr= :tag "700") :subfield (attr= :code "a")] ; Regie oder Darsteller
   :personel-relator-term [:datafield (attr= :tag "700") :subfield (attr= :code "e")]
   :narrators [:datafield (attr= :tag "709") :subfield (attr= :code "a")] ; Sprecher

                 :game-materials game-materials))

      :e-book item
      :musiknoten (-> item
                      (assoc-some
                       :braille-grade (braille-music-grade-raw-to-braille-grade braille-music-grade)
                       :volumes volumes
                       :accompanying-material accompanying-material))
      :taktilesbuch item)))

(defn select-vals
