You cannot select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
29 lines
717 B
Common Lisp
29 lines
717 B
Common Lisp
;;;; package.lisp
|
|
|
|
(defpackage #:seanut
|
|
(:use #:cl #:with-user-abort)
|
|
(:local-nicknames (:jzon :com.inuoe.jzon))
|
|
|
|
(:import-from :quri
|
|
:url-encode
|
|
:url-decode)
|
|
(:import-from :babel
|
|
:string-to-octets)
|
|
(:import-from :ironclad
|
|
:digest-sequence)
|
|
(:import-from :unix-opts
|
|
:get-opts
|
|
:define-opts)
|
|
(:import-from :com.inuoe.jzon
|
|
:parse))
|
|
|
|
(in-package :seanut)
|
|
|
|
(defvar *authorization-format*
|
|
"MediaBrowser Client=\"Seanut v~A\", Device=\"~A\", DeviceId=\"~A\", Version=\"~A\", Token=\"~A\"")
|
|
|
|
(defvar *valid-media-types*
|
|
'("AggregateFolder" "Audio" "AudioBook" "Book"
|
|
"BoxSet" "Movie" "MusicAlbum" "MusicArtist" "MusicGenre"
|
|
"MusicVideo" "Playlist" "Season" "Series" "Trailer"))
|