-
Notifications
You must be signed in to change notification settings - Fork 206
/
m_modules.erl
70 lines (57 loc) · 2.23 KB
/
m_modules.erl
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
%% @author Marc Worrell <marc@worrell.nl>
%% @copyright 2010 Marc Worrell
%% @date 2010-05-05
%%
%% @doc Model for the zotonic modules. List all modules, enabled or disabled.
%% Copyright 2010 Marc Worrell
%%
%% Licensed under the Apache License, Version 2.0 (the "License");
%% you may not use this file except in compliance with the License.
%% You may obtain a copy of the License at
%%
%% http://www.apache.org/licenses/LICENSE-2.0
%%
%% Unless required by applicable law or agreed to in writing, software
%% distributed under the License is distributed on an "AS IS" BASIS,
%% WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
%% See the License for the specific language governing permissions and
%% limitations under the License.
-module(m_modules).
-author("Marc Worrell <marc@worrell.nl").
-behaviour(gen_model).
%% interface functions
-export([
m_find_value/3,
m_to_list/2,
m_value/2,
all/1
]).
-include_lib("zotonic.hrl").
%% @doc Fetch the value for the key from a model source
%% @spec m_find_value(Key, Source, Context) -> term()
m_find_value(all, #m{value=undefined}, Context) ->
all(Context);
m_find_value(enabled, #m{value=undefined}, Context) ->
enabled(Context);
m_find_value(disabled, #m{value=undefined}, Context) ->
disabled(Context).
%% @doc Transform a m_config value to a list, used for template loops
%% @spec m_to_list(Source, Context)
m_to_list(#m{value=undefined}, Context) ->
all(Context).
%% @doc Transform a model value so that it can be formatted or piped through filters
%% @spec m_value(Source, Context) -> term()
m_value(#m{value=undefined}, Context) ->
all(Context).
%% @doc Return the list of modules
all(Context) ->
All = lists:sort(z_module_manager:all(Context)),
All1 = lists:filter(fun(M) -> z_module_manager:module_exists(M) end, All),
[ {Name, z_module_manager:title(Name)} || Name <- All1 ].
enabled(Context) ->
Mods = z_module_manager:active(Context),
lists:filter(fun(M) -> z_module_manager:module_exists(M) end, Mods).
disabled(Context) ->
All = z_module_manager:all(Context),
Active = z_module_manager:active(Context),
lists:filter(fun(M) -> (not lists:member(M, Active)) andalso z_module_manager:module_exists(M) end, All).