Packages
fnord
0.8.14
0.9.40
0.9.39
0.9.38
0.9.37
0.9.36
0.9.35
0.9.34
0.9.33
0.9.32
0.9.31
0.9.30
0.9.29
0.9.28
0.9.27
0.9.26
0.9.25
0.9.24
0.9.23
0.9.22
0.9.21
0.9.20
0.9.19
0.9.18
0.9.17
0.9.16
0.9.15
0.9.14
0.9.13
0.9.12
0.9.11
0.9.10
0.9.9
0.9.8
0.9.7
0.9.6
0.9.5
0.9.4
0.9.3
0.9.2
0.9.1
0.9.0
0.8.99
0.8.98
0.8.97
0.8.96
0.8.95
0.8.94
0.8.93
0.8.92
0.8.91
0.8.90
0.8.89
0.8.88
0.8.87
0.8.86
0.8.85
0.8.84
0.8.83
0.8.82
0.8.81
0.8.80
0.8.79
0.8.78
0.8.77
0.8.76
0.8.75
0.8.74
0.8.73
0.8.72
0.8.71
0.8.70
0.8.69
0.8.68
0.8.67
0.8.66
0.8.65
0.8.64
0.8.63
0.8.62
0.8.61
0.8.60
0.8.59
0.8.58
0.8.57
0.8.56
0.8.55
0.8.54
0.8.53
0.8.52
0.8.51
0.8.50
0.8.49
0.8.48
0.8.47
0.8.46
0.8.45
0.8.44
0.8.43
0.8.42
0.8.41
0.8.40
0.8.39
0.8.38
0.8.37
0.8.36
0.8.35
0.8.34
0.8.33
0.8.32
0.8.31
0.8.30
0.8.29
0.8.27
0.8.26
0.8.25
0.8.24
0.8.23
0.8.22
0.8.21
0.8.20
0.8.19
0.8.18
0.8.17
0.8.16
0.8.15
0.8.14
0.8.13
0.8.12
0.8.11
0.8.1
0.8.0
0.7.24
0.7.23
0.7.22
0.7.21
0.7.20
0.7.19
0.7.18
0.7.17
0.7.16
0.7.15
0.7.14
0.7.13
0.7.12
0.7.11
0.7.10
0.7.9
0.7.8
0.7.7
0.7.6
0.7.5
0.7.3
0.7.2
0.7.1
0.7.0
0.6.9
0.6.8
0.6.7
0.6.6
0.6.5
0.6.4
0.6.3
0.6.1
0.6.0
0.5.9
0.5.8
0.5.7
0.5.6
0.5.5
0.5.4
0.5.3
0.5.2
0.5.1
0.5.0
0.4.44
0.4.43
0.4.42
0.4.41
0.4.40
0.4.39
0.4.38
0.4.37
0.4.36
0.4.35
0.4.34
0.4.33
0.4.32
0.4.30
0.4.29
0.4.28
0.4.27
0.4.26
0.4.25
0.4.24
0.4.23
0.4.22
0.4.21
0.4.20
0.4.19
0.4.18
0.4.17
0.4.16
0.4.15
0.4.14
0.4.13
0.4.12
0.4.11
0.4.10
0.4.9
0.4.8
0.4.7
0.4.6
0.4.5
0.4.4
0.4.3
0.4.2
0.4.1
0.4.0
0.3.0
0.2.0
0.1.0
AI code archaeology
Current section
Files
Jump to
Current section
Files
lib/settings.ex
defmodule Settings do
defstruct [:path, :data]
@type t :: %__MODULE__{}
@spec new() :: t()
def new() do
cleanup_default_project_dir()
%Settings{path: settings_file()}
|> slurp()
end
# ----------------------------------------------------------------------------
# Cleans up the "default" project directory within the store on startup.
#
# This function exists to remove any lingering "default" project data which
# might cause inconsistencies or conflicts. It is safe to call repeatedly
# and will not raise errors if the directory does not exist. Moreover, no
# code depends on this directory being present, so removing it has no adverse
# side effects.
# ----------------------------------------------------------------------------
defp cleanup_default_project_dir do
path = Path.join(home(), "default")
if File.exists?(path) do
File.rm_rf!(path)
end
end
@doc """
Get the path to the store root directory.
"""
@spec home() :: binary
def home() do
path = "#{System.get_env("HOME")}/.fnord"
File.mkdir_p!(path)
path
end
@doc """
Get the path to the settings file. If the file does not exist, it will be
created.
"""
@spec settings_file() :: binary
def settings_file() do
path = "#{home()}/settings.json"
if !File.exists?(path) do
File.write!(path, "{}")
end
path
end
@doc """
Get a value from the settings store.
"""
@spec get(t, binary, any()) :: any()
def get(settings, key, default \\ nil) do
key = make_key(key)
Map.get(settings.data, key, default)
end
@doc """
Set a value in the settings store.
"""
@spec set(t, binary, any()) :: t()
def set(settings, key, value) do
key = make_key(key)
%Settings{settings | data: Map.put(settings.data, key, value)}
|> spew()
end
@doc """
Delete a value from the settings store.
"""
@spec delete(t, binary) :: t()
def delete(settings, key) do
key = make_key(key)
%Settings{settings | data: Map.delete(settings.data, key)}
|> spew()
end
@doc """
Set the project name for the --project option.
"""
@spec set_project(binary) :: :ok
def set_project(project_name) do
Application.put_env(:fnord, :project, project_name)
NotesServer.load_notes()
:ok
end
@doc """
Check if the --project option is set.
"""
def project_is_set?() do
!is_nil(Application.get_env(:fnord, :project))
end
@doc """
Get the project specified with --project. If the project name is not set, an
error tuple is returned.
"""
@spec get_selected_project() :: {:ok, binary} | {:error, :project_not_set}
def get_selected_project() do
Application.get_env(:fnord, :project)
|> case do
nil -> {:error, :project_not_set}
project -> {:ok, project}
end
end
@spec get_project(t) :: {:ok, map()} | {:error, :project_not_found}
def get_project(settings) do
with {:ok, project} <- get_selected_project() do
case get(settings, project, nil) do
nil -> {:error, :project_not_found}
data -> {:ok, data}
end
end
end
@spec set_project(t, map()) :: map()
def set_project(settings, data) do
with {:ok, project} <- get_selected_project() do
set(settings, project, data)
data
else
{:error, :project_not_set} -> raise "Project not set. Use --project to specify a project."
end
end
@spec list_projects(t) :: [binary]
def list_projects(settings) do
settings.data
|> Map.keys()
|> Enum.sort()
end
@spec get_root(t) :: {:ok, binary} | {:error, :not_found}
def get_root(settings) do
settings
|> get_project()
|> case do
{:ok, %{"root" => root}} -> {:ok, Path.absname(root)}
{:error, _} -> {:error, :not_found}
end
end
defp slurp(settings) do
%Settings{
settings
| data: File.read!(settings.path) |> Jason.decode!()
}
end
defp spew(settings) do
File.write!(settings.path, Jason.encode!(settings.data, pretty: true))
settings
end
defp make_key(key) when is_atom(key), do: Atom.to_string(key)
defp make_key(key), do: key
end