-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)).