28 lines
680 B
Elixir
28 lines
680 B
Elixir
defmodule Ketbin.Pastes.Utils do
|
|
defp rand_vowel do
|
|
String.graphemes("aeiou")
|
|
|> Enum.take_random(1)
|
|
|> Enum.at(0)
|
|
end
|
|
|
|
defp rand_consonant do
|
|
String.graphemes("bcdfghjklmnpqrstvwxyz")
|
|
|> Enum.take_random(1)
|
|
|> Enum.at(0)
|
|
end
|
|
|
|
def generate_key(length \\ 10) do
|
|
random = Enum.random([0, 1])
|
|
Enum.map(0..length, fn i -> if Integer.mod(i, 2) == random, do: rand_consonant(), else: rand_vowel() end)
|
|
|> List.to_string
|
|
end
|
|
|
|
def is_url?(url) do
|
|
try do
|
|
uri = URI.parse(url)
|
|
uri.scheme != nil && uri.host =~ "." && Enum.member?(["https", "http"], uri.scheme)
|
|
rescue
|
|
FunctionClauseError -> false
|
|
end
|
|
end
|
|
end |