From dc4a6f87347440e310b739465ec6e2397c742af0 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?John=20Ankarstr=C3=B6m?= <john@ankarstrom.se>
Date: Tue, 24 Nov 2020 03:08:20 +0100
Subject: Move dz/*, lf/* into root directory

They are differentiated by the dz/lf prefix anyway.
---
 lfq | 38 ++++++++++++++++++++++++++++++++++++++
 1 file changed, 38 insertions(+)
 create mode 100755 lfq

(limited to 'lfq')

diff --git a/lfq b/lfq
new file mode 100755
index 0000000..81dbfb1
--- /dev/null
+++ b/lfq
@@ -0,0 +1,38 @@
+#!/bin/sh
+
+# Search for track(s) on Last.fm, retrieve URL(s)
+
+usage() { echo usage: $0 [-m max] base-url 1>&2; exit 1; }
+
+# Parse options
+m=10
+while getopts m: o
+do
+	case $o in
+	m) m=$OPTARG ;; # max
+	?) usage
+	esac
+done
+shift $((OPTIND-1))
+q=$1
+
+m=$((m+0))
+test $m -lt 1 && m=10
+
+# Retrieve search results
+curl -s -G --data-urlencode "q=$q" 'https://www.last.fm/search/tracks' |
+sed '/^[ 	]*$/d' |
+awk -F \" '
+	/class="chartlist-name"/ {
+		getline;
+		getline;
+		getline;
+		getline;
+		getline;
+		getline;
+		print $2;
+		i++;
+		if (i > '"$((m-1))"') exit;
+	}
+' |
+sed 's,^,https://www.last.fm,'
-- 
cgit v1.2.3