部署一个简单的缩略 URL 的表单

最近微博好像把 github.io 下的域名屏蔽了，导致博客完全无法分享，就考虑通过短链接跳转绕开这一限制。考虑到 Mathematica 有现成的函数 URLShorten，直接使用即可。不过闲着无聊，就顺便部署了一个简单的缩略 URL 的表单: https://www.wolframcloud.com/obj/miroox/url-shorten。

本来想支持复制按钮的，然而 CopyToClipboard 在网页上不起作用，自己写 js 支持又出乎意料的麻烦，遂放弃。

部署用的代码：

CloudDeploy[
 FormPage[
  {"url", "URL:"} -> <|
    "Interpreter" -> "URL",
    "Hint" -> "Enter the URL to be shortened"
    |>,
  Row@{"Short URL: ", Hyperlink@ URLShorten[#url]} &,
  AppearanceRules -> <|
    "Title" -> "Shorten your URL"
    |>
  ],
 "url-shorten",
 Permissions -> "Public"
 ]