###
# Copyright (c) 2019, Pedro de Oliveira
# All rights reserved.
#
# Redistribution and use in source and binary forms, with or without
# modification, are permitted provided that the following conditions are met:
#
#   * Redistributions of source code must retain the above copyright notice,
#     this list of conditions, and the following disclaimer.
#   * Redistributions in binary form must reproduce the above copyright notice,
#     this list of conditions, and the following disclaimer in the
#     documentation and/or other materials provided with the distribution.
#   * Neither the name of the author of this software nor the name of
#     contributors to this software may be used to endorse or promote products
#     derived from this software without specific prior written consent.
#
# THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
# AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
# IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
# ARE DISCLAIMED.  IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE
# LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
# CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
# SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
# INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
# CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
# ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
# POSSIBILITY OF SUCH DAMAGE.

###

from supybot import utils, plugins, ircutils, callbacks
from supybot.commands import *
try:
    from supybot.i18n import PluginInternationalization
    _ = PluginInternationalization('LastFM')
except ImportError:
    # Placeholder that allows to run the plugin on a bot
    # without the i18n module
    _ = lambda x: x
import supybot.utils.minisix as minisix
import os
import sqlite3
import pylast
import time

class SqliteLastFMDB(object):
    def __init__(self, filename):
        self.dbs = ircutils.IrcDict()
        self.filename = filename

    def close(self):
        for db in self.dbs.values():
            db.close()

    def _getDb(self, channel):
        filename = plugins.makeChannelFilename(self.filename, channel)
        if filename in self.dbs:
            return self.dbs[filename]
        if os.path.exists(filename):
            db = sqlite3.connect(filename, check_same_thread=False)
            if minisix.PY2:
                db.text_factory = str
            self.dbs[filename] = db
            return db
        db = sqlite3.connect(filename, check_same_thread=False)
        if minisix.PY2:
            db.text_factory = str
        self.dbs[filename] = db
        cursor = db.cursor()
        cursor.execute("""CREATE TABLE lastfm (
                          id INTEGER PRIMARY KEY,
                          nick TEXT,
                          user TEXT
                          )""")
        db.commit()
        return db

    def get_user(self, channel, nick):
        db = self._getDb(channel)
        cursor = db.cursor()
        cursor.execute("""SELECT user FROM lastfm
                          WHERE nick=?""", (nick,))
        result = cursor.fetchone()
        if result:
            return result[0]
        else:
            return None

    def set_user(self, channel, nick, user):
        db = self._getDb(channel)
        cursor = db.cursor()
        cursor.execute("""DELETE FROM lastfm
                          WHERE nick=?""", (nick,))
        cursor.execute("""INSERT INTO lastfm VALUES (NULL, ?, ?)""",
                       (nick, user,))
        db.commit()

LastFMDB = plugins.DB('LastFM',
                     {'sqlite3': SqliteLastFMDB})

class LastFM(callbacks.Plugin):
    """Last.fm client"""
    threaded = True

    def __init__(self, irc):
        self.__parent = super(LastFM, self)
        self.__parent.__init__(irc)
        self.db = LastFMDB()
        self.network = None
        self.prepend = "0,5last.fm"
        self.loved = "13<3 "
        self.pretty_bar = ["[04====            ]",
                           "[04====07====        ]",
                           "[04====07====08====    ]",
                           "[04====07====08====09====]",
                           "[                ]"]

    def die(self):
        self.__parent.die()
        self.db.close()

    def connect(self):
        key = self.registryValue('apiKey')
        secret = self.registryValue('apiSecret')

        if not key:
            irc.error("{} API key not set".format(self.prepend))
            return False
        if not secret:
            irc.error("{} API secret not set".format(self.prepend))
            return False

        if self.network is None:
            self.network = pylast.LastFMNetwork(api_key=key, api_secret=secret)

        return True

    def setuser(self, irc, msg, args, channel, user):
        """[<channel>] <last.fm account>

        Assigns the <last.fm account> to the current nick, in [channel].
        """
        userinfo = self.network.get_user(user)

        try:
            userinfo.get_registered()
        except pylast.WSError as e:
            irc.error(str(e), prefixNick=False)
            return

        self.db.set_user(channel, msg.nick.lower(), user)
        irc.reply("{} User set as {} for {}".format(
            self.prepend,
            user,
            msg.nick
            ), prefixNick=False)
    setuser = wrap(setuser, ['channel', 'anything'])

    def compare(self, irc, msg, args, channel, user):
        """[<channel>] <last.fm account/nick>

        Compares your account with the <last.fm account/nick>, in [channel].
        """
        if self.connect() is False:
            return

        user1 = msg.nick.lower()
        user2 = user.lower()

        username1 = self.db.get_user(channel, user1)
        if not username1:
            username1 = user1
        username2 = self.db.get_user(channel, user2)
        if not username2:
            username2 = user2

        try:
            user1_favs = self.network.get_user(username1).get_top_artists('overall', 100)
            user2_favs = self.network.get_user(username2).get_top_artists('overall', 100)
        except pylast.WSError as e:
            irc.error(str(e), prefixNick=False)
            return

        n_artists1 = len(user1_favs)
        n_artists2 = len(user2_favs)

        user1_favs = [str(i.item) for i in user1_favs]
        user2_favs = [str(i.item) for i in user2_favs]

        intersection = [artist for artist in user1_favs if artist in user2_favs]
        artist_list = intersection[:5]

        comparison_index = round(200.0 * len(intersection) / (n_artists1 + n_artists2), 2)

        if comparison_index < 1.0:
            bar = self.pretty_bar[4]
        else:
            bar = self.pretty_bar[int(comparison_index / 25.01)]

        if artist_list:
            parsed_list = [str(item) for item in artist_list]
            chart_text = ", ".join(parsed_list)
        else:
            chart_text = "N/A"


        message = "{} Comparison: {} {} {}: Similarity: {}% - Common Artists: {}".format(
                 self.prepend,
                 user1,
                 bar,
                 user2,
                 comparison_index,
                 chart_text
                 )
        irc.reply(message, prefixNick=False)
    compare = wrap(compare, ['channel', 'anything'])

    def nowplaying(self, irc, msg, args, channel, user):
        """[<channel>] [<last.fm account/nick>]

        Show the currently playing song, by [last.fm account/nick], in [channel].
        """
        if self.connect() is False:
            return

        if user:
            username = user
        else:
            username = self.db.get_user(channel, msg.nick.lower())

        userinfo = self.network.get_user(username)

        try:
            userinfo.get_registered()
        except pylast.WSError as e:
            irc.error(str(e), prefixNick=False)
            return

        track = userinfo.get_now_playing()

        if not track:
            tracks = userinfo.get_recent_tracks()
            if len(tracks) > 0:
               track = tracks[0]
               ts_track = int(track.timestamp)
               ts_now = int(time.time())
               diff = ts_now - ts_track
               if diff <= 300:  # Listened to anything in the last 5 minutes
                   track = pylast.Track(track.track.artist, track.track.title, self.network, username)
               else:
                   track = None
            else:
                track = None

        message = "{} {} is not playing anything right now".format(
            self.prepend,
            username
            )

        if track:
            # Get all tags from track and create a string with "tag1, tag2, tag3"
            tags = track.get_top_tags()
            tagmsg = ""
            # If track has no tags, get the artist tags
            if len(tags) == 0:
                tags = track.artist.get_top_tags()
            tags = tags[:5]
            tagmsg = "".join([", " + str(t.item) for t in tags])
            if tags:
                tagmsg = "- {}".format(tagmsg[2:])

            # Did the user 'Like' this track
            lovemsg = ""
            if track.get_userloved():
                lovemsg = self.loved

            playcount = track.get_userplaycount()
            if not playcount:
                playcount = 0

            message = "{} {} is listening to: {} {}({} plays) {}".format(
                self.prepend,
                username,
                track,
                lovemsg,
                playcount,
                tagmsg
                )
        irc.reply(message, prefixNick=False)
    nowplaying = wrap(nowplaying, ['channel', optional('anything')])

Class = LastFM


# vim:set shiftwidth=4 softtabstop=4 expandtab textwidth=79: