diff --git a/Jellyfin.Plugin.SmartPlaylist/PluginConfiguration.cs b/Jellyfin.Plugin.SmartPlaylist/PluginConfiguration.cs
index 8683203..df85ba9 100644
--- a/Jellyfin.Plugin.SmartPlaylist/PluginConfiguration.cs
+++ b/Jellyfin.Plugin.SmartPlaylist/PluginConfiguration.cs
@@ -5,14 +5,36 @@ namespace Jellyfin.Plugin.SmartPlaylist {
         public PluginConfiguration() {
             InitialProgram = """
             (begin
-              (define lower (lambda (s) (invoke s "ToLower" nil)))
-              (define is-genre (lambda (g g-list) (any (lambda (x) (invoke (lower x) "Contains" (list (lower g)))) g-list)))
-              (define is-genre-exact (lambda (g g-list) (find g g-list)))
-              (define genre-list (lambda nil (let (_g (getitems item "Genres")) (if (null _g) nil (car _g)))))
-              (define is-favorite (lambda nil (invoke item "IsFavoriteOrLiked" (list user))))
-              (define is-type (lambda (x) (and (haskeys item "GetClientTypeName") (invoke (invoke item "GetClientTypeName" nil) "Equals" (list x)))))
-              (define name-contains (lambda (x) (invoke (lower (car (getitems item "Name"))) "Contains" (list (lower x)))))
-
+              (define lower
+                (lambda (s)
+                  (invoke s "ToLower" nil)))
+              (define is-genre
+                (lambda (g g-list)
+                  (any
+                    (lambda (x)
+                      (invoke (lower x) "Contains" (list (lower g))))
+                    g-list)))
+              (define is-genre-exact
+                (lambda (g g-list)
+                  (find g g-list)))
+              (define genre-list
+                (lambda nil
+                  (let
+                    (_g (getitems item "Genres"))
+                    (if (null _g)
+                      nil
+                      (car _g)))))
+              (define is-favorite
+                (lambda nil
+                  (invoke item "IsFavoriteOrLiked" (list user))))
+              (define is-type
+                (lambda (x)
+                  (and
+                    (haskeys item "GetClientTypeName")
+                    (invoke (invoke item "GetClientTypeName" nil) "Equals" (list x)))))
+              (define name-contains
+                (lambda (x)
+                  (invoke (lower (car (getitems item "Name"))) "Contains" (list (lower x)))))
               (define is-favourite is-favorite))
             """;
         }