From 117605b88aa27a46bbca50547a19844993c6ec23 Mon Sep 17 00:00:00 2001
From: Dylan Araps <dylan.araps@gmail.com>
Date: Fri, 6 Nov 2020 08:29:09 +0200
Subject: [PATCH] kiss-outdated: Add 6.0.0 version

---
 contrib/kiss-outdated | 300 ++++++++++++++++++++++++++++++++++++------
 1 file changed, 259 insertions(+), 41 deletions(-)

diff --git a/contrib/kiss-outdated b/contrib/kiss-outdated
index 2092799..49070f1 100755
--- a/contrib/kiss-outdated
+++ b/contrib/kiss-outdated
@@ -1,52 +1,270 @@
 #!/bin/sh
-# Check repository packages for updates
-#
-# Intended behavior.
-# shellcheck disable=2106
+# Check repository for outdated packages
 
-kiss search "${@:-*}" | (while read -r pkg_loc _; do {
-    read -r ver _ 2>/dev/null < "$pkg_loc/version" || continue
+repology_version() {
+    # Grab the package's version as known by repology.org by downloading the
+    # svg latest-version badge and extracting the version from the xml.
+    repology_name "$1"
 
-    pkg=${pkg_loc##*/}
+    r=$(curl -Ss "https://repology.org/badge/latest-versions/$remote.svg") && {
+        remote_ver=${r%</text>*}
+        remote_ver=${remote_ver##*>}
+    }
+}
 
-    # Fix some package names.
-    case $pkg in
-        *-bin)   fix=${pkg%%-bin} ;;
-        *[0-9]r) fix=${pkg%%r} ;;
+repology_name() {
+    # Fix any known naming inconsistences between packages and Repology.
+    remote=$(
+        # Strip unrelated suffixes.
+        remote=${1%%-bin}
+        remote=${remote%%-git}
+
+        printf %s "$remote" |
+
+        # Remote names are all lowercase.
+        tr '[:upper:]' '[:lower:]' |
+
+        # Remote always uses -.
+        tr _ -
+    )
+
+    case $remote in
+        baselayout)
+            remote=baselayout-kiss
+        ;;
+
+        dash)
+            remote=dash-shell
+        ;;
+
+        dejavu-ttf)
+            remote=fonts:dejavu
+        ;;
+
+        dsp)
+            remote=dsp-audio-processing
+        ;;
+
+        emacs-nox)
+            # TODO [community]: Make default emacs no x11?
+            remote=emacs
+        ;;
+
+        fd)
+            remote=fd-find
+        ;;
+
+        fetsh)
+            # TODO [community]: Rename package?
+            remote=fet.sh
+        ;;
+
+        firefox-esr)
+            remote=firefox
+        ;;
+
+        font-awesome-ttf)
+            remote=fonts:fontawesome
+        ;;
+
+        gc)
+            remote=boehm-gc
+        ;;
+
+        gnugrep)
+            # shell-check is dumb here so this must be quoted.
+            remote='grep'
+        ;;
+
+        gnupg[12])
+            # Reported to repology.org.
+            # https://github.com/repology/repology-rules/issues/285
+            remote=gnupg
+        ;;
+
+        gtk+[23])
+            remote=gtk
+        ;;
+
+        gst-*)
+            remote=gstreamer:${remote##*-}
+        ;;
+
+        gtar)
+            remote=tar
+        ;;
+
+        hack)
+            # It might be nice to adopt Repology's naming scheme for
+            # fonts as it also makes them self-documenting and easy
+            # to search for ('kiss s font:\*).
+            remote=fonts:hack
+        ;;
+
+        harfbuzz-icu)
+            # TODO: Report to repology.org?
+            # Package split.
+            remote=harfbuzz
+        ;;
+
+        kiss)
+            remote=kiss-package-manager
+        ;;
+
+        liberation-fonts)
+            remote=fonts:liberation
+        ;;
+
+        libmupdf | libxaw3d)
+            # TODO [community]: Rename packages?
+            remote=${remote##lib}
+        ;;
+
+        links2)
+            # TODO [community]: Rename package?
+            remote=links
+        ;;
+
+        lux)
+            remote=lux-brightness-ventto
+        ;;
+
+        man-pages)
+            # TODO: Report to repology.org.
+            # man-pages       -> manpages
+            # man-pages-posix -> man-pages-posix
+            remote=manpages
+        ;;
+
+        netsurf-fb)
+            remote=netsurf
+        ;;
+
+        openjpeg2)
+            # TODO [community]: Rename package?
+            remote=openjpeg
+        ;;
+
+        osh)
+            remote=oil-shell
+        ;;
+
+        pinentry-dmenu)
+            remote=pinentry-dmenu-cemkeylan
+        ;;
+
+        pyqt5)
+            # TODO [community]: Rename package?
+            remote=python-qt
+        ;;
+
+        python2)
+            remote=python
+        ;;
+
+        qt5*)
+            remote=qt
+        ;;
+
+        rage)
+            remote=rage-encryption-tool
+        ;;
+
+        sane)
+            remote=sane-backends
+        ;;
+
+        spleen-font)
+            remote=fonts:spleen
+        ;;
+
+        sshfs)
+            remote=fusefs:sshfs
+        ;;
+
+        surf)
+            remote=surf-browser
+        ;;
+
+        st)
+            remote=st-term
+        ;;
+
+        terminus-font)
+            remote=fonts:terminus
+        ;;
+
+        tiv)
+            remote=tiv-unclassified
+        ;;
+
+        unifont)
+            remote=fonts:unifont
+        ;;
+
+        webkit2gtk)
+            # TODO [community]: Rename package?
+            remote=webkitgtk
+        ;;
+
+        xf86-*)
+            remote=xdrv:${remote##*-}
+        ;;
+
+        xmlsec1)
+            # TODO [community]: Rename package?
+            remote=xmlsec
+        ;;
     esac
+}
 
-    # Ignore duplicates.
-    # shellcheck disable=2106
-    case $seen in
-        *" ${fix:-$pkg} "*) continue ;;
-        *) seen=" $seen ${fix:-$pkg} " ;;
-    esac
-
-    # Grab the repology version from the SVG file.
-    rep=$(curl -s "https://repology.org/badge/latest-versions/${fix:-$pkg}.svg")
-    rep=${rep%</text>*}
-    rep=${rep##*>}
-
-    # Skip these.
-    {
-        case $rep in -|''|' ') continue; esac
-        case $ver in git)      continue; esac
+main() {
+    [ "$1" ] || {
+        printf 'usage: kiss outdated /path/to/repo\n' >&2
+        exit 1
     }
 
-    # Split the comma separated list.
-    # Intentional (and safe) splitting.
-    # shellcheck disable=2086
-    {
-        IFS=', '
-        set -f
-        set +f -- $rep
-        unset IFS
+    cd "$1" 2>/dev/null || {
+        printf 'repository %s is inaccessible\n' "$1" >&2
+        exit 1
     }
 
-    # Parse comma separated version lists.
-    {
-        for v; do case $v in "$ver") match=1; esac; done
+    printf '\n[Checking repology.org for outdated packages in %s]\n\n' "$1" >&2
 
-        [ "$match" ] || printf '%s\n' "$pkg $ver -> $rep"
-    }
-} & done; wait)
+    for pkg in */; do
+        pkg=${pkg%%/}
+
+        read -r ver _ 2>/dev/null < "$pkg/version" || {
+            printf '%-30s local version not found\n' "$pkg" >&2
+            continue
+        }
+
+        [ "$ver" = git ] &&
+            continue
+
+        repology_version "$pkg" || {
+            printf '%-30s network error\n' "$pkg" >&2
+            continue
+        }
+
+        case $remote_ver in
+            *", $ver"* | *"$ver,"* | "$ver")
+                # Package up-to-date, do nothing.
+            ;;
+
+            - | '' | ' ')
+                printf '\n%s: empty response\n' "$pkg" >&2
+                printf 'possible causes:\n' >&2
+                printf '    package name differs from repology name,\n' >&2
+                printf '    package not tracked by repology,\n' >&2
+                printf '    network error\n\n' >&2
+            ;;
+
+            *)
+                printf '%-30s %s -> %s\n' "$pkg" "$ver" "$remote_ver"
+            ;;
+        esac
+    done
+}
+
+main "$@"