diff options
author | John Ankarström <john@ankarstrom.se> | 2020-11-24 03:08:20 +0100 |
---|---|---|
committer | John Ankarström <john@ankarstrom.se> | 2020-11-24 03:09:34 +0100 |
commit | dc4a6f87347440e310b739465ec6e2397c742af0 (patch) | |
tree | 8f1fbcb20282f880abe46d2c851454900154e30b /lf | |
parent | 6874c634cbca5761a6a8630f07675852f7efba31 (diff) | |
download | msc-dc4a6f87347440e310b739465ec6e2397c742af0.tar.gz |
Move dz/*, lf/* into root directory
They are differentiated by the dz/lf prefix anyway.
Diffstat (limited to 'lf')
-rwxr-xr-x | lf/lfp | 10 | ||||
-rwxr-xr-x | lf/lfq | 38 | ||||
-rwxr-xr-x | lf/lfs | 19 |
3 files changed, 0 insertions, 67 deletions
@@ -1,10 +0,0 @@ -#!/bin/sh - -# Parse Last.fm URL, print title - artist - -while read url -do - printf '%b\n' "$(printf '%s\n' "$url" | sed 's/+/ /g; s/%/\\\\x/g')" | - cut -d/ -f5,7 | - sed 's,^\(.*\)/\(.*\),\2 - \1,' -done @@ -1,38 +0,0 @@ -#!/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,' @@ -1,19 +0,0 @@ -#!/bin/sh - -# Get similar songs from Last.fm - -usage() { echo usage: $0 base-url 1>&2; exit 1; } - -url=$1 - -# Retrieve similar songs -curl -s "$url" | -sed '/^[ ]*$/d' | -awk -F \" ' - /class="track-similar-tracks-item-name"/ { - getline; - getline; - print $2; - } -' | -sed 's,^,https://www.last.fm,' |