commit bdc3c62db5304d52eb2b2997ffc8076afb13b021
parent 3662d18a4d373d3ec55b892acfbd6fea3179d252
Author: Pablo Cárdenas <pablo.cardenas@imca.edu.pe>
Date: Wed, 28 Dec 2022 11:26:32 -0500
Removed bib utils in favor to biblist
https://gitlab.com/pablo-cardenas/biblist
Diffstat:
4 files changed, 0 insertions(+), 56 deletions(-)
diff --git a/.local/bin/bib/bibopen.pl b/.local/bin/bib/bibopen.pl
@@ -1,20 +0,0 @@
-#!/usr/bin/perl
-
-use strict;
-use warnings;
-use diagnostics;
-
-use Text::BibTeX;
-
-my $bibpath = $ARGV[0];
-my $bibfile = Text::BibTeX::File->new($bibpath);
-my $entry;
-
-while ($entry = Text::BibTeX::Entry->new($bibfile)) {
- next unless $entry->parse_ok;
- next unless $entry->metatype eq BTE_REGULAR;
- my $key = $entry->key;
- my $title = $entry->get('title');
- my $author = $entry->get('author');
- print "$key - $title - $author\n";
-}
diff --git a/.local/bin/bib/biburl.pl b/.local/bin/bib/biburl.pl
@@ -1,30 +0,0 @@
-#!/usr/bin/perl
-
-use strict;
-use warnings;
-use diagnostics;
-
-use Text::BibTeX;
-
-my $bibpath = $ARGV[0];
-my $bibfile = Text::BibTeX::File->new($bibpath);
-
-while (my $entry = Text::BibTeX::Entry->new($bibfile)) {
- next unless $entry->parse_ok;
- next unless $entry->metatype eq BTE_REGULAR;
- my $key = $entry->key;
- my $title = $entry->get('title');
- my $author = $entry->get('author');
-
- my $url;
- if ($entry->exists('doi')) {
- $url = $entry->get('doi');
- } elsif ($entry->exists('url')){
- $url = $entry->get('url');
- }
- else {
- next;
- }
-
- print "$url - $title - $author\n";
-}
diff --git a/.local/bin/bibopen b/.local/bin/bibopen
@@ -1,3 +0,0 @@
-#!/bin/sh
-
-~/.local/bin/bib/bibopen.pl "$BIB" | dmenu -i -l 20 -i | cut -d" " -f1 | xargs -I{} find "$BIB_DATA" -name '{}.*' | xargs -r -n 1 -P 3 xdg-open
diff --git a/.local/bin/biburl b/.local/bin/biburl
@@ -1,3 +0,0 @@
-#!/bin/sh
-
-$HOME/.local/bin/bib/biburl.pl $BIB | dmenu -i -l 20 | cut -d" " -f1 | tr -d "\n" | xclip -selection clipboard