Packages

mpgit

0.1.1
0.1.1 0.1.0

A library for git commands.

Current section

Files

Jump to
Readme
2 Versions
1 Dependency
Dependants
Files
Activity
mpgit src mpgit_lib.erl
Raw

src/mpgit_lib.erl 

-module(mpgit_lib).



-export([get_current_branch/0]).



%%==============================================================================

%% API functions

%%==============================================================================



get_current_branch() ->

    gitrun(["symbolic-ref", "--short", "HEAD"]).



%%==============================================================================

%% Internal functions

%%==============================================================================



gitrun(WordList) ->

    Cmd = string_join(["git"|WordList]),

    os_cmd(Cmd).



string_join(ListOfStrings) ->

    lists:flatten(lists:join(" ", ListOfStrings)).



os_cmd(Cmd) ->

    string:trim(os:cmd(Cmd)).