anchor.diff:  
   cmd("rm", Args) ->
       OptSpecList = [{recursive, $r, "recursive", undefined, "remove tags and their contents recursively"}],
  -    {Opts, StrPaths} = erlduce_utils:getopts(OptSpecList, Args, [], 0, infinity, "rm", "[paths ...]"),
  +    {Opts, StrPaths} = erlduce_utils:getopts(OptSpecList, Args, [], 0, infinity, "rm", "[TAG ...]\nRemove (unlink) the TAG(s)."),
       Paths = [list_to_binary(P) || P <-StrPaths],
       Recursive = lists:member(recursive, Opts),
  -    lists:foreach(fun(Path)->
  -        erlduce_utils:resp( edfs:rm(Path, Recursive))
  -    end, Paths),
  +    [ erlduce_utils:resp( edfs:rm(Path, Recursive)) || Path <- Paths ],
       halt();
   
   
  
positive.code: 
  cmd("format", _Args) ->
      application:load(erlduce),
      {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()]),
      halt();
  
  % cmd("link", Args) ->
  
negative.code: 
  cmd("tag", Args) ->
      OptSpecList = [{path, undefined, undefined, binary, "tag path"}],
      {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();
  