You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
156 lines
4.0 KiB
156 lines
4.0 KiB
defmodule Linkify.Builder do
|
|
@moduledoc """
|
|
Module for building the auto generated link.
|
|
"""
|
|
|
|
@doc """
|
|
Create a link.
|
|
"""
|
|
def create_link(text, opts) do
|
|
url = add_scheme(text)
|
|
|
|
[]
|
|
|> build_attrs(url, opts, :rel)
|
|
|> build_attrs(url, opts, :target)
|
|
|> build_attrs(url, opts, :class)
|
|
|> build_attrs(url, opts, :href)
|
|
|> format_url(text, opts)
|
|
end
|
|
|
|
defp build_attrs(attrs, uri, %{rel: get_rel}, :rel) when is_function(get_rel, 1) do
|
|
case get_rel.(uri) do
|
|
nil -> attrs
|
|
rel -> [{:rel, rel} | attrs]
|
|
end
|
|
end
|
|
|
|
defp build_attrs(attrs, _, opts, :rel) do
|
|
case Map.get(opts, :rel) do
|
|
rel when is_binary(rel) -> [{:rel, rel} | attrs]
|
|
_ -> attrs
|
|
end
|
|
end
|
|
|
|
defp build_attrs(attrs, _, opts, :target) do
|
|
if Map.get(opts, :new_window), do: [{:target, :_blank} | attrs], else: attrs
|
|
end
|
|
|
|
defp build_attrs(attrs, _, opts, :class) do
|
|
case Map.get(opts, :class) do
|
|
cls when is_binary(cls) -> [{:class, cls} | attrs]
|
|
_ -> attrs
|
|
end
|
|
end
|
|
|
|
defp build_attrs(attrs, url, _opts, :href) do
|
|
[{:href, url} | attrs]
|
|
end
|
|
|
|
defp add_scheme("http://" <> _ = url), do: url
|
|
defp add_scheme("https://" <> _ = url), do: url
|
|
defp add_scheme(url), do: "http://" <> url
|
|
|
|
defp format_url(attrs, url, opts) do
|
|
url =
|
|
url
|
|
|> strip_prefix(Map.get(opts, :strip_prefix, false))
|
|
|> truncate(Map.get(opts, :truncate, false))
|
|
|
|
attrs = format_attrs(attrs)
|
|
"<a #{attrs}>#{url}</a>"
|
|
end
|
|
|
|
defp format_attrs(attrs) do
|
|
attrs
|
|
|> Enum.map(fn {key, value} -> ~s(#{key}="#{value}") end)
|
|
|> Enum.join(" ")
|
|
end
|
|
|
|
defp truncate(url, false), do: url
|
|
defp truncate(url, len) when len < 3, do: url
|
|
|
|
defp truncate(url, len) do
|
|
if String.length(url) > len, do: String.slice(url, 0, len - 2) <> "...", else: url
|
|
end
|
|
|
|
defp strip_prefix(url, true) do
|
|
url
|
|
|> String.replace(~r/^https?:\/\//, "")
|
|
|> String.replace(~r/^www\./, "")
|
|
end
|
|
|
|
defp strip_prefix(url, _), do: url
|
|
|
|
def create_mention_link("@" <> name, _buffer, opts) do
|
|
mention_prefix = opts[:mention_prefix]
|
|
|
|
url = mention_prefix <> name
|
|
|
|
[]
|
|
|> build_attrs(url, opts, :rel)
|
|
|> build_attrs(url, opts, :target)
|
|
|> build_attrs(url, opts, :class)
|
|
|> build_attrs(url, opts, :href)
|
|
|> format_mention(name, opts)
|
|
end
|
|
|
|
def create_hashtag_link("#" <> tag, _buffer, opts) do
|
|
hashtag_prefix = opts[:hashtag_prefix]
|
|
|
|
url = hashtag_prefix <> tag
|
|
|
|
[]
|
|
|> build_attrs(url, opts, :rel)
|
|
|> build_attrs(url, opts, :target)
|
|
|> build_attrs(url, opts, :class)
|
|
|> build_attrs(url, opts, :href)
|
|
|> format_hashtag(tag, opts)
|
|
end
|
|
|
|
def create_email_link(email, opts) do
|
|
[]
|
|
|> build_attrs(email, opts, :class)
|
|
|> build_attrs("mailto:#{email}", opts, :href)
|
|
|> format_email(email, opts)
|
|
end
|
|
|
|
def create_extra_link(uri, opts) do
|
|
[]
|
|
|> build_attrs(uri, opts, :class)
|
|
|> build_attrs(uri, opts, :rel)
|
|
|> build_attrs(uri, opts, :target)
|
|
|> build_attrs(uri, opts, :href)
|
|
|> format_extra(uri, opts)
|
|
end
|
|
|
|
def create_youtube(text, _opts) do
|
|
id = get_video_id(text)
|
|
"<div class=\"embed-responsive embed-responsive-16by9\"><iframe class=\"embed-responsive-item\" src=\"https://www.youtube.com/embed/#{id}\" frameborder=\"0\" allow=\"accelerometer; autoplay; encrypted-media; gyroscope; picture-in-picture\" allowfullscreen></iframe></div>"
|
|
end
|
|
|
|
Enum.each(["", "http://", "https://"], fn protocol ->
|
|
Enum.each(["youtu.be/", "www.youtube.com/watch?v=", "www.youtube.com/?v="], fn prefix ->
|
|
def get_video_id(unquote(protocol <> prefix) <> id), do: id
|
|
end)
|
|
end)
|
|
|
|
def format_mention(attrs, name, _opts) do
|
|
attrs = format_attrs(attrs)
|
|
"<a #{attrs}>@#{name}</a>"
|
|
end
|
|
|
|
def format_hashtag(attrs, tag, _opts) do
|
|
attrs = format_attrs(attrs)
|
|
"<a #{attrs}>##{tag}</a>"
|
|
end
|
|
|
|
def format_email(attrs, email, _opts) do
|
|
attrs = format_attrs(attrs)
|
|
~s(<a #{attrs}>#{email}</a>)
|
|
end
|
|
|
|
def format_extra(attrs, uri, _opts) do
|
|
attrs = format_attrs(attrs)
|
|
~s(<a #{attrs}>#{uri}</a>)
|
|
end
|
|
end
|