initial commit

4 files changed, 382 insertions, 0 deletions

diff --git a/elvi/repology b/elvi/repology
new file mode 100755
index 0000000..7e78c26
--- /dev/null
+++ b/elvi/repology
@@ -0,0 +1,41 @@
+#!/bin/sh
+
+# elvis: repology        -- Search Linux distro package metadata with repology.org
+
+. surfraw || exit 1
+
+w3_usage_hook() {
+	cat <<EOF
+Usage: $w3_argv0 [options] [search words]...
+Description:
+  Surfraw search Linux distro package metadata
+Local options:
+  -p,-pkg,-package              Search package names
+  -m,-maint                     Search maintainers by email address
+By default, if there's an @ in the search term, a maintainer search is done,
+otherwise a package search.
+EOF
+	w3_global_usage
+}
+
+w3_parse_option_hook() {
+	opt="$1"
+	optarg="$2"
+	case "$opt" in
+		-p|-pkg|-pac*)  repo_target="/projects/"      ;;
+		-m|-main*)      repo_target="/maintainers/"   ;;
+		*) return 1 ;;
+	esac
+	return 0
+}
+
+w3_config
+w3_parse_args "$@"
+
+[ -z "$repo_target" ] && case "$w3_args" in
+	*@*) repo_target="/maintainers/" ;;
+	*)   repo_target="/projects/"    ;;
+esac
+
+url="https://repology.org/${repo_target}?search=$( w3_url_of_arg $w3_args )";
+w3_browse_url "$url"
diff --git a/elvi/sbo b/elvi/sbo
new file mode 100755
index 0000000..fdc895e
--- /dev/null
+++ b/elvi/sbo
@@ -0,0 +1,88 @@
+#!/bin/sh
+
+# elvis: sbo             -- Search SlackBuilds.org packages
+
+# Author: B. Watson (yalhcru at gmail)
+# Licensed under the WTFPL. See http://www.wtfpl.net/txt/copying/ for details.
+
+. surfraw || exit 1
+
+if [ "$( type -p wget )" = "" ]; then
+	err "wget is required for this. please install it."
+fi
+
+get_slack_ver() {
+	local ver sitevers topver i
+
+	# initially set to the currently running version, if we can
+	if [ -e /etc/slackware-version ]; then
+		ver="$( cut -d' ' -f2 < /etc/slackware-version )"
+	fi
+
+	# now check the site, make sure it's a supported version (e.g. not -current)
+	sitevers="$(
+		wget -qO- "https://slackbuilds.org" | \
+		grep -A1 '<select *name="sv"'      | \
+		tail -1                            | \
+		sed \
+			-e 's,^[[:space:]]*,,' \
+			-e 's,<option value="[^"]*"[^>]*>\([0-9][^"]*\)</option>,\1 ,g' \
+			-e 's,[[:space:]]*</select>.*,,'
+		)"
+
+		# if we can't get the local version *or* the list of versions
+		# from the site, just take a wild guess.
+		if [ -z "$sitevers" ]; then
+			echo "${ver:-14.2}"
+			return
+		fi
+
+		for i in $sitevers; do
+			topver="$i"
+			if [ "$i" = "$ver" ]; then
+				echo "$ver"
+				return
+			fi
+		done
+
+	# fall back to the highest-numbered version on the site
+	echo "$topver"
+	return
+}
+
+w3_config_hook() {
+	def SURFRAW_slack_version "$( get_slack_ver )"
+}
+
+w3_usage_hook() {
+	cat <<EOF
+Usage: $w3_argv0 [options] [search words]...
+Description:
+  Surfraw search packages on SlackBuilds.org
+Local options:
+  -ver=VERSION                  Slackware version (Currently $SURFRAW_slack_version)
+EOF
+	w3_global_usage
+}
+
+w3_parse_option_hook() {
+	opt="$1"
+	optarg="$2"
+
+	case "$opt" in
+		-v*=*) setopt SURFRAW_slack_version "$optarg" ;;
+		*)   return 1 ;;
+	esac
+
+	return 0
+}
+
+w3_config
+w3_parse_args "$@"
+
+# example URL:
+# http://slackbuilds.org/result/?search=test&sv=14.2
+
+escaped_args="$( w3_url_of_arg $w3_args )"
+url="https://slackbuilds.org/result/?search=${escaped_args}&sv=${SURFRAW_slack_version}"
+w3_browse_url "$url"
diff --git a/elvi/slack b/elvi/slack
new file mode 100755
index 0000000..d3e2e7d
--- /dev/null
+++ b/elvi/slack
@@ -0,0 +1,205 @@
+#!/bin/sh
+
+# elvis: slack           -- Search Slackware.com packages
+
+# Author: B. Watson (yalhcru at gmail)
+# Licensed under the WTFPL. See http://www.wtfpl.net/txt/copying/ for details.
+
+# Unfortunately we can't use get with this form. Well, we can,
+# except the checkboxes for "search sets" don't work. So it has
+# to be a post request, which means this elvis depends on wget. I
+# suppose it could support curl instead (or in addition) but I don't
+# see the point.
+
+# The source search is pretty useless, but that's not this script's fault.
+
+. surfraw || exit 1
+
+if [ "$( type -p wget )" = "" ]; then
+	err "wget is required for this. please install it."
+fi
+
+get_slack_ver() {
+	local ver sitevers i
+
+	# initially set to the currently running version, if we can.
+	# unfortunately, this can be wrong: if someone upgraded to -current
+	# but didn't upgrade aaa_base, it'll still say 14.2 (or whatever they
+	# upgraded from).
+	if [ -e /etc/slackware-version ]; then
+		ver="$( cut -d' ' -f2 < /etc/slackware-version )"
+	else
+		# we're not on slackware, assume current
+		echo "current"
+		return
+	fi
+
+	# now check the site, make sure it's a supported version
+	# TODO: rewrite to use sed or awk? maybe not that big a deal.
+	sitevers="$(
+		wget -qO- "https://packages.slackware.com" | \
+			perl -ne 'print "$1 " while (/<option value="slackware-([\d.]+)"/go)'
+	)"
+
+	# if we can't get the the list of versions from the site, use contents
+	# of slackware-version, or current if we ain't got one. probably doesn't
+	# matter, if the site is broken.
+	if [ -z "$sitevers" ]; then
+		echo "${ver:-current}"
+		return
+	fi
+
+	# if it's a supported version, use it
+	for i in $sitevers; do
+		if [ "$i" = "$ver" ]; then
+			echo "$ver"
+			return
+		fi
+	done
+
+	# fall back to current
+	echo "current"
+	return
+}
+
+get_slack_arch() {
+	case "$( uname -m )" in
+		x86_64) SURFRAW_slack_arch="64" ;;
+		*)      SURFRAW_slack_arch=""   ;;
+	esac
+	echo "$SURFRAW_slack_arch"
+}
+
+w3_config_hook() {
+	def SURFRAW_slack_ver  "$( get_slack_ver )"
+	def SURFRAW_slack_arch "$( get_slack_arch )"
+	def SURFRAW_slack_mode "package"
+	def SURFRAW_slack_sets "eps"
+}
+
+w3_usage_hook() {
+	local defarch
+	[ "$SURFRAW_slack_arch" = 64 ] && defarch=64 || defarch=32
+   cat <<EOF
+Usage: $w3_argv0 [options] [search words]...
+Description:
+  Surfraw search Slackware.com packages
+Local options:
+  -v=<version>                  Slackware version (default $SURFRAW_slack_ver).
+                                For .0 releases, include the .0 (eg 14.0, not 14).
+  -C, -cur                      Same as -v=current
+  -32/-i586, -64/-x86_64        Architecture (default -$defarch)
+  -pa, -pkg, -P                 Package search (default)
+  -d, -desc                     Description search
+  -l, -label                    Label search
+  -c, -content                  Content search
+  -s=<sets>                     Search sets, <sets> may consist of:
+                                  e = extra
+                                  P = pasture
+                                  p = patches
+                                  s = slackware
+                                  S = source
+                                  t = testing
+                                Default: $SURFRAW_slack_sets
+  -S, -src                      Search source (same as -c -sS)
+  -a, -all                      Search all sets (same as -s=ePpsSt)
+Notes:
+  - Default version and architecture read from the OS (/etc/slackware-version
+    and uname -m). You can hardcode them in ~/.config/surfraw/conf (see below).
+  - Search modes: "package" looks at package names, "description"
+    looks at the .txt files named after the packages (created from the
+    slack-desc), "label" looks at the first line of .txt file, and "content"
+    looks at the contents of packages.
+  - "content" searches are for finding out which package a file belongs to.
+    Be aware that symlinks aren't found by this, although if the symlink
+    exists on the local system, its target will be used instead.
+  - The source search is basically useless without "content" mode. Actually
+    it's pretty useless anyway.
+  - Defaults can be set in the config file "~/.config/surfraw/conf". Example:
+SURFRAW_slack_ver=14.2
+SURFRAW_slack_arch=64
+SURFRAW_slack_mode=package
+SURFRAW_slack_sets=eps
+    For 32-bit architecture (i586), use:
+SURFRAW_slack_arch=""
+    In other words do NOT set it to 32, the only valid values
+    are "64" and "".
+EOF
+	w3_global_usage
+}
+
+# have to use -pa/-pkg/-P for "package", not -p as it conflicts with
+# the global -p/-print
+# -v=<version> does NOT conflict with global -version
+w3_parse_option_hook() {
+	opt="$1"
+	optarg="$2"
+	case "$opt" in
+		-v*=*)        SURFRAW_slack_ver="$optarg"      ;;
+		-C*|-cur*)    SURFRAW_slack_ver="current"      ;;
+		-32|-i?86)    SURFRAW_slack_arch=""            ;;
+		-64|x86_64)   SURFRAW_slack_arch="64"          ;;
+		-pa*|-pk*|-P) SURFRAW_slack_mode="package"     ;;
+		-d*)          SURFRAW_slack_mode="description" ;;
+		-l*)          SURFRAW_slack_mode="label"       ;;
+		-c*)          SURFRAW_slack_mode="content"     ;;
+		-s*=*)        SURFRAW_slack_sets="$optarg"     ;;
+		-S*|-src*)    SURFRAW_slack_sets="S"
+		              SURFRAW_slack_mode="content"     ;;
+		-a*)          SURFRAW_slack_sets="ePpsSt"      ;;
+		*) return 1 ;;
+	esac
+	return 0
+}
+
+w3_config
+w3_parse_args "$@"
+
+url="https://packages.slackware.com/"
+
+# try to make content search more user-friendlier.
+if [ "$SURFRAW_slack_mode" = "content" ]; then
+	if echo "$w3_args" | grep -q ^/; then
+		# resolve symlink, if possible
+		w3_args_new="$( readlink -e "$w3_args" )"
+		[ -n "$w3_args_new" ] && w3_args="$w3_args_new"
+		# remove leading /'s since the form fails with them
+		w3_args="$( echo "$w3_args" | sed 's,^/*,,' )"
+	fi
+fi
+
+postdata="search=$( w3_url_of_arg $w3_args )"
+postdata="${postdata}&release=slackware${SURFRAW_slack_arch}-${SURFRAW_slack_ver}"
+postdata="${postdata}&mode=${SURFRAW_slack_mode}"
+
+# Pick apart sets. Might be a cleaner way to do this.
+sets="$( echo "$SURFRAW_slack_sets" | sed 's,\(.\),\1 ,g' )"
+for i in $sets; do
+	case "$i" in
+		e) postdata="${postdata}&extra=on"       ;;
+		P) postdata="${postdata}&pasture=on"     ;;
+		p) postdata="${postdata}&patches=on"     ;;
+		s) postdata="${postdata}&slackware=on"   ;;
+		S) postdata="${postdata}&source=on"      ;;
+		t) postdata="${postdata}&testing=on"     ;;
+		*) err "invalid -s arg '$i'."            ;;
+	esac
+done
+
+# hardcode number of results, more is always better, right?
+postdata="${postdata}&result=1000"
+
+# wget should be quiet unless -print is enabled.
+[ "$SURFRAW_print" = "yes" ] || Q="-q"
+
+# do the post, show the results.
+# all the image, css, js URLs are absolute paths so they'll load OK.
+# the "Packages" and form target URLs are relative, so fix them with sed.
+
+dir="$( mktemp -td sr.slack.XXXXXX )"
+[ -d $dir ] || exit 1
+wget $Q -O $dir/slack.html --post-data="$postdata" $url
+sed -i "s,= *\"[./]\",=\"$url\",g" $dir/slack.html
+w3_browse_url "file://$dir/slack.html"
+[ "$SURFRAW_print" = "yes" ] && echo "POST data: $postdata"
+rm -rf $dir
diff --git a/elvi/wikiquote b/elvi/wikiquote
new file mode 100755
index 0000000..6e91ffb
--- /dev/null
+++ b/elvi/wikiquote
@@ -0,0 +1,48 @@
+#!/bin/sh
+
+# elvis: wikiquote       -- Search literary/film quotations on wikiquote.org
+
+. surfraw || exit 1
+
+default_lang="en"
+
+w3_config_hook() {
+	def SURFRAW_wikiquote_language "$SURFRAW_lang"
+}
+
+w3_usage_hook() {
+	cat <<EOF
+Usage: $w3_argv0 [options] [search words]...
+Description:
+  Surfraw search quotations on wikiquote.org
+Local options:
+  -language=ISOCODE | -l=ISOCODE  Two letter language code (resembles ISO country codes)
+                                  Default: $default_lang
+                                  Environment: SURFRAW_wikiquote_language, SURFRAW_lang
+EOF
+	w3_global_usage
+}
+
+w3_parse_option_hook() {
+	opt="$1"
+	optarg="$2"
+	case "$opt" in
+		-l*=*) SURFRAW_wikiquote_language="$optarg" ;;
+		*) return 1 ;;
+	esac
+	return 0
+}
+
+w3_config
+w3_parse_args "$@"
+
+[ -z "$SURFRAW_wikiquote_language" ] && \
+	SURFRAW_wikiquote_language="$default_lang"
+
+url="https://${SURFRAW_wikiquote_language}.wikiquote.org"
+if ! null "$w3_args"; then
+	url="$url/w/index.php"
+	url="$url?search=$( w3_url_of_arg $w3_args )"
+	url="$url&title=Special%3ASearch&fulltext=Search&ns0=1"
+fi
+w3_browse_url "$url"