Implement opening PR list in browser.

Author: grokys

src/GitHub.App/SampleData/PullRequestListViewModelDesigner.cs

@@ -60,6 +60,7 @@ public PullRequestListViewModelDesigner()
         public string SearchQuery { get; set; }
         public string SelectedState { get; set; }
         public IReadOnlyList<string> States { get; }
+        public Uri WebUrl => null;
         public ReactiveCommand<object> CreatePullRequest { get; }
         public ReactiveCommand<Unit> OpenItem { get; }
 

src/GitHub.App/ViewModels/GitHubPane/PullRequestListViewModel.cs

@@ -2,6 +2,7 @@
 using System.Collections.Generic;
 using System.ComponentModel.Composition;
 using System.Diagnostics;
+using System.Reactive.Linq;
 using System.Threading.Tasks;
 using GitHub.Collections;
 using GitHub.Extensions;
@@ -24,6 +25,7 @@ public class PullRequestListViewModel : IssueListViewModelBase, IPullRequestList
         readonly IPullRequestSessionManager sessionManager;
         readonly IPullRequestService service;
         readonly IDisposable subscription;
+        ObservableAsPropertyHelper<Uri> webUrl;
 
         /// <summary>
         /// Initializes a new instance of the <see cref="PullRequestListViewModel"/> class.
@@ -45,12 +47,18 @@ public PullRequestListViewModel(
             this.service = service;
 
             subscription = sessionManager.WhenAnyValue(x => x.CurrentSession.PullRequest.Number).Subscribe(UpdateCurrent);
+            webUrl = this.WhenAnyValue(x => x.RemoteRepository)
+                .Select(x => x?.CloneUrl?.ToRepositoryUrl().Append("pulls"))
+                .ToProperty(this, x => x.WebUrl);
             CreatePullRequest = ReactiveCommand.Create().OnExecuteCompleted(_ => NavigateTo("pull/new"));
         }
 
         /// <inheritdoc/>
         public override IReadOnlyList<string> States => states;
 
+        /// <inheritdoc/>
+        public Uri WebUrl => webUrl.Value;
+
         /// <inheritdoc/>
         public ReactiveCommand<object> CreatePullRequest { get; }
 

src/GitHub.Exports.Reactive/ViewModels/GitHubPane/IPullRequestListViewModel.cs

@@ -6,7 +6,7 @@ namespace GitHub.ViewModels.GitHubPane
     /// <summary>
     /// Represents a view model which displays a pull request list.
     /// </summary>
-    public interface IPullRequestListViewModel : IIssueListViewModelBase
+    public interface IPullRequestListViewModel : IIssueListViewModelBase, IOpenInBrowser
     {
         /// <summary>
         /// Gets a command which navigates to the "Create Pull Request" view.