journal/pull_url_from_journal.pl


1
2
3
4
5
6
7
8
9
10
11
12
13
14

#!/usr/bin/env perl

use warnings;
use strict;

my $journal = "/home/lemon/Notes/journal";

my $line = `grep -R $ARGV[0] $journal | cut -f3- -d' '| fzf `;
chomp $line;

if ($line =~ m/(http.*)/) {
    print $1;
    # system('qutebrowser', $1);
}