add convenience shell script for lists

1 files changed, 66 insertions, 0 deletions

diff --git a/lists.sh b/lists.sh
new file mode 100755
index 0000000..c07870a
--- /dev/null
+++ b/lists.sh
@@ -0,0 +1,66 @@
+#!/usr/bin/env bash
+
+shopt -s extglob nullglob
+
+. ./getopts_long.sh
+
+find_lists() {
+    LISTS=()
+    while read -r -d $'\0'; do
+        local list=$(realpath --relative-to=. "$REPLY")
+        LISTS+=("$list")
+    done < <(find lists -maxdepth 1 -mindepth 1 -type d -not -name '.*' -print0 | sort -z)
+}
+
+find_posts() {
+    local list="$1"
+    shift 1
+
+    POSTS=()
+    for p in "$list"/!(*[!0-9]*); do
+        POSTS+=( "$p" )
+    done
+}
+
+print_lists() {
+    find_lists
+    for x in "${LISTS[@]}"; do
+        printf "%s: %s\n" "$x" "$(<$x/title)"
+    done
+}
+
+print_posts() {
+    find_posts "$1"
+    for p in "${POSTS[@]}"; do
+        local post=$(readlink "$p")
+        printf "%s: %s\n" "${p##*/}" "${post##*/}"
+    done
+}
+
+add_list() {
+    local list="$1"
+    mkdir lists/"$list"
+    shift 1
+    echo "$@" >lists/"$list"/title
+}
+
+while getopts_long ":la:" opt \
+                   posts required_argument \
+                   "" "$@"
+do
+    case $opt in
+        l)
+            print_lists
+            exit 0;;
+        a)
+            shift "$(($OPTLIND - 1))"
+            add_list "$OPTLARG" "$@"
+            exit 0;;
+        posts)
+            print_posts "$OPTLARG"
+            ;;
+        :)
+            printf >&2 '%s: %s\n' "${0##*/}" "$OPTLERR"
+            exit 1;;
+    esac
+done