diff options
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,' |