LJ Laubenheimer ljl-geek

## terminal-friction.md

      
              1 file
            
          
              0 forks
            
          
              0 comments
            
          
              2 stars
            
          
                mrxinu
                / terminal-friction.md
            
            
              Last active
              May 13, 2022 20:24
            
          
    Remove the Terminal Friction

ZSH AutoSuggestions

You write lots of commands so it'd be awesome if the made helpful suggestions. It's
terminal equivalent of the Microsoft paperclip.

Example

I started typing vi and was helpfully offered the following:

  
## script.pl
#!/usr/bin/perl

# This script is made to show graphs with git commit time made on workweek vs weekend
#
# The desription of this script and results of its usage is avaliable at:
# https://ivan.bessarabov.com/blog/famous-programmers-work-time-part-2-workweek-vs-weekend
#
# usage:
#
#   git log --author="Sebastian Riedel" --format="%H %ai" | perl script.pl

## gist:674ea13c77fc8128f24b5e3f53b7f094

git log --author="Linus Torvalds" --date=iso | perl -nalE 'if (/^Date:\s+[\d-]{10}\s(\d{2})/) { say $1+0 }' | sort | uniq -c|perl -MList::Util=max -nalE '$h{$F[1]} = $F[0]; }{ $m = max values %h; foreach (0..23) { $h{$_} = 0 if not exists $h{$_} } foreach (sort {$a <=> $b } keys %h) { say sprintf "%02d - %4d %s", $_, $h{$_}, "*"x ($h{$_} / $m * 50); }'
	#!/usr/bin/perl

	# This script is made to show graphs with git commit time made on workweek vs weekend
	#
	# The desription of this script and results of its usage is avaliable at:
	# https://ivan.bessarabov.com/blog/famous-programmers-work-time-part-2-workweek-vs-weekend
	#
	# usage:
	#
	# git log --author="Sebastian Riedel" --format="%H %ai" \| perl script.pl

	git log --author="Linus Torvalds" --date=iso \| perl -nalE 'if (/^Date:\s+[\d-]{10}\s(\d{2})/) { say $1+0 }' \| sort \| uniq -c\|perl -MList::Util=max -nalE '$h{$F[1]} = $F[0]; }{ $m = max values %h; foreach (0..23) { $h{$_} = 0 if not exists $h{$_} } foreach (sort {$a <=> $b } keys %h) { say sprintf "%02d - %4d %s", $_, $h{$_}, ""x ($h{$_} / $m 50); }'