Add browse-github-url command

srfi-tools/github.sld

@@ -1,6 +1,7 @@
 (define-library (srfi-tools github)
   (export srfi-github-org
           srfi-github-authorization-token
+          srfi-github-url
           srfi-github-https-url
           srfi-github-ssh-url
           srfi-create-github-repository)
@@ -32,6 +33,15 @@
     (define (srfi-github-relative-git num)
       (string-append (srfi-github-relative num) ".git"))
 
+    (define (srfi-github-url num)
+      (string-append "https://github.com/"
+                     (srfi-github-relative num)))
+
+    (define-command (github-url num)
+      (write-line-about-srfi srfi-github-url num))
+
+    ;; Is this superfluous? `srfi-github-url` can fetch both the repo
+    ;; and the web page.
     (define (srfi-github-https-url num)
       (string-append "https://github.com/"
                      (srfi-github-relative-git num)))

srfi-tools/interactive.sld

@@ -6,6 +6,7 @@
           srfi-browse-url
           srfi-browse-landing
           srfi-browse-landing-url
+          srfi-browse-github-url
           srfi-pager
           srfi-edit
           srfi-browse-mail-archive-url)
@@ -17,7 +18,8 @@
           (srfi-tools path)
           (srfi-tools html)
           (srfi-tools mail)
-          (srfi-tools url))
+          (srfi-tools url)
+          (srfi-tools github))
   (begin
 
     (define (srfi-open-dir num)
@@ -72,6 +74,12 @@
     (define-command (browse-landing-url num)
       (srfi-browse-landing-url (parse-srfi-number num)))
 
+    (define (srfi-browse-github-url num)
+      (browse-url (srfi-github-url num)))
+
+    (define-command (browse-github-url num)
+      (srfi-browse-github-url (parse-srfi-number num)))
+
     ;;
 
     (define (srfi-pager num)