PageRenderTime 5ms CodeModel.GetById 2ms app.highlight 1ms RepoModel.GetById 1ms app.codeStats 0ms

/modules/mod_base/actions/action_base_move.erl

http://github.com/zotonic/zotonic
Erlang | 30 lines | 11 code | 3 blank | 16 comment | 0 complexity | 28e079ebc62399e9f515742e4f7c50fb MD5 | raw file
 1%% @author Marc Worrell <marc@worrell.nl>
 2%% @copyright 2010 Marc Worrell
 3%% @doc Move an element to another place, appending it to the target.
 4
 5%% Copyright 2010 Marc Worrell
 6%%
 7%% Licensed under the Apache License, Version 2.0 (the "License");
 8%% you may not use this file except in compliance with the License.
 9%% You may obtain a copy of the License at
10%% 
11%%     http://www.apache.org/licenses/LICENSE-2.0
12%% 
13%% Unless required by applicable law or agreed to in writing, software
14%% distributed under the License is distributed on an "AS IS" BASIS,
15%% WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
16%% See the License for the specific language governing permissions and
17%% limitations under the License.
18
19-module(action_base_move).
20-include("zotonic.hrl").
21-export([render_action/4]).
22
23render_action(_TriggerId, TargetId, Args, Context) ->
24    EltSel = case proplists:get_value(element_sel, Args) of
25                undefined -> [$#, proplists:get_value(element, Args, "none") ];
26                Sel -> z_render:css_selector(Sel)
27             end,
28    CssSelector = z_render:css_selector(proplists:get_value(id, Args, TargetId), Args),
29    {[<<"$(">>, z_render:quote_css_selector(EltSel), 
30      <<").append($(">>, z_render:quote_css_selector(CssSelector), $), $), $;], Context}.