From 6df85e50c22dee616e9520e75586e5e63b3cc733 Mon Sep 17 00:00:00 2001 From: Sean Whitton Date: Wed, 5 Feb 2020 21:58:16 -0700 Subject: annex-review-unused missing subs Signed-off-by: Sean Whitton --- bin/annex-review-unused | 7 +++++++ 1 file changed, 7 insertions(+) diff --git a/bin/annex-review-unused b/bin/annex-review-unused index 68c7aef..4c06307 100755 --- a/bin/annex-review-unused +++ b/bin/annex-review-unused @@ -65,6 +65,7 @@ use Getopt::Long; use Git::Annex; use Try::Tiny; use Term::ReadKey; +use Term::ANSIColor; my $annex = Git::Annex->new; @@ -200,3 +201,9 @@ if (@to_drop) { # after this run. note that in --just-print mode, @to_drop will be # empty, so we'll always exit non-zero if there are any unused files exit(@to_drop != @unused_files); + +sub say_bold { print colored(['bold'], @_), "\n" } + +sub say_bullet { say_bold(" • ", @_) } + +sub say_spaced_bullet { say_bold("\n", " • ", @_, "\n") } -- cgit v1.2.3