make reflog fail softly if no reflog obtained

Raku · Feb 27, 2023 · f833cb9 · f833cb9
1 parent a12436b
commit f833cb9
Showing 1 changed file with 7 additions and 1 deletion.
diff --git a/Website/plugins/git-reflog/add-ref-hash.raku b/Website/plugins/git-reflog/add-ref-hash.raku
@@ -4,10 +4,16 @@ sub ($source-cache, $mode-cache, Bool $full-render,  $source-root, $mode-root, %
     my $rep = $source-root.IO.parent;
     my $proc = run <<git -C $rep rev-parse --short HEAD>>, :out;
     my $reflog = $proc.out.slurp(:close).chomp;
+    if $reflog {
+        $reflog = '/tree/' ~ $reflog
+    }
+    else {
+        $reflog = ''
+    }
     'reflog.raku'.IO.spurt(qq:to/TEMP/);
     \%(
         git-reflog => sub (\%prm, \%tml) \{
-            '\<p>from <a href="https://github.com/Raku/doc/tree/$reflog">github.com/Raku/doc/tree/$reflog\</a>\</p>'
+            '\<p>from <a href="https://github.com/Raku/doc$reflog">github.com/Raku/doc$reflog\</a>\</p>'
         },
     );
     TEMP