Page Menu
Home
Phorge
Search
Configure Global Search
Log In
Files
F7889848
emoji.ex
No One
Temporary
Actions
Download File
Edit File
Delete File
View Transforms
Subscribe
Award Token
Flag For Later
Size
5 KB
Referenced Files
None
Subscribers
None
emoji.ex
View Options
# Pleroma: A lightweight social networking server
# Copyright © 2017-2019 Pleroma Authors <https://pleroma.social/>
# SPDX-License-Identifier: AGPL-3.0-only
defmodule
Pleroma.Emoji
do
@moduledoc
"""
The emojis are loaded from:
* the built-in Finmojis (if enabled in configuration),
* the files: `config/emoji.txt` and `config/custom_emoji.txt`
* glob paths, nested folder is used as tag name for grouping e.g. priv/static/emoji/custom/nested_folder
This GenServer stores in an ETS table the list of the loaded emojis, and also allows to reload the list at runtime.
"""
use
GenServer
@type
pattern
::
Regex
.
t
()
|
module
()
|
String
.
t
()
@type
patterns
::
pattern
()
|
[
pattern
()]
@type
group_patterns
::
keyword
(
patterns
())
@ets
__MODULE__
.
Ets
@ets_options
[
:ordered_set
,
:protected
,
:named_table
,
{
:read_concurrency
,
true
}]
@groups
Application
.
get_env
(
:pleroma
,
:emoji
)[
:groups
]
@doc
false
def
start_link
do
GenServer
.
start_link
(
__MODULE__
,
[],
name
:
__MODULE__
)
end
@doc
"Reloads the emojis from disk."
@spec
reload
()
::
:ok
def
reload
do
GenServer
.
call
(
__MODULE__
,
:reload
)
end
@doc
"Returns the path of the emoji `name`."
@spec
get
(
String
.
t
())
::
String
.
t
()
|
nil
def
get
(
name
)
do
case
:ets
.
lookup
(
@ets
,
name
)
do
[{
_
,
path
}]
->
path
_
->
nil
end
end
@doc
"Returns all the emojos!!"
@spec
get_all
()
::
[{
String
.
t
(),
String
.
t
()},
...
]
def
get_all
do
:ets
.
tab2list
(
@ets
)
end
@doc
false
def
init
(
_
)
do
@ets
=
:ets
.
new
(
@ets
,
@ets_options
)
GenServer
.
cast
(
self
(),
:reload
)
{
:ok
,
nil
}
end
@doc
false
def
handle_cast
(
:reload
,
state
)
do
load
()
{
:noreply
,
state
}
end
@doc
false
def
handle_call
(
:reload
,
_from
,
state
)
do
load
()
{
:reply
,
:ok
,
state
}
end
@doc
false
def
terminate
(
_
,
_
)
do
:ok
end
@doc
false
def
code_change
(
_old_vsn
,
state
,
_extra
)
do
load
()
{
:ok
,
state
}
end
defp
load
do
finmoji_enabled
=
Keyword
.
get
(
Application
.
get_env
(
:pleroma
,
:instance
),
:finmoji_enabled
)
shortcode_globs
=
Application
.
get_env
(
:pleroma
,
:emoji
)[
:shortcode_globs
]
||
[]
emojis
=
(
load_finmoji
(
finmoji_enabled
)
++
load_from_file
(
"config/emoji.txt"
)
++
load_from_file
(
"config/custom_emoji.txt"
)
++
load_from_globs
(
shortcode_globs
))
|>
Enum
.
reject
(
fn
value
->
value
==
nil
end
)
true
=
:ets
.
insert
(
@ets
,
emojis
)
:ok
end
@finmoji
[
"a_trusted_friend"
,
"alandislands"
,
"association"
,
"auroraborealis"
,
"baby_in_a_box"
,
"bear"
,
"black_gold"
,
"christmasparty"
,
"crosscountryskiing"
,
"cupofcoffee"
,
"education"
,
"fashionista_finns"
,
"finnishlove"
,
"flag"
,
"forest"
,
"four_seasons_of_bbq"
,
"girlpower"
,
"handshake"
,
"happiness"
,
"headbanger"
,
"icebreaker"
,
"iceman"
,
"joulutorttu"
,
"kaamos"
,
"kalsarikannit_f"
,
"kalsarikannit_m"
,
"karjalanpiirakka"
,
"kicksled"
,
"kokko"
,
"lavatanssit"
,
"losthopes_f"
,
"losthopes_m"
,
"mattinykanen"
,
"meanwhileinfinland"
,
"moominmamma"
,
"nordicfamily"
,
"out_of_office"
,
"peacemaker"
,
"perkele"
,
"pesapallo"
,
"polarbear"
,
"pusa_hispida_saimensis"
,
"reindeer"
,
"sami"
,
"sauna_f"
,
"sauna_m"
,
"sauna_whisk"
,
"sisu"
,
"stuck"
,
"suomimainittu"
,
"superfood"
,
"swan"
,
"the_cap"
,
"the_conductor"
,
"the_king"
,
"the_voice"
,
"theoriginalsanta"
,
"tomoffinland"
,
"torillatavataan"
,
"unbreakable"
,
"waiting"
,
"white_nights"
,
"woollysocks"
]
defp
load_finmoji
(
true
)
do
Enum
.
map
(
@finmoji
,
fn
finmoji
->
file_name
=
"/finmoji/128px/
#{
finmoji
}
-128.png"
group
=
match_extra
(
@groups
,
file_name
)
{
finmoji
,
file_name
,
to_string
(
group
)}
end
)
end
defp
load_finmoji
(
_
),
do
:
[]
defp
load_from_file
(
file
)
do
if
File
.
exists?
(
file
)
do
load_from_file_stream
(
File
.
stream!
(
file
))
else
[]
end
end
defp
load_from_file_stream
(
stream
)
do
stream
|>
Stream
.
map
(
&
String
.
trim
/
1
)
|>
Stream
.
map
(
fn
line
->
case
String
.
split
(
line
,
~r/,
\s
*/
)
do
[
name
,
file
,
tags
]
->
{
name
,
file
,
tags
}
[
name
,
file
]
->
{
name
,
file
,
to_string
(
match_extra
(
@groups
,
file
))}
_
->
nil
end
end
)
|>
Enum
.
to_list
()
end
defp
load_from_globs
(
globs
)
do
static_path
=
Path
.
join
(
:code
.
priv_dir
(
:pleroma
),
"static"
)
paths
=
Enum
.
map
(
globs
,
fn
glob
->
Path
.
join
(
static_path
,
glob
)
|>
Path
.
wildcard
()
end
)
|>
Enum
.
concat
()
Enum
.
map
(
paths
,
fn
path
->
tag
=
match_extra
(
@groups
,
Path
.
join
(
"/"
,
Path
.
relative_to
(
path
,
static_path
)))
shortcode
=
Path
.
basename
(
path
,
Path
.
extname
(
path
))
external_path
=
Path
.
join
(
"/"
,
Path
.
relative_to
(
path
,
static_path
))
{
shortcode
,
external_path
,
to_string
(
tag
)}
end
)
end
@doc
"""
Finds a matching group for the given emoji filename
"""
@spec
match_extra
(
group_patterns
(),
String
.
t
())
::
atom
()
|
nil
def
match_extra
(
group_patterns
,
filename
)
do
match_group_patterns
(
group_patterns
,
fn
pattern
->
case
pattern
do
%
Regex
{}
=
regex
->
Regex
.
match?
(
regex
,
filename
)
string
when
is_binary
(
string
)
->
filename
==
string
end
end
)
end
defp
match_group_patterns
(
group_patterns
,
matcher
)
do
Enum
.
find_value
(
group_patterns
,
fn
{
group
,
patterns
}
->
patterns
=
patterns
|>
List
.
wrap
()
|>
Enum
.
map
(
fn
pattern
->
if
String
.
contains?
(
pattern
,
"*"
)
do
~r(
#{
String
.
replace
(
pattern
,
"*"
,
".*"
)
}
)
else
pattern
end
end
)
Enum
.
any?
(
patterns
,
matcher
)
&&
group
end
)
end
end
File Metadata
Details
Attached
Mime Type
text/x-ruby
Expires
Thu, Oct 2, 2:46 AM (21 h, 34 m)
Storage Engine
blob
Storage Format
Raw Data
Storage Handle
487000
Default Alt Text
emoji.ex (5 KB)
Attached To
Mode
rPUBE pleroma-upstream
Attached
Detach File
Event Timeline
Log In to Comment