Merge pull request #52 from mattpolzin/harmony-branch-command

Add a `branch` command

README.md

@@ -69,7 +69,12 @@ diff-repo
 Creating config...
 ```
 
-Once configured, Harmony supports the following commands: `pr`, `assign`, `contribute`, `reflect`, `list`, `graph`, `config`, and `sync`.
+Once configured, Harmony supports the following commands: `branch`, `pr`, `assign`, `contribute`, `reflect`, `list`, `graph`, `config`, and `sync`.
+
+### Branch
+Running `harmony branch` will print the URI for accessing the currently checked out branch on GitHub.
+
+Many operating systems have an `open` command (though the name "open" is not ubiquitous); this means you can run something like `open $(harmony branch)` to open a web browser to the current branch on GitHub.
 
 ### PR
 Running `harmony pr` with a branch checked out will reach out to GitHub to determine if there is an open PR for that branch. If there is a PR, Harmony will print a URI that can be used to view the PR. IF there is not a PR, Harmony will help you create one.

src/BashCompletion.idr

@@ -11,6 +11,7 @@ import Debug.Trace
 allRootCmds : List String
 allRootCmds = [
     "assign"
+  , "branch"
   , "config"
   , "contribute"
   , "graph"

src/Help.idr

@@ -24,6 +24,8 @@ harmony \{subcommand "<subcommand>"}
      \{argument "properties"}: \{join ", " $ option <$> settableProps}.
   \{subcommand "sync"}
    - Synchronize local config with information from GitHub.
+  \{subcommand "branch"}
+   - Print the GitHub URI for the currently checked out branch.
   \{subcommand "pr"}
    - Identify an existing PR or create a new one for the current branch.
   \{subcommand "contribute"} [\{argument "-c/--checkout"}] [\{argument "-<num>"}]

src/Main.idr

@@ -148,6 +148,14 @@ parseContributeArgs args =
            ('-' :: skip) => map (Skip . cast) . parsePositive $ pack skip
            _             => Nothing
 
+printCurrentBranchURI : Config => Git => Promise ()
+printCurrentBranchURI @{config} = do
+  branch <- currentBranch
+  let org = config.org
+  let repo = config.repo
+  let uri = "https://github.com/\{org}/\{repo}/tree/\{branch}"
+  putStrLn uri
+
 handleConfiguredArgs : Config => Git => Octokit => 
                        List String 
                     -> Promise ()
@@ -176,6 +184,8 @@ handleConfiguredArgs @{config} ["user", "--json", username] =
 -- user-facing commands:
 handleConfiguredArgs ["sync"] =
   ignore $ syncConfig True
+handleConfiguredArgs ["branch"] =
+  printCurrentBranchURI
 handleConfiguredArgs ["pr"] =
   do (Identified, pr) <- identifyOrCreatePR !currentBranch
        | _ => pure ()