App-clipbored

 view release on metacpan or  search on metacpan

bin/clipbored  view on Meta::CPAN

To the best of my knowledge, the I<secondary> buffer is rarely used at all.

The helper scripts can read properties from environment variables.
These are recognized:

  CLIPBORED_DMENU_LISTMODE    regular/vertical
  CLIPBORED_DMENU_NORMAL_FG   foreground color in HEX
  CLIPBORED_DMENU_NORMAL_BG   background color in HEX
  CLIPBORED_DMENU_SELECT_FG   selected item background color in HEX
  CLIPBORED_DMENU_SELECT_BG   selected item foreground color in HEX
  CLIPBORED_DMENU_FONT        font that will be used
  CLIPBORED_DMENU_LINES       how many lines that will be shown in vertical mode
  CLIPBORED_X_SELECTION       X buffer to use: primary, secondary, clipboard

=head1 AUTHOR

    \ \ | / /
     \ \ - /
      \ | /
      (O O)
      ( < )

scripts/dmenuclip  view on Meta::CPAN

#!/usr/bin/perl
# dmenuclip - Really nasty dmenu launcher to be used in combination with
# clipbored
use strict;

my $xsels     = "$ENV{XDG_DATA_HOME}/clipbored/clips";
my $sortercmd = "/usr/local/bin/sorter";

my $font      = (exists $ENV{CLIPBORED_DMENU_FONT})
  ? $ENV{CLIPBORED_DMENU_FONT}
  : '-*-fixed-*-*-*-*-15-*-*-*-*-*-*-*';
my $normal_bg = (exists $ENV{CLIPBORED_DMENU_NORMAL_BG})
  ? $ENV{CLIPBORED_DMENU_NORMAL_BG}
  :  "#1c1c1c";
my $normal_fg = (exists $ENV{CLIPBORED_DMENU_NORMAL_FG})
  ? $ENV{CLIPBORED_DMENU_NORMAL_FG}
  : "#ffffff";
my $select_bg = (exists $ENV{CLIPBORED_DMENU_SELECT_BG})
  ? $ENV{CLIPBORED_DMENU_SELECT_BG}

scripts/dmenuclip  view on Meta::CPAN

$normal_bg =~ s/^(#)/\\$1/;
$normal_fg =~ s/^(#)/\\$1/;
$select_bg =~ s/^(#)/\\$1/;
$select_fg =~ s/^(#)/\\$1/;


my $dmenu =  "dmenu -i -b $list_mode "
  . "-nb $normal_bg -nf $normal_fg -sb $select_bg -sf $select_fg";

my $dmenu_cmd = qq["\$(tac $xsels | $dmenu -fn $font -p dmenuclip)"];
system("$sortercmd $xsels $dmenu_cmd | xclip -selection $x_buffer -i -l 0 | xclip -o");

scripts/dmenurl  view on Meta::CPAN

#!/usr/bin/perl
use strict;

my $xsels     = "$ENV{XDG_DATA_HOME}/clipbored/clips";

my $font      = (exists $ENV{CLIPBORED_DMENU_FONT})
  ? $ENV{CLIPBORED_DMENU_FONT}
  : '-*-fixed-*-*-*-*-15-*-*-*-*-*-*-*';
my $normal_bg = (exists $ENV{CLIPBORED_DMENU_NORMAL_BG})
  ? $ENV{CLIPBORED_DMENU_NORMAL_BG}
  :  "#1c1c1c";
my $normal_fg = (exists $ENV{CLIPBORED_DMENU_NORMAL_FG})
  ? $ENV{CLIPBORED_DMENU_NORMAL_FG}
  : "#ffffff";
my $select_bg = (exists $ENV{CLIPBORED_DMENU_SELECT_BG})
  ? $ENV{CLIPBORED_DMENU_SELECT_BG}

scripts/dmenurl  view on Meta::CPAN

sub dmenu_mode {
  my $what = shift;
  return ($what eq 'vertical') ? '-l 15' : '';
}

s/^(#)/\\$1/ for ($normal_fg, $normal_bg, $select_fg, $select_bg);

my $dmenu =  "dmenu -i -b $list_mode"
  . " -nb $normal_bg -nf $normal_fg -sb $select_bg -sf $select_fg"
  . " -fn $font";


open(my $r_clips, '<', $xsels) or die("Cant open $xsels: $!");
my @cliplist = <$r_clips>;
close($r_clips);

my @urls;
for my $clip(@cliplist) {
  if($clip =~ m{(https?://[-/.\w]+)}) {
    push(@urls, $1);