69f0cfdc54
* Get @mention in model * Add autocomplete logic * Get accounts to autocomplete from the server * Add autocomplete css * Check if we should show menu on account search * Add keyboard events * Update status with completed username * Trigger autocomplete when getting accounts back * Highlight choices on hover * Put focus on textarea after updating it * Fix clear draft * Hit the server only on non empty query * Lazzzzzzzzzzzzzzzzyyyyyyyyyyyyyyyyyyyyyyyyyyyyyy * Add missing lazy * Add keyboard subscriptions * Add images and display name * Better menu visibility handling * Add lazy to notifications * Js formatting. * Improve styles. * Add unique keys to costly lists. * Fix tests. * Coding style nits. * Use the encodeUrl helper in ApiUrl. * Nanonit. * Improve autocomplete box styling. * CamelCase draft record * Move all autocomplete stuff to Draft * Send status to ports with the reply prefix. * Clear draft after posting a status. * Move ports setStatus call to a dedicated Command helper. * Naming. * Fix navigation with arrow keys in textarea * Always autoselect the first item of the menu
172 lines
3.2 KiB
Elm
172 lines
3.2 KiB
Elm
module Mastodon.ApiUrl
|
|
exposing
|
|
( apps
|
|
, oauthAuthorize
|
|
, oauthToken
|
|
, userAccount
|
|
, account
|
|
, accountTimeline
|
|
, followers
|
|
, following
|
|
, status
|
|
, homeTimeline
|
|
, publicTimeline
|
|
, notifications
|
|
, relationships
|
|
, statuses
|
|
, context
|
|
, reblog
|
|
, unreblog
|
|
, favourite
|
|
, unfavourite
|
|
, follow
|
|
, unfollow
|
|
, streaming
|
|
, searchAccount
|
|
)
|
|
|
|
import Mastodon.Encoder exposing (encodeUrl)
|
|
|
|
|
|
type alias Server =
|
|
String
|
|
|
|
|
|
apps : Server -> String
|
|
apps server =
|
|
server ++ "/api/v1/apps"
|
|
|
|
|
|
oauthAuthorize : Server -> String
|
|
oauthAuthorize server =
|
|
server ++ "/oauth/authorize"
|
|
|
|
|
|
oauthToken : Server -> String
|
|
oauthToken server =
|
|
server ++ "/oauth/token"
|
|
|
|
|
|
accounts : String
|
|
accounts =
|
|
"/api/v1/accounts/"
|
|
|
|
|
|
account : Int -> String
|
|
account id =
|
|
accounts ++ (toString id)
|
|
|
|
|
|
follow : Server -> Int -> String
|
|
follow server id =
|
|
server ++ accounts ++ (toString id) ++ "/follow"
|
|
|
|
|
|
unfollow : Server -> Int -> String
|
|
unfollow server id =
|
|
server ++ accounts ++ (toString id) ++ "/unfollow"
|
|
|
|
|
|
userAccount : Server -> String
|
|
userAccount server =
|
|
server ++ accounts ++ "verify_credentials"
|
|
|
|
|
|
searchAccount : Server -> String -> Int -> Bool -> String
|
|
searchAccount server query limit resolve =
|
|
encodeUrl (server ++ accounts ++ "search")
|
|
[ ( "q", query )
|
|
, ( "limit", toString limit )
|
|
, ( "resolve"
|
|
, if resolve then
|
|
"true"
|
|
else
|
|
"false"
|
|
)
|
|
]
|
|
|
|
|
|
relationships : List Int -> String
|
|
relationships ids =
|
|
encodeUrl (accounts ++ "relationships") <|
|
|
List.map (\id -> ( "id[]", toString id )) ids
|
|
|
|
|
|
followers : Int -> String
|
|
followers id =
|
|
(account id) ++ "/followers"
|
|
|
|
|
|
following : Int -> String
|
|
following id =
|
|
(account id) ++ "/following"
|
|
|
|
|
|
homeTimeline : String
|
|
homeTimeline =
|
|
"/api/v1/timelines/home"
|
|
|
|
|
|
publicTimeline : Maybe String -> String
|
|
publicTimeline local =
|
|
let
|
|
isLocal =
|
|
case local of
|
|
Just local ->
|
|
"?local=true"
|
|
|
|
Nothing ->
|
|
""
|
|
in
|
|
"/api/v1/timelines/public" ++ isLocal
|
|
|
|
|
|
accountTimeline : Int -> String
|
|
accountTimeline id =
|
|
(account id) ++ "/statuses"
|
|
|
|
|
|
notifications : String
|
|
notifications =
|
|
"/api/v1/notifications"
|
|
|
|
|
|
statuses : Server -> String
|
|
statuses server =
|
|
server ++ "/api/v1/statuses"
|
|
|
|
|
|
context : Server -> Int -> String
|
|
context server id =
|
|
statuses server ++ "/" ++ (toString id) ++ "/context"
|
|
|
|
|
|
reblog : Server -> Int -> String
|
|
reblog server id =
|
|
statuses server ++ "/" ++ (toString id) ++ "/reblog"
|
|
|
|
|
|
status : Server -> Int -> String
|
|
status server id =
|
|
statuses server ++ "/" ++ (toString id)
|
|
|
|
|
|
unreblog : Server -> Int -> String
|
|
unreblog server id =
|
|
statuses server ++ "/" ++ (toString id) ++ "/unreblog"
|
|
|
|
|
|
favourite : Server -> Int -> String
|
|
favourite server id =
|
|
statuses server ++ "/" ++ (toString id) ++ "/favourite"
|
|
|
|
|
|
unfavourite : Server -> Int -> String
|
|
unfavourite server id =
|
|
statuses server ++ "/" ++ (toString id) ++ "/unfavourite"
|
|
|
|
|
|
streaming : Server -> String
|
|
streaming server =
|
|
server ++ "/api/v1/streaming/"
|