Compare commits
No commits in common. "3f1a1e1a78eea005b454badab1f9c7ac9fb12525" and "e180b397c665e98034d36dd12a1a3ba310951379" have entirely different histories.
3f1a1e1a78
...
e180b397c6
2 changed files with 1 additions and 30 deletions
|
@ -39,8 +39,7 @@ namespace Jellyfin.Plugin.SmartPlaylist {
|
||||||
(define all-genres (lambda (want have) (all (lambda (x) (is-genre x have)) want)))
|
(define all-genres (lambda (want have) (all (lambda (x) (is-genre x have)) want)))
|
||||||
(define any-genres (lambda (want have) (any (lambda (x) (is-genre x have)) want)))
|
(define any-genres (lambda (want have) (any (lambda (x) (is-genre x have)) want)))
|
||||||
(define get-name (lambda (x) (car (getitems x "Name"))))
|
(define get-name (lambda (x) (car (getitems x "Name"))))
|
||||||
(define find-parent (lambda (typename) (invoke-generic item "FindParent" nil (list typename))))
|
(define find-parent (lambda (typename) (invoke-generic item "FindParent" nil (list typename)))))
|
||||||
(define find-artist (lambda nil (find-parent "MediaBrowser.Controller.Entities.Audio.MusicArtist, MediaBrowser.Controller"))))
|
|
||||||
""";
|
""";
|
||||||
}
|
}
|
||||||
public string InitialProgram { get; set; }
|
public string InitialProgram { get; set; }
|
||||||
|
|
28
examples.md
28
examples.md
|
@ -25,31 +25,3 @@
|
||||||
(is-genre "electro" g)
|
(is-genre "electro" g)
|
||||||
(is-genre "swing" g)))
|
(is-genre "swing" g)))
|
||||||
```
|
```
|
||||||
|
|
||||||
- `All of Seeed`: A playlist containing all items by artist `Seeed`,
|
|
||||||
useless, since you also can just navigate to the artist to play all
|
|
||||||
their songs, but a good example.
|
|
||||||
```
|
|
||||||
Id: Seeed
|
|
||||||
Name: Seeed
|
|
||||||
Program: |
|
|
||||||
(let
|
|
||||||
(parent
|
|
||||||
(invoke-generic item "FindParent" nil (list "MediaBrowser.Controller.Entities.Audio.MusicArtist, MediaBrowser.Controller")))
|
|
||||||
(cond
|
|
||||||
((null parent) nil)
|
|
||||||
(t (string= (car (getitems parent "Name")) "Haller"))))
|
|
||||||
```
|
|
||||||
or simplified with definitions contained in the preamble:
|
|
||||||
```
|
|
||||||
Id: Seeed
|
|
||||||
Name: Seeed
|
|
||||||
Program: |
|
|
||||||
(let
|
|
||||||
(parent
|
|
||||||
(find-parent "MediaBrowser.Controller.Entities.Audio.MusicArtist, MediaBrowser.Controller"))
|
|
||||||
(cond
|
|
||||||
((null parent) nil)
|
|
||||||
(t (string= (car (getitems parent "Name")) "Seeed"))))
|
|
||||||
|
|
||||||
```
|
|
||||||
|
|
Loading…
Reference in a new issue