From 684d4fcd950d3164c9fac75d89d504b251dffe74 Mon Sep 17 00:00:00 2001
From: EuAndreh <eu@euandre.org>
Date: Fri, 2 Sep 2022 12:05:06 -0300
Subject: Make `url-for` and `absolute` standalone executables

---
 v2/src/bin/absolute | 67 ++++++++++++++++++++++++++++++++++++++++++++++
 v2/src/bin/url-for  | 77 +++++++++++++++++++++++++++++++++++++++++++++++++++++
 2 files changed, 144 insertions(+)
 create mode 100755 v2/src/bin/absolute
 create mode 100755 v2/src/bin/url-for

(limited to 'v2/src/bin')

diff --git a/v2/src/bin/absolute b/v2/src/bin/absolute
new file mode 100755
index 0000000..ae25b43
--- /dev/null
+++ b/v2/src/bin/absolute
@@ -0,0 +1,67 @@
+#!/bin/sh
+set -eu
+
+
+usage() {
+	cat <<-'EOF'
+		Usage:
+		  absolute < STDIN
+		  absolute -h
+	EOF
+}
+
+help() {
+	cat <<-'EOF'
+
+		Options:
+		  -h, --help    show this message
+
+
+		Read URL from STDIN and adds the FQDN prefix.  Meant to be used
+		in conjunction with `url-for`.
+
+
+		Examples:
+
+		  Get the URL for "static/style.css", and make it absolute:
+
+		    $ url-for 'static/style.css' | absolute
+		    https://euandre.org/static/style.css
+	EOF
+}
+
+
+for flag in "$@"; do
+	case "$flag" in
+		--)
+			break
+			;;
+		--help)
+			usage
+			help
+			exit
+			;;
+		*)
+			;;
+	esac
+done
+
+while getopts 'h' flag; do
+	case "$flag" in
+		h)
+			usage
+			help
+			exit
+			;;
+		*)
+			usage >&2
+			exit 2
+			;;
+	esac
+done
+shift $((OPTIND - 1))
+
+
+. src/development/config.env
+
+printf 'https://%s%s' "$FQDN" "$(cat)"
diff --git a/v2/src/bin/url-for b/v2/src/bin/url-for
new file mode 100755
index 0000000..025a546
--- /dev/null
+++ b/v2/src/bin/url-for
@@ -0,0 +1,77 @@
+#!/bin/sh
+set -eu
+
+
+usage() {
+	cat <<-'EOF'
+		Usage:
+		  url-for FILE
+		  url-for -h
+	EOF
+}
+
+help() {
+	cat <<-'EOF'
+
+		Options:
+		  -h, --help    show this message
+
+		  FILE          the path for the URL to be constructed
+
+
+		Build an URL for the given FILE, without the FQDN part, adding
+		the required BASE_URL.
+
+
+		Examples:
+
+		  Get the URL for "static/style.css", when BASE_URL is empty:
+
+		    $ url-for 'static/style.css'
+		    /static/style.css
+
+
+		  Get the URL for "static/favicon.svg", when BASE_URL is "v2":
+
+		    $ url-for 'static/favicon.svg'
+		    /v2/static/favicon.svg
+	EOF
+}
+
+
+for flag in "$@"; do
+	case "$flag" in
+		--)
+			break
+			;;
+		--help)
+			usage
+			help
+			exit
+			;;
+		*)
+			;;
+	esac
+done
+
+while getopts 'h' flag; do
+	case "$flag" in
+		h)
+			usage
+			help
+			exit
+			;;
+		*)
+			usage >&2
+			exit 2
+			;;
+	esac
+done
+shift $((OPTIND - 1))
+
+FILE="${1:-}"
+eval "$(assert-arg "$FILE" 'FILE')"
+
+. src/development/config.env
+
+printf '%s/%s' "$BASE_URL" "$FILE"
-- 
cgit v1.2.3