anchor.diff:  
   cmd("tag", Args) ->
       OptSpecList = [{path, undefined, undefined, binary, "tag path"}],
  -    {Opts, _} = erlduce_utils:getopts(OptSpecList, Args, [path], 0, 0, "tag",""),
  +    {Opts, _} = erlduce_utils:getopts(OptSpecList, Args, [path], 0, 0, "tag","\nCreate new TAG"),
       Path = proplists:get_value(path, Opts),
       erlduce_utils:resp( edfs:tag(Path)),
       halt();
  
positive.code: 
  cmd("ls", Args) ->
      OptSpecList = [{list, $l, undefined, undefined, "use a long listing format"}],
      {Opts, StrPaths} = erlduce_utils:getopts(OptSpecList, Args, [], 0, infinity, "ls", "[paths ...]"),
      Paths = [list_to_binary(P) || P <-StrPaths],
      ListOpt = lists:member(list, Opts),
      lists:foreach(fun(Path)->
          % Listing = edfs_rpc(ls, [Path]),
          Listing = erlduce_utils:resp( edfs:ls(Path)),
          p_print_ls(Listing, ListOpt)
      end, Paths),
  
negative.code: 
  cmd("format", _Args) ->
      application:load(erlduce),
      % Schema
      {ok, WorkDir} = application:get_env(erlduce, work_dir),
      MnesiaDir = filename:join(WorkDir, "mnesia"),
      os:cmd("mkdir -p \""++MnesiaDir++"\""),
      application:set_env(mnesia, dir, MnesiaDir),
      mnesia:delete_schema([node()]),
      % Blobs
      BlobsDir = filename:join(WorkDir, "blobs"),
      {ok, Nodes} = application:get_env(erlduce, nodes),
      [ os:cmd("ssh '"++atom_to_list(Host)++"' \"rm '"++BlobsDir++"'/*\"")  || {Host, _} <- Nodes],
      halt();
  
  % cmd("link", Args) ->
  