flewkey/tooty
1
0
Fork 0
Code Releases Activity

Add application link to client name (#9)

Browse Source 
When you publish a toot the client name is associated to the toot.
By defining the `website` parameter in Mastodon model, it is automatically associated.
This commit is contained in:
Jérémy Benoist 2017-04-20 19:12:23 +02:00 committed by Nicolas Perriault
parent c769df0933
commit 1c8559e4ad
2 changed files with 7 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
src/Mastodon.elm
View File

@ -169,12 +169,13 @@ type alias AccessTokenResult =
-- Encoders
appRegistrationEncoder : String -> String -> String -> Encode.Value
appRegistrationEncoder client_name redirect_uris scope =
appRegistrationEncoder : String -> String -> String -> String -> Encode.Value
appRegistrationEncoder client_name redirect_uris scope website =
Encode.object
[ ( "client_name", Encode.string client_name )
, ( "redirect_uris", Encode.string redirect_uris )
, ( "scopes", Encode.string scope )
, ( "website", Encode.string website )
]
@ -366,11 +367,11 @@ registrationEncoder registration =
]
register : Server -> String -> String -> String -> HttpBuilder.RequestBuilder AppRegistration
register server client_name redirect_uri scope =
register : Server -> String -> String -> String -> String -> HttpBuilder.RequestBuilder AppRegistration
register server client_name redirect_uri scope website =
HttpBuilder.post (server ++ "/api/v1/apps")
|> HttpBuilder.withExpect (Http.expectJson (appRegistrationDecoder server scope))
|> HttpBuilder.withJsonBody (appRegistrationEncoder client_name redirect_uri scope)
|> HttpBuilder.withJsonBody (appRegistrationEncoder client_name redirect_uri scope website)
getAuthorizationUrl : AppRegistration -> String

1
src/Model.elm
View File

@ -95,6 +95,7 @@ registerApp { server, location } =
"tooty"
appUrl
"read write follow"
appUrl
|> Mastodon.send AppRegistered