`urlref`, misc stuff - dots@1b58187

Commit `1b58187`

xxwhirlpool · 2026-06-27 22:49:49 -0400 EDT

parent fe6fd6c

`urlref`, misc stuff

5 files changed, +89, -5

M .gitignore

M config/.bashrc-mariposa

M scripts/Scripts/eunoia_blogroll

A scripts/Scripts/urlref/README.md

A scripts/Scripts/urlref/urlref.pl

M .gitignore

+2, -0

...	...		@@ -51,5 +51,7 @@ scripts/Scripts/icons
51	51		scripts/Scripts/gallery.html
52	52		scripts/Scripts/iconshare_pl/icons/*
53	53		scripts/Scripts/iconshare_pl/out/*
	54	+	scripts/Scripts/urlref/links.txt
	55	+
54	56		config/.local/bin/khal_reminder
55	57		config/.config/khal/config_reminder

M config/.bashrc-mariposa

+5, -5

...	...		@@ -179,11 +179,11 @@ export FZF_ALT_C_OPTS="
179	179		export LEDGER_FILE=~/.config/hledger/katmoney.journal
180	180
181	181		# perl shit
182		-	PATH="/home/kat/perl5/bin${PATH:+:${PATH}}"; export PATH;
183		-	PERL5LIB="/home/kat/perl5/lib/perl5${PERL5LIB:+:${PERL5LIB}}"; export PERL5LIB;
184		-	PERL_LOCAL_LIB_ROOT="/home/kat/perl5${PERL_LOCAL_LIB_ROOT:+:${PERL_LOCAL_LIB_ROOT}}"; export PERL_LOCAL_LIB_ROOT;
185		-	PERL_MB_OPT="--install_base \"/home/kat/perl5\""; export PERL_MB_OPT;
186		-	PERL_MM_OPT="INSTALL_BASE=/home/kat/perl5"; export PERL_MM_OPT;
	182	+	PATH="/home/kat/.perl5/bin${PATH:+:${PATH}}"; export PATH;
	183	+	PERL5LIB="/home/kat/.perl5/lib/perl5${PERL5LIB:+:${PERL5LIB}}"; export PERL5LIB;
	184	+	PERL_LOCAL_LIB_ROOT="/home/kat/.perl5${PERL_LOCAL_LIB_ROOT:+:${PERL_LOCAL_LIB_ROOT}}"; export PERL_LOCAL_LIB_ROOT;
	185	+	PERL_MB_OPT="--install_base \"/home/kat/.perl5\""; export PERL_MB_OPT;
	186	+	PERL_MM_OPT="INSTALL_BASE=/home/kat/.perl5"; export PERL_MM_OPT;
187	187
188	188		######################################
189	189		# functions

M scripts/Scripts/eunoia_blogroll

+2, -0

...	...		@@ -6,6 +6,7 @@ die() {
6	6
7	7		rollslug=$(gum input --placeholder "enter slug") \|\| die
8	8		rollurl=$(gum input --placeholder "enter url") \|\| die
	9	+	rollfeed=$(gum input --placeholder "enter feed url") \|\| die
9	10		rollname=$(gum input --placeholder "enter name") \|\| die
10	11		rolltype=$(gum input --placeholder "enter type") \|\| die
11	12

...	...		@@ -16,6 +17,7 @@ fi
16	17		cat << EOF >> /home/kat/Projects/mine/eunoia-astro/src/content/blogroll/blogs.yml
17	18		- slug: $rollslug
18	19		url: "$rollurl"
	20	+	feed: "$rollfeed"
19	21		name: "$rollname"
20	22		type: $rolltype
21	23		EOF

A scripts/Scripts/urlref/README.md

+17, -0

......@@ -0,0 +1,17 @@
# `urlref`

inspired by [urlref](https://benjaminhollon.com/musings/urlref/) by benjamin hollon, but rewritten as a simple perl script.

the script takes a URL and saves it in a file with a generated 5-character alphanumeric code (all uppercase, for less confusion when writing it down). when you want to search for a URL by its code, you use the `--get-code` argument.

## usage

run `urlref.pl` without any arguments to bookmark a URL. the script accepts this through `STDIN`, and will output the code attached to the URL. both the code and the URL are saved on the same line (separated by a space) in `links.txt` in the same directory as the script.

to find a URL with a code, use the `--get-code` argument. for example:

```pl
./urlref --get-code AKB48
```

this will return the matching code and URL.

A scripts/Scripts/urlref/urlref.pl

+63, -0

......@@ -0,0 +1,63 @@
#!/usr/bin/env perl

use 5.38.2;
use strict;
use warnings;

use Getopt::Long qw(GetOptions);

sub usage {
	print("Usage: urlref.pl [--get-code|--help]\n
	run without args to add URL\n");
	exit 0;
}

my $getcode;

GetOptions(
	"get-code=s" => \$getcode,
	"help" => \&usage,
) or die "\nif you want to get a URL, supply a code: --get-code [CODE]\n";

sub encode {
	my @chars = ("A".."Z","0".."9","_");

	my $string;
	$string .= $chars[int(rand(@chars))] for 1..5;

	return $string;
}

sub addurl {
	my $url = <STDIN>;
	chomp $url;
	my $code = encode($url);

	if (!length $url == 0) {
		print("code is: $code\n");

		my $filename = "links.txt";

		open(my $fh, ">>", "$filename") or die "could not open $filename: $!";
		print $fh "$code $url\n";
		close $fh;

		print("saved URL to file: $filename\n");
	} else {
		die("no URL given");
	}
}

if ($getcode) {
	my $filename = "links.txt";

	open(my $fh, "<", "$filename") or die "could not open $filename: $!";
	while(my $line = <$fh>) {
		if($line =~ /^$getcode\s/) {
			print("found: $line");
		}
	}
	close $fh;
} else {
	addurl
}

...	...		@@ -0,0 +1,17 @@
	1	+	# `urlref`
	2	+
	3	+	inspired by [urlref](https://benjaminhollon.com/musings/urlref/) by benjamin hollon, but rewritten as a simple perl script.
	4	+
	5	+	the script takes a URL and saves it in a file with a generated 5-character alphanumeric code (all uppercase, for less confusion when writing it down). when you want to search for a URL by its code, you use the `--get-code` argument.
	6	+
	7	+	## usage
	8	+
	9	+	run `urlref.pl` without any arguments to bookmark a URL. the script accepts this through `STDIN`, and will output the code attached to the URL. both the code and the URL are saved on the same line (separated by a space) in `links.txt` in the same directory as the script.
	10	+
	11	+	to find a URL with a code, use the `--get-code` argument. for example:
	12	+
	13	+	```pl
	14	+	./urlref --get-code AKB48
	15	+	```
	16	+
	17	+	this will return the matching code and URL.

...	...		@@ -0,0 +1,63 @@
	1	+	#!/usr/bin/env perl
	2	+
	3	+	use 5.38.2;
	4	+	use strict;
	5	+	use warnings;
	6	+
	7	+	use Getopt::Long qw(GetOptions);
	8	+
	9	+	sub usage {
	10	+	print("Usage: urlref.pl [--get-code\|--help]\n
	11	+	run without args to add URL\n");
	12	+	exit 0;
	13	+	}
	14	+
	15	+	my $getcode;
	16	+
	17	+	GetOptions(
	18	+	"get-code=s" => \$getcode,
	19	+	"help" => \&usage,
	20	+	) or die "\nif you want to get a URL, supply a code: --get-code [CODE]\n";
	21	+
	22	+	sub encode {
	23	+	my @chars = ("A".."Z","0".."9","_");
	24	+
	25	+	my $string;
	26	+	$string .= $chars[int(rand(@chars))] for 1..5;
	27	+
	28	+	return $string;
	29	+	}
	30	+
	31	+	sub addurl {
	32	+	my $url = <STDIN>;
	33	+	chomp $url;
	34	+	my $code = encode($url);
	35	+
	36	+	if (!length $url == 0) {
	37	+	print("code is: $code\n");
	38	+
	39	+	my $filename = "links.txt";
	40	+
	41	+	open(my $fh, ">>", "$filename") or die "could not open $filename: $!";
	42	+	print $fh "$code $url\n";
	43	+	close $fh;
	44	+
	45	+	print("saved URL to file: $filename\n");
	46	+	} else {
	47	+	die("no URL given");
	48	+	}
	49	+	}
	50	+
	51	+	if ($getcode) {
	52	+	my $filename = "links.txt";
	53	+
	54	+	open(my $fh, "<", "$filename") or die "could not open $filename: $!";
	55	+	while(my $line = <$fh>) {
	56	+	if($line =~ /^$getcode\s/) {
	57	+	print("found: $line");
	58	+	}
	59	+	}
	60	+	close $fh;
	61	+	} else {
	62	+	addurl
	63	+	}

Commit 1b58187

Commit `1b58187`