commit 230fa8e1c9ef64420fcc30b22a6874e209d44b3e · hauleth.dev/esl_hn

+25 -4

lib/esl_hn/cache.ex

···

       13
       13
        
           end

     

       14
       14
        
         end

     

       15
       15
        
       

     

       16
       16
       +
         @doc """

     

       17
       17
       +
         Fetch data from cache

     

       18
       18
       +
         """

     

       16
       19
        
         def fetch(tid, key) do

     

       17
       20
        
           meta = %{key: key, tid: tid}

     

       18
       21
        
       

     
···

       24
       27
        
           end)

     

       25
       28
        
         end

     

       26
       29
        
       

     

       30
       30
       +
         @doc """

     

       31
       31
       +
         Get data from cache and returns `default` when value isn't present

     

       32
       32
       +
         """

     

       27
       33
        
         def get(tid, key, default \\ nil) do

     

       28
       34
        
           case fetch(tid, key) do

     

       29
       35
        
             {:ok, val} -> val

     
···

       31
       37
        
           end

     

       32
       38
        
         end

     

       33
       39
        
       

     

       40
       40
       +
         @doc """

     

       41
       41
       +
         Write `data` to cache under `key`

     

       42
       42
       +
         """

     

       34
       43
        
         def write(tid, key, data) do

     

       35
       44
        
           meta = %{key: key, tid: tid}

     

       36
       45
        
       

     
···

       41
       50
        
           end)

     

       42
       51
        
         end

     

       43
       52
        
       

     

       53
       53
       +
         @doc """

     

       54
       54
       +
         Bulk write to cache

     

       55
       55
       +
         """

     

       44
       56
        
         def write_all(tid, data) do

     

       45
       57
        
           meta = %{tid: tid}

     

       46
       58
        
       

     
···

       51
       63
        
           end)

     

       52
       64
        
         end

     

       53
       65
        
       

     

       54
       54
       -
         def prune(tid, id) do

     

       55
       55
       -
           :ets.delete(tid, id)

     

       66
       66
       +
         @doc """

     

       67
       67
       +
         Remove value under given key from cache

     

       68
       68
       +
         """

     

       69
       69
       +
         def prune(tid, key) do

     

       70
       70
       +
           :ets.delete(tid, key)

     

       56
       71
        
       

     

       57
       72
        
           :ok

     

       58
       73
        
         end

     

       59
       74
        
       

     

       60
       60
       -
         def prune_all(tid, ids) do

     

       61
       61
       -
           for id <- ids, do: :ets.delete(tid, id)

     

       75
       75
       +
         @doc """

     

       76
       76
       +
         Bulk removal of values from cache

     

       77
       77
       +
         """

     

       78
       78
       +
         def prune_all(tid, keys) do

     

       79
       79
       +
           for key <- keys, do: :ets.delete(tid, key)

     

       62
       80
        
       

     

       63
       81
        
           :ok

     

       64
       82
        
         end

     

       65
       83
        
       

     

       84
       84
       +
         @doc """

     

       85
       85
       +
         Remove all cached data

     

       86
       86
       +
         """

     

       66
       87
        
         def flush(tid) do

     

       67
       88
        
           :ets.delete_all_objects(tid)

     

       68
       89

+15

lib/esl_hn/config_reader.ex

···

       6
       6
        
         something like that

     

       7
       7
        
         """

     

       8
       8
        
       

     

       9
       9
       +
         @doc """

     

       10
       10
       +
         Fetch duration from environment variable `name`

     

       11
       11
       +
       

     

       12
       12
       +
         The return value will be in milliseconds.

     

       13
       13
       +
       

     

       14
       14
       +
         Supported formats are:

     

       15
       15
       +
         - `{integer}` - number of milliseconds in duration

     

       16
       16
       +
         - `{integer}(s|m|h)` - number of seconds|minutes|hours in duration

     

       17
       17
       +
       

     

       18
       18
       +
         If environment variable is not set, then it will use `default` value.

     

       19
       19
       +
         """

     

       20
       20
       +
         @spec duration(name :: String.t(), default :: duration) :: non_neg_integer()

     

       21
       21
       +
               when duration:

     

       22
       22
       +
                      non_neg_integer()

     

       23
       23
       +
                      | {:seconds | :minutes | :hours, non_neg_integer()}

     

       9
       24
        
         def duration(name, default) do

     

       10
       25
        
           case System.fetch_env(name) do

     

       11
       26
        
             :error -> default

+19

lib/esl_hn/hn.ex

···

       5
       5
        
       

     

       6
       6
        
         alias EslHn.Hn.Story

     

       7
       7
        
       

     

       8
       8
       +
         @type opts() :: keyword()

     

       9
       9
       +
       

     

       10
       10
       +
         @doc """

     

       11
       11
       +
         Fetch list of top stories

     

       12
       12
       +
       

     

       13
       13
       +
         ## Options

     

       14
       14
       +
       

     

       15
       15
       +
         - `:limit` - amount of stories to fetch (defaults to `50`)

     

       16
       16
       +
         """

     

       8
       17
        
         # TODO: Is there a way to limit amount of returned entries in query?

     

       18
       18
       +
         @spec top_stories_ids(opts()) :: {:ok, [Story.id()]} | {:error, term()}

     

       9
       19
        
         def top_stories_ids(opts \\ []) do

     

       10
       20
        
           limit = opts[:limit] || 50

     

       11
       21
        
       

     
···

       14
       24
        
           end

     

       15
       25
        
         end

     

       16
       26
        
       

     

       27
       27
       +
         @doc """

     

       28
       28
       +
         Fetch single story for given ID

     

       29
       29
       +
         """

     

       30
       30
       +
         @spec story(Story.id(), opts()) :: {:ok, Story.t()} | {:error, term()}

     

       17
       31
        
         def story(id, opts \\ []) do

     

       18
       32
        
           with {:ok, body} <- get("item/:id.json", [id: id], opts) do

     

       19
       33
        
             Story.changeset(body)

     
···

       21
       35
        
           end

     

       22
       36
        
         end

     

       23
       37
        
       

     

       38
       38
       +
         @doc """

     

       39
       39
       +
         Fetch stories for IDs in enumerable

     

       40
       40
       +
         """

     

       41
       41
       +
         @spec stories(Enumerable.t(Story.id()), opts()) ::

     

       42
       42
       +
                 {:ok, [Story.t()]} | {:error, term()}

     

       24
       43
        
         def stories(ids, opts \\ []) do

     

       25
       44
        
           ids

     

       26
       45
        
           |> Task.async_stream(&story(&1, opts))

+9

lib/esl_hn/hn/story.ex

···

       11
       11
        
       

     

       12
       12
        
         @primary_key {:id, :integer, []}

     

       13
       13
        
       

     

       14
       14
       +
         @type id() :: non_neg_integer()

     

       15
       15
       +
       

     

       16
       16
       +
         @type t() :: %__MODULE__{

     

       17
       17
       +
                 id: id(),

     

       18
       18
       +
                 url: String.t() | nil,

     

       19
       19
       +
                 type: atom(),

     

       20
       20
       +
                 text: String.t()

     

       21
       21
       +
               }

     

       22
       22
       +
       

     

       14
       23
        
         embedded_schema do

     

       15
       24
        
           # TODO: Make it `URL` structure

     

       16
       25
        
           field :url, :string

+1

lib/esl_hn/refresher.ex

···

       2
       2
        
         @moduledoc """

     

       3
       3
        
         Module defining process that is responsible for refreshing cached data

     

       4
       4
        
         """

     

       5
       5
       +
       

     

       5
       6
        
         use GenServer

     

       6
       7
        
       

     

       7
       8
        
         alias EslHn.Hn