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

local dbg = require("gears.debug")
function widget:get_albumart()
    local art = self._albumart
    -- dbg.dump(art)
    -- dbg.dump(self._albumart.binary)
    if art and art.binary then
        local path = '/tmp/test.jpg'
        local f = io.open(path, 'w')
        f:write(art.binary)
        f:close()
        return path
    else
        return beautiful.mpd_default_album
    end
end

function widget:get_info()
    local status, song = self._status, self._currentsong
    if not status.state then return nil end

    local info = {}
    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

    return info
end

function widget:popup_show()
    if self._notification then return end

    local table = self:get_info()
    if not table then return end

    self._timer:start()
    self._notification = naughty.notify(
        { title = table.title
        , icon = self:get_albumart()
        , icon_size = 64
        , text = table.text
        , timeout = 0
        , destroy = function() self._timer:stop(); self._notification = nil 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()
    if not self._notification then return end
    self._connection:send("status", function(_, status)
        self._status = status
        local table = self:get_info()
        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))
    self._status = {}
end

function widget:run()
    self._status = {}
    self._status.songid = nil

    self._connection = mpc.new(nil, nil, nil, function(err) self:error_handler(err) end,
        "player", function(conn)
            conn:send("status", function(err, status)
                local songchanged = self._status.songid ~= status.songid
                local statechanged = self._status.state ~= status.state
                self._status = status
                if not songchanged then
                    self:update_widget()
                    if statechanged then
                        self:popup_oneshot(5)
                    end
                    return
                end

                conn:send("currentsong", function(_, song)
                    self._currentsong = song
                    conn:albumart(song.file, function(_, art)
                        self._albumart = art
                        self:update_widget()
                        self:popup_oneshot(5)
                    end)
                end)
            end)
        end
    )

    self._keep_alive_timer = timer {
      timeout = 1
    , autostart = true
    , callback = function() self._connection:connect() end
    , call_now = true
    }

    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,
}