songs are nearly working entirely

Still needs audio and text_alignment, but it's nearly finished, then
we can find a way to load an entire presentation at once and then
track the changes to the presentation, and load songs from the files

src/core/songs.rs

@@ -591,6 +591,7 @@ You saved my soul"
     pub fn test_lisp_conversion() {
         let value = test_lisp_song();
         let song = Song::from(value);
-        assert!(false, "{:?}", song);
+        let test_song = test_song();
+        assert_eq!(test_song, song);
     }
 }