Config: add compile_get!

It utilizes
[`Application.compile_env!`](https://github.com/elixir-lang/elixir/pull/9628)
to crash the application when compile-time configuration is attempted to
be set at runtime. If `Application.compile_env!` is not available it just falls back to
regular `Pleroma.Config.get``

lib/pleroma/config.ex

@@ -34,6 +34,18 @@ defmodule Pleroma.Config do
     end
   end
 
+  defmacro compile_get!(key) do
+    if function_exported?(Application, :__compile_env__!, 3) do
+      quote do
+        Application.compile_env!(:pleroma, unquote(key))
+      end
+    else
+      quote do
+        get(unquote(key))
+      end
+    end
+  end
+
   def put([key], value), do: put(key, value)
 
   def put([parent_key | keys], value) do

lib/pleroma/html.ex

@@ -105,12 +105,12 @@ defmodule Pleroma.HTML.Scrubber.TwitterText do
   An HTML scrubbing policy which limits to twitter-style text.  Only
   paragraphs, breaks and links are allowed through the filter.
   """
-
-  @valid_schemes Pleroma.Config.get([:uri_schemes, :valid_schemes], [])
-
   require FastSanitize.Sanitizer.Meta
+  require Pleroma.Config
   alias FastSanitize.Sanitizer.Meta
 
+  @valid_schemes Pleroma.Config.compile_get!([:uri_schemes, :valid_schemes])
+
   Meta.strip_comments()
 
   # links
@@ -142,7 +142,8 @@ defmodule Pleroma.HTML.Scrubber.TwitterText do
   Meta.allow_tag_with_these_attributes(:span, [])
 
   # allow inline images for custom emoji
-  if Pleroma.Config.get([:markup, :allow_inline_images]) do
+  @allow_inline_images Pleroma.Config.compile_get!([:markup, :allow_inline_images])
+  if @allow_inline_images do
     # restrict img tags to http/https only, because of MediaProxy.
     Meta.allow_tag_with_uri_attributes(:img, ["src"], ["http", "https"])
 
@@ -162,12 +163,13 @@ defmodule Pleroma.HTML.Scrubber.Default do
   @doc "The default HTML scrubbing policy: no "
 
   require FastSanitize.Sanitizer.Meta
+  require Pleroma.Config
   alias FastSanitize.Sanitizer.Meta
 
   # credo:disable-for-previous-line
   # No idea how to fix this one…
 
-  @valid_schemes Pleroma.Config.get([:uri_schemes, :valid_schemes], [])
+  @valid_schemes Pleroma.Config.compile_get!([:uri_schemes, :valid_schemes])
 
   Meta.strip_comments()
 
@@ -213,7 +215,7 @@ defmodule Pleroma.HTML.Scrubber.Default do
   Meta.allow_tag_with_this_attribute_values(:span, "class", ["h-card"])
   Meta.allow_tag_with_these_attributes(:span, [])
 
-  @allow_inline_images Pleroma.Config.get([:markup, :allow_inline_images])
+  @allow_inline_images Pleroma.Config.compile_get!([:markup, :allow_inline_images])
 
   if @allow_inline_images do
     # restrict img tags to http/https only, because of MediaProxy.
@@ -228,7 +230,9 @@ defmodule Pleroma.HTML.Scrubber.Default do
     ])
   end
 
-  if Pleroma.Config.get([:markup, :allow_tables]) do
+  @allow_tables Pleroma.Config.compile_get!([:markup, :allow_tables])
+
+  if @allow_tables do
     Meta.allow_tag_with_these_attributes(:table, [])
     Meta.allow_tag_with_these_attributes(:tbody, [])
     Meta.allow_tag_with_these_attributes(:td, [])
@@ -237,7 +241,8 @@ defmodule Pleroma.HTML.Scrubber.Default do
     Meta.allow_tag_with_these_attributes(:tr, [])
   end
 
-  if Pleroma.Config.get([:markup, :allow_headings]) do
+  @allow_headings Pleroma.Config.compile_get!([:markup, :allow_headings])
+  if @allow_headings do
     Meta.allow_tag_with_these_attributes(:h1, [])
     Meta.allow_tag_with_these_attributes(:h2, [])
     Meta.allow_tag_with_these_attributes(:h3, [])
@@ -245,7 +250,8 @@ defmodule Pleroma.HTML.Scrubber.Default do
     Meta.allow_tag_with_these_attributes(:h5, [])
   end
 
-  if Pleroma.Config.get([:markup, :allow_fonts]) do
+  @allow_fonts Pleroma.Config.compile_get!([:markup, :allow_fonts])
+  if @allow_fonts do
     Meta.allow_tag_with_these_attributes(:font, ["face"])
   end
 
@@ -289,12 +295,12 @@ defmodule Pleroma.HTML.Scrubber.LinksOnly do
   @moduledoc """
   An HTML scrubbing policy which limits to links only.
   """
-
-  @valid_schemes Pleroma.Config.get([:uri_schemes, :valid_schemes], [])
-
   require FastSanitize.Sanitizer.Meta
+  require Pleroma.Config
   alias FastSanitize.Sanitizer.Meta
 
+  @valid_schemes Pleroma.Config.compile_get!([:uri_schemes, :valid_schemes])
+
   Meta.strip_comments()
 
   # links

lib/pleroma/web/oauth/token/clean_worker.ex

@@ -11,11 +11,6 @@ defmodule Pleroma.Web.OAuth.Token.CleanWorker do
   @ten_seconds 10_000
   @one_day 86_400_000
 
-  @interval Pleroma.Config.get(
-              [:oauth2, :clean_expired_tokens_interval],
-              @one_day
-            )
-
   alias Pleroma.Web.OAuth.Token
   alias Pleroma.Workers.BackgroundWorker
 
@@ -29,8 +24,9 @@ defmodule Pleroma.Web.OAuth.Token.CleanWorker do
   @doc false
   def handle_info(:perform, state) do
     BackgroundWorker.enqueue("clean_expired_tokens", %{})
+    interval = Pleroma.Config.get([:oauth2, :clean_expired_tokens_interval], @one_day)
 
-    Process.send_after(self(), :perform, @interval)
+    Process.send_after(self(), :perform, interval)
     {:noreply, state}
   end