local awful   = require("awful")
local gears   = require("gears")
local mpc     = require("widgets/mpc")
local naughty = require("naughty")
local textbox = require("wibox.widget.textbox")
local timer   = require("gears.timer")
local wibox   = require("wibox")

local widget = {}
widget._textbox = textbox()
widget._currentsong = {}

widget.scroll = wibox.widget {
    layout = wibox.container.scroll.horizontal,
    max_size = 200,
    extra_space = 10,
    step_function = wibox.container.scroll.step_functions.linear_increase,
    speed = 20,
    {
        widget = widget._textbox,
    }
}

function widget:update_widget()
    local text = ""
    local artist = self._currentsong.artist
    local title = self._currentsong.title
    local file = self._currentsong.file
    if not artist then
        text = string.format("%s", title or file )
    else
        text = string.format("%s - %s", artist, title)
    end
    self._textbox.text = text
end

local function sec_to_min(sec)
    m, s = math.modf((sec or 0.0) / 60)
    return string.format('%d:%02d', m, math.floor(s * 60))
end

local function song_duration(elapsed, duration)
    return sec_to_min(elapsed) .. "/" .. sec_to_min(duration)
end

function widget:get_info(callback)
    local status = nil
    self._connection:send("status", function(_, s) status = s end)

    local song = nil

    self._connection:send("currentsong", function(_, s)
        song = s
        self._connection:albumart(song.file, function(_, art)
            local info = {}
            if art and art.binary then
                info.icon = '/tmp/test.jpg'
                local f = io.open(info.icon, 'w')
                f:write(art.binary)
                f:close()
            end

            info.title = status.state .. " " .. status.song .. "/" .. status.playlistlength .. " " .. song_duration(status.elapsed, status.duration)
            if not song.artist then
                info.text = string.format("%s", song.title or song.file)
            else
                info.text = string.format("%s - %s", song.artist, song.title)
            end
            if song.album then
                info.text = info.text .. "\n" .. tostring(song.album or "")
            end
            callback(info)
        end)
    end)
end

function widget:popup_show()
    self:get_info(function(table)
        if self._notification then return end
        self._notification = naughty.notify(
            { title = table.title
            , icon = table.icon
            , icon_size = 64
            , text = table.text
            , timeout = 0
            , destroy = function() self._timer:stop(); self._notification = nil end
            })
        self._timer:start()
    end)
end

function widget:popup_hide(delay)
    local function destroy()
        if self._hover then return end
        if not self._notification then return end
        naughty.destroy(self._notification)
        self._notification = nil
    end

    if not delay then
        destroy()
        return
    end

    if self._hide_timer and self._hide_timer.started then
        self._hide_timer.timeout = delay
        self._hide_timer:again()
    else
        self._hide_timer = timer(
            { timeout = delay
            , autostart = true
            , single_shot = true
            , callback = destroy
            })
    end
end

function widget:popup_update()
    self:get_info(function(table)
        if not self._notification then return end
        naughty.replace_text(self._notification, table.title, table.text)
    end)
end

function widget:popup_oneshot(timeout)
    if self._notification then
        self:popup_hide()
        self:popup_show()
    else
        self:popup_show()
    end
    self:popup_hide(5)
end

function widget:error_handler(err)
    self._textbox:set_text("Error: " .. tostring(err))
    timer.start_new(10, function()
        self._connection:send("ping")
    end)
end

function widget:run()
    self._connection = mpc.new(nil, nil, nil, function(err) self:error_handler(err) end,
        "status", function(_, result)
            if not self._status or result.state ~= self._status.state then 
                self._status = result
                self:update_widget()
                self:popup_oneshot(5)
            end
        end,
        "currentsong", function(_, result)
            if not self._currentsong or result.id ~= self._currentsong.id then 
                self._currentsong = result
                self:update_widget()
                self:popup_oneshot(5)
            end
        end
    )

    self._timer = timer({ timeout = 1 })
    self._timer:connect_signal("timeout", function() self:popup_update() end)

    self._hover = false;
    self.scroll:connect_signal("mouse::enter", function() self._hover = true;  self:popup_show()  end)
    self.scroll:connect_signal("mouse::leave", function() self._hover = false; self:popup_hide(2) end)
end

widget:run()

widget.scroll:buttons(gears.table.join(
  awful.button({}, 1, function() widget._connection:toggle_play() end)
, awful.button({}, 4, function() widget._connection:change_volume(5) end)
, awful.button({}, 5, function() widget._connection:change_volume(-5) end))
)

globalkeys = gears.table.join(globalkeys,
    awful.key({ modkey }, "p", function() widget._connection:toggle_play() end,
              { description = "toogle play", group = "mpd" }),
    awful.key({ modkey }, "'", function() widget:popup_oneshot(5) end,
              { description = "show more info", group = "mpd" }),
    awful.key({ modkey }, ",", function() widget._connection:send("previous") end,
              { description = "previous track", group = "mpd" }),
    awful.key({ modkey }, ".", function() widget._connection:send("next") end,
              { description = "next track", group = "mpd" })
)
return {
    layout = wibox.layout.align.horizontal,
    forced_width = 200,
    expand = "outside",
    nil,
    widget.scroll,
    nil,
}