From ab8638bfe5202bf00053833fa52fe54cd966742e Mon Sep 17 00:00:00 2001
From: Er2 <er2@dismail.de>
Date: Fri, 8 Jul 2022 21:09:39 +0300
Subject: [PATCH 1/4] 3.0 begin

---
 lib/chroot.lua   |  38 +++++++++-----
 ll-min.lua       |  21 ++++++--
 main.lua         |  30 +++++++++--
 skins/psp.lua    |  13 +++++
 skins/select.lua | 130 +++++++++++++++++++++++++++++++++++++++++++++++
 5 files changed, 213 insertions(+), 19 deletions(-)
 create mode 100644 skins/select.lua

diff --git a/lib/chroot.lua b/lib/chroot.lua
index f0abb42..6635642 100644
--- a/lib/chroot.lua
+++ b/lib/chroot.lua
@@ -3,33 +3,47 @@ return function(ll)
 ll.mdir = nil
 ll.mgme = nil
 
-local ffi = require 'ffi'
-ffi.cdef [[
+if love.getVersion() >= 12 then
+  function ll._mntdir(dir)
+    return love.filesystem.mountFullPath(dir, '/')
+  end
+  function ll._umntdir(dir)
+    love.filesystem.unmountFullPath(dir)
+  end
+else
+  local ffi = require 'ffi'
+  ffi.cdef [[
   int PHYSFS_mount(const char *, const char *, int);
-  int PHYSFS_unmount(const char *);
-]]
+  int PHYSFS_unmount(const char *);]]
+
+  -- FIXME: Bug may appear in Linux. Recompile Love2D or use official PPA.
+  function ll._mntdir(dir)
+    return ffi.C.PHYSFS_mount(dir, '/', 0) ~= 0
+  end
+  function ll._umntdir(dir)
+    ffi.C.PHYSFS_unmount(dir)
+  end
+end
 
 local baseReq = '?.lua;?/init.lua;'
 function ll.mount(gme)
   local mdir = gme.base .. gme.dir
-  ll.mgme = gme
 
-  love.filesystem.setRequirePath(''
-    .. mdir .. '/?.lua;'
+  love.filesystem.setRequirePath(
+       mdir .. '/?.lua;'
     .. mdir .. '/?/init.lua;'
     .. baseReq
   )
-  -- FIXME: Bug may appear in Linux. Recompile Love2D or use official PPA.
-  if ffi.C.PHYSFS_mount(mdir, '/', 0) == 0
-  then error('Cannot mount '..mdir)
+  if ll._mntdir(mdir)
+  then ll.mdir, ll.mgme = mdir, gme
+  else error('Cannot mount '..mdir)
     love.filesystem.setRequirePath(baseReq)
-  else ll.mdir = mdir
   end
 end
 
 function ll.umount()
   if ll.mdir ~= nil then
-    ffi.C.PHYSFS_unmount(ll.mdir)
+    ll._umntdir(ll.mdir)
     ll.mdir = nil
   end
 end
diff --git a/ll-min.lua b/ll-min.lua
index eafd105..f98be56 100644
--- a/ll-min.lua
+++ b/ll-min.lua
@@ -1,5 +1,5 @@
 -- Minimal Love Loader API
--- Version 2.1
+-- Version 3.0
 -- (c) Er2 2022 <er2@dismail.de>
 -- Zlib License
 
@@ -9,6 +9,22 @@ COLDIV = love.getVersion() == 0 and 1 or 255
 MOBILE = love.system.getOS() == 'Android'
   or love.system.getOS() == 'iOS'
 
+function llHome()
+  love.event.push('quit', 'restart')
+end
+
+if love.getVersion() >= 12 then
+  local stfn
+  function love.graphics.stencil(fn) stfn = fn end
+  function love.graphics.setStencilTest(cmp, val)
+    if not cmp
+    then love.graphics.setStencilMode()
+    else love.graphics.setStencilMode('replace', cmp, val, 1, 1)
+	    stfn()
+    end
+  end
+end
+
 if MOBILE
 then love.window.setFullscreen(true)
 end
@@ -22,9 +38,6 @@ function love.resize(x, y)
 end
 love.resize(love.graphics.getDimensions())
 
-function llHome()
-  love.event.push('quit')
-end
 function love.event.quit()
   llHome()
 end
diff --git a/main.lua b/main.lua
index dd4e61c..2ccf979 100644
--- a/main.lua
+++ b/main.lua
@@ -16,9 +16,20 @@ ll.skin = require 'skins.psp' (ll)
 require 'll-min'
 llUsed = true
 
-if love.errorhandler
-then love.errorhandler = error
-else love.errhand = error
+if love.getVersion() >= 12 then
+  function llHome()
+    ll.umount()
+    love.event.restart()
+  end
+else
+  function llHome()
+    ll.umount()
+    love.event.push('quit', 'restart')
+  end
+  if love.getVersion() >= 11 then
+    love.errorhandler = error
+  else love.errhand = error
+  end
 end
 
 local brk = false
@@ -31,6 +42,19 @@ while not brk and not ll.mdir do
     then ll.umount()
       love.event.push('quit')
       brk = true; break
+    elseif n == 'filedropped' then
+      love.graphics.clear()
+      local x, y, g = 32, 32, 16
+      local w, h = 84, 96
+      love.graphics.rectangle('line', x, y, w, h, w / 8)
+      love.graphics.line(x + w / 1.5, y, x + w, y + h / 3)
+      if ll.skin.addGame then
+        a:open 'r'
+        ll.skin.addGame(a:getFilename(), a:read(), x + w + g, y)
+      else love.graphics.print('This skin does not support file dropping', x + w + g, y)
+      end
+      love.graphics.present()
+      love.timer.sleep(2)
     end
     love.handlers[n](a,b,c)
   end
diff --git a/skins/psp.lua b/skins/psp.lua
index 2427148..110701e 100644
--- a/skins/psp.lua
+++ b/skins/psp.lua
@@ -68,6 +68,10 @@ local function update()
     if sel > #ll.games then sel = 1 end
   end
 
+  if logger:sub(-3) == 'mm'
+  then ll.skin = require 'skins.select' (ll)
+  end
+
   pikchv = pikchv + 1
   if pikchv >= ll.cfg.pcht then
     pikchv = 0
@@ -151,9 +155,18 @@ local function draw()
   end
 end
 
+local function addGame(file, cont, x, y)
+  local msg, id = ll.addGame(file, cont)
+  love.graphics.print(msg, x, y)
+  if id then
+    sel = id
+  end
+end
+
 return {
   update = update,
   draw = draw,
+  addGame = addGame,
 }
 
 end
diff --git a/skins/select.lua b/skins/select.lua
new file mode 100644
index 0000000..277e7b1
--- /dev/null
+++ b/skins/select.lua
@@ -0,0 +1,130 @@
+return function(ll)
+
+local skins = {
+  require 'skins.psp',
+  require 'skins.gui',
+  require 'skins.base',
+  require 'skins.select',
+}
+
+local sel = 1
+local sk, ssel
+
+local cx, cw, ch
+
+local scx, scy = 1, 1
+local tscx, tscy
+local canv
+
+local resz, l
+
+function load(nunl)
+  l = true
+  resize = nil
+  assert(skins[sel], 'Skin does not exists')
+  sk = skins[sel](ll)
+  love.resize(love.graphics.getDimensions())
+  sk.update()
+  if not nunl then
+    if sk.lovecb then
+      for _, v in pairs(sk.lovecb)
+      do love[v] = nil
+      end
+    end
+    resize = resz
+    love.resize(love.graphics.getDimensions())
+
+    love.graphics.setCanvas(canv)
+    love.graphics.setColor(0, 0, 0)
+    love.graphics.rectangle('fill', 0, 0, W, H)
+    love.graphics.setColor(255, 255, 255)
+    sk.draw()
+    love.graphics.setCanvas()
+  else ll.skin = sk
+  end
+  l = false
+end
+
+function resize()
+  cx = math.min(W, H) / 8
+  cw, ch =
+    W - cx * 2.5,
+    H - cx * 1.5
+  tscx, tscy =
+    cw / W,
+    ch / H
+
+  canv = love.graphics.newCanvas(W, H)
+  if not l then load() end
+  ll.kbInit('h', cx, W - cx)
+end
+resz = resize
+
+local d
+local function update()
+  if not sk then load() end
+  scx = scx + (tscx - scx) * 0.1
+  scy = scy + (tscy - scy) * 0.1
+
+  if ssel
+  and scx > 0.99
+  and scy > 0.99
+  then load(true) end
+
+  local nd = ll.kbGet()
+
+  if nd ~= d then
+    d = nd
+
+    local ns = sel
+
+    if d == '<'
+    then ns = sel - 1
+    elseif d == '>'
+    then ns = sel + 1
+    elseif d == 'o'
+    then ssel = true
+      tscx, tscy = 1, 1
+    end
+
+    if ns < 1 then ns = #skins end
+    if ns > #skins then ns = 1 end
+
+    if sel ~= ns then
+      sel = ns
+      load()
+    end
+  end
+end
+
+local function draw()
+  local w, h = W * scx, H * scy
+  local x, y, r =
+    (W - w) / 2,
+    (H - h) / 2,
+    math.min(W - w, H - h) / 8
+  love.graphics.setColor(100 / COLDIV, 100 / COLDIV, 100 / COLDIV)
+  love.graphics.rectangle('fill', 0, 0, W, H)
+  love.graphics.setColor(255, 255, 255)
+  love.graphics.stencil(function()
+    love.graphics.rectangle('fill', x, y, w, h, r)
+  end)
+  love.graphics.setStencilTest('greater', 0)
+  love.graphics.draw(canv, x, y, 0, scx, scy)
+  love.graphics.setStencilTest()
+  love.graphics.rectangle('line', x, y, w, h, r)
+end
+
+-- execute if loaded from other skin
+if ll.skin then
+  load()
+  resize()
+  update()
+end
+
+return {
+  draw = draw,
+  update = update,
+}
+
+end

From c0a8f0306379068a370327f86ae7e42e4f2b1274 Mon Sep 17 00:00:00 2001
From: Er2 <er2@dismail.de>
Date: Sat, 9 Jul 2022 15:39:12 +0300
Subject: [PATCH 2/4] fix stencil after some discussion in #1818 in love2d/love

---
 lib/chroot.lua |  8 ++++++--
 ll-min.lua     | 15 +++++++++------
 2 files changed, 15 insertions(+), 8 deletions(-)

diff --git a/lib/chroot.lua b/lib/chroot.lua
index 6635642..c1e0061 100644
--- a/lib/chroot.lua
+++ b/lib/chroot.lua
@@ -12,16 +12,20 @@ if love.getVersion() >= 12 then
   end
 else
   local ffi = require 'ffi'
+  local liblove = ffi.os == 'Windows'
+    and ffi.load 'love'
+    or ffi.C -- thanks to slime73, Love2D developer :)
+
   ffi.cdef [[
   int PHYSFS_mount(const char *, const char *, int);
   int PHYSFS_unmount(const char *);]]
 
   -- FIXME: Bug may appear in Linux. Recompile Love2D or use official PPA.
   function ll._mntdir(dir)
-    return ffi.C.PHYSFS_mount(dir, '/', 0) ~= 0
+    return liblove.PHYSFS_mount(dir, '/', 0) ~= 0
   end
   function ll._umntdir(dir)
-    ffi.C.PHYSFS_unmount(dir)
+    liblove.PHYSFS_unmount(dir)
   end
 end
 
diff --git a/ll-min.lua b/ll-min.lua
index f98be56..86e6389 100644
--- a/ll-min.lua
+++ b/ll-min.lua
@@ -14,13 +14,16 @@ function llHome()
 end
 
 if love.getVersion() >= 12 then
-  local stfn
-  function love.graphics.stencil(fn) stfn = fn end
+  function love.graphics.stencil(fn)
+    love.graphics.setColorMask(false)
+    love.graphics.setStencilMode('replace', 'always', 1)
+    fn()
+    love.graphics.setColorMask(true)
+  end
   function love.graphics.setStencilTest(cmp, val)
-    if not cmp
-    then love.graphics.setStencilMode()
-    else love.graphics.setStencilMode('replace', cmp, val, 1, 1)
-	    stfn()
+    if cmp
+    then love.graphics.setStencilMode('keep', cmp, val)
+    else love.graphics.setStencilMode()
     end
   end
 end

From f56eabf59cf139e0c0e5093a3b111b93c588677d Mon Sep 17 00:00:00 2001
From: Er2 <er2@dismail.de>
Date: Fri, 15 Jul 2022 14:17:59 +0300
Subject: [PATCH 3/4] DT and some internal updates, base skin scrolling.

---
 lib/keyb.lua   |  2 +-
 lib/main.lua   |  2 ++
 main.lua       | 20 +++++++++++++-------
 skins/base.lua | 13 +++++++++++--
 skins/gui.lua  | 17 +++++++++--------
 skins/psp.lua  | 17 ++++++++---------
 6 files changed, 44 insertions(+), 27 deletions(-)

diff --git a/lib/keyb.lua b/lib/keyb.lua
index e3c0719..bf7d9b6 100644
--- a/lib/keyb.lua
+++ b/lib/keyb.lua
@@ -54,7 +54,7 @@ function ll.kbGet()
   elseif love.keyboard.isDown 'menu'
   then return 'm'
 
-  elseif mb == 0 and mpb == 1 then -- unpressed
+  elseif mb == 0 and mpb == 1 then -- mouse unpressed
     if dir == 'h' then
     if sclm < 0 or my <= sclm then
       if mx <= sc1
diff --git a/lib/main.lua b/lib/main.lua
index dee7506..9859a1e 100644
--- a/lib/main.lua
+++ b/lib/main.lua
@@ -21,7 +21,9 @@ function ll.devtools()
     ll.dt = true
     __LL = ll
     pcall(function() require 'dev.tools' end)
+    return true
   end
+  return false
 end
 
 return ll
diff --git a/main.lua b/main.lua
index 2ccf979..2c84ede 100644
--- a/main.lua
+++ b/main.lua
@@ -1,7 +1,10 @@
 local ll = require 'lib.main'
 error = love.errhand or love.errorhandler
 
+ll.skin = require 'skins.psp' (ll)
+
 function splash()
+  if not ll.mgme then return end
   love.graphics.setColor(255, 255, 255, 100 / COLDIV)
   if ll.mgme.screens and ll.mgme.screens[1] then
     local img = love.graphics.newImage(ll.mgme.screens[1])
@@ -11,8 +14,6 @@ function splash()
   love.graphics.print('Loading '..ll.mgme.name, W / 2, H / 2)
 end
 
-ll.skin = require 'skins.psp' (ll)
-
 require 'll-min'
 llUsed = true
 
@@ -26,12 +27,13 @@ else
     ll.umount()
     love.event.push('quit', 'restart')
   end
-  if love.getVersion() >= 11 then
-    love.errorhandler = error
-  else love.errhand = error
-  end
+end
+if love.getVersion() >= 11
+then love.errorhandler = error
+else love.errhand = error
 end
 
+local dt = love.timer and love.timer.step() or 0
 local brk = false
 while not brk and not ll.mdir do
   -- event handling
@@ -60,7 +62,11 @@ while not brk and not ll.mdir do
   end
 
   -- update and drawing
-  ll.skin.update()
+  if love.timer then
+    love.timer.step()
+    dt = love.timer.getDelta()
+  end
+  ll.skin.update(dt)
   love.graphics.origin()
   love.graphics.clear(0, 0, 0)
   ll.skin.draw()
diff --git a/skins/base.lua b/skins/base.lua
index ca31268..a772dbe 100644
--- a/skins/base.lua
+++ b/skins/base.lua
@@ -86,6 +86,11 @@ local function ccp()
          return ''
     else return 'Not found'
     end
+  elseif cmd == 'devtools' then
+    if ll.devtools()
+    then return 'Enabled'
+    else return 'Already enabled'
+    end
   else return 'Unknown command "'.. cmd .. '"'
   end
 end
@@ -117,6 +122,7 @@ local function update()
   end
 end
 
+local oy = 0
 local utf8 = require 'utf8'
 local function draw()
   love.graphics.setColor(255, 255, 255)
@@ -132,15 +138,18 @@ local function draw()
     then x = x + 8 - (x % 8)
     elseif chr == '\v'
     then y = y + 1
-    else love.graphics.print(chr, x * cw, y * ch)
+    else love.graphics.print(chr, x * cw, y * ch - oy)
       if x >= ctw
       then x, y = x - ctw, y + 1
       else x = x + 1
       end
     end
   end
+  if y * ch - oy >= H
+  then oy = oy + H / 4
+  end
   if os.time() % 2 == 0
-  then love.graphics.rectangle('fill', x * cw, y * ch, cw, ch)
+  then love.graphics.rectangle('fill', x * cw, y * ch - oy, cw, ch)
   end
 end
 
diff --git a/skins/gui.lua b/skins/gui.lua
index fdb2708..f817d66 100644
--- a/skins/gui.lua
+++ b/skins/gui.lua
@@ -1,9 +1,10 @@
 return function(ll)
 
-ll.cfg.pcht = ll.cfg.pcht or 60 * 5
+ll.cfg.pcht = ll.cfg.pcht or 60 * 10
 
 local pikchv, pikcha = 0, 0
 local pikchao = math.floor(1 / ll.cfg.pcht * 2 * 255 + 0.5)
+local bg = 0
 
 local cx, cy, cw, ch
 local f, bf
@@ -25,7 +26,7 @@ function resize()
   ll.kbInit('h', cx, cx + cw)
 end
 
-local function update()
+local function update(dt)
   local sdi = ll.kbGet()
 
   if cdir ~= sdi then
@@ -46,8 +47,8 @@ local function update()
     if sel > #ll.games then sel = 1 end
   end
 
-  pikchv = pikchv + 1
-  if pikchv >= ll.cfg.pcht then
+  pikchv = pikchv + dt
+  if pikchv >= ll.cfg.pcht / 100 then
     pikchv = 0
     pikcha = 0
     for _, v in pairs(ll.games) do
@@ -59,11 +60,12 @@ local function update()
         end
       end
     end
-  else pikcha = math.min(255, pikcha + pikchao)
+  else pikcha = math.min(255, pikcha + pikchao * 100 * dt)
   end
+
+  bg = (bg + dt) % 6.28
 end
 
-local tm = 0
 local function draw()
   love.graphics.setColor(0 / COLDIV, 50 / COLDIV, 75 / COLDIV)
   love.graphics.rectangle('fill', 0, 0, W, H)
@@ -74,8 +76,7 @@ local function draw()
   local tw, th = bf:getWidth(t), bf:getHeight(t)
   love.graphics.print(t, W - tw - 8, H - th)
 
-  tm = (tm + 0.02) % 6.28
-  local c, pc, ps = tm, math.cos(tm), math.sin(tm)
+  local c, pc, ps = bg, math.cos(bg), math.sin(bg)
   local oy = H / 2
   for x = 0, W + 8, 8 do
     c = c + 0.1
diff --git a/skins/psp.lua b/skins/psp.lua
index 110701e..7988d83 100644
--- a/skins/psp.lua
+++ b/skins/psp.lua
@@ -10,7 +10,7 @@ local css, rcss = 2, 0
 
 local f, bf
 
-ll.cfg.pcht = ll.cfg.pcht or 60 * 5
+ll.cfg.pcht = ll.cfg.pcht or 60 * 10
 
 local pikchv, pikcha = 0, 0
 local pikchao = math.floor(1 / ll.cfg.pcht * 2 * 255 + 0.5)
@@ -36,10 +36,10 @@ end
 love.window.setMode(800, 600, {resizable = true})
 
 local sdir
-local function update()
+local function update(dt)
   local ty = H / 2 - (ch + cg) * sel
-  cy   = cy  + (ty - cy) * 0.1
-  css  = css + (2 - css) * 0.2
+  cy   = cy  + (ty - cy) *  5 * dt
+  css  = css + (2 - css) * 15 * dt
   rcss = 2 - css + 1
 
   local sdi = ll.kbGet()
@@ -72,10 +72,9 @@ local function update()
   then ll.skin = require 'skins.select' (ll)
   end
 
-  pikchv = pikchv + 1
-  if pikchv >= ll.cfg.pcht then
-    pikchv = 0
-    pikcha = 0
+  pikchv = pikchv + dt
+  if pikchv >= ll.cfg.pcht / 100 then
+    pikchv, pikcha = 0, 0
     for _, v in pairs(ll.games) do
       if v.dat.scr then
         v.scrprv = v.scrcur
@@ -85,7 +84,7 @@ local function update()
         end
       end
     end
-  else pikcha = math.min(255, pikcha + pikchao)
+  else pikcha = math.min(255, pikcha + pikchao * 100 * dt)
   end
 end
 

From b8cecffec258b458d7ca3b3c46a7de906aed9b4e Mon Sep 17 00:00:00 2001
From: Er2 <er2@dismail.de>
Date: Thu, 8 Sep 2022 21:45:22 +0300
Subject: [PATCH 4/4] Update.

Add 2nd limit for other coordinate in lib/keyb.

Add build script.

Fix luapack.

Removed select skin (very buggy).

Added battery and time indicator in psp skin.
---
 .gitignore       |   9 ++--
 build.sh         |  61 ++++++++++++++++++++++
 lib/keyb.lua     |  45 +++++++++++-----
 lib/main.lua     |  17 +++++--
 ll-min.lua       |   5 +-
 luapack.lua      |   7 ++-
 main.lua         |   2 +-
 skins/nx.lua     |  71 ++++++++++++++++++++++++++
 skins/psp.lua    |  42 ++++++++++++---
 skins/select.lua | 130 -----------------------------------------------
 10 files changed, 227 insertions(+), 162 deletions(-)
 create mode 100755 build.sh
 create mode 100644 skins/nx.lua
 delete mode 100644 skins/select.lua

diff --git a/.gitignore b/.gitignore
index 81b0c56..8500a4a 100644
--- a/.gitignore
+++ b/.gitignore
@@ -1,5 +1,6 @@
-dev
-build/
-games/*
-!games/.gitkeep
+/.cache
+/dev/
+/build/
+/games/*
+!/games/.gitkeep
 
diff --git a/build.sh b/build.sh
new file mode 100755
index 0000000..f06b433
--- /dev/null
+++ b/build.sh
@@ -0,0 +1,61 @@
+#!/bin/sh
+
+echo General packaging
+rm -r build
+mkdir build
+cd build
+
+mv ../dev ../deva
+lua ~/proj/luapack/main.lua ../luapack.lua
+mv ../deva ../dev
+
+#cp -r lib skins ll-min.lua build/
+
+zip -9 -r ../game.love .
+rm *
+mv ../game.love .
+
+echo Windows packaging
+VER=11.4
+BITS=64
+ARCH=x86_64
+if [ ! -d ../.cache/love-$VER-win$BITS ]; then
+  mkdir -p ../.cache/love-$VER-win$BITS
+  cd ../.cache
+  wget https://github.com/love2d/love/releases/download/$VER/love-$VER-win$BITS.zip
+  unzip love-$VER-win$BITS.zip
+  cd -
+fi
+mkdir win && cd win
+cp -r ../../.cache/love-$VER-win$BITS/* .
+cat love.exe ../game.love > game.exe
+rm love.exe lovec.exe *.ico *.txt
+zip -r ../win.zip *
+cd ..
+rm -r win
+
+echo Linux packaging
+if [ ! -e ../.cache/love-$VER-$ARCH.AppImage ]; then
+  cd ../.cache
+  wget https://github.com/love2d/love/releases/download/$VER/love-$VER-$ARCH.AppImage
+  chmod a+x love-$VER-$ARCH.AppImage
+  cd -
+fi
+if [ ! -e ../.cache/appimagetool-$ARCH.AppImage ]; then
+  cd ../.cache
+  wget https://github.com/AppImage/AppImageKit/releases/download/13/appimagetool-$ARCH.AppImage
+  chmod a+x appimagetool-$ARCH.AppImage
+  cd -
+fi
+mkdir lin && cd lin
+../../.cache/love-$VER-$ARCH.AppImage --appimage-extract > /dev/null
+cd squashfs-root
+cat ../../game.love >> bin/love
+chmod a+x bin/love
+cd ..
+../../.cache/appimagetool-$ARCH.AppImage squashfs-root ../linux.AppImage > /dev/null
+rm -r squashfs-root
+chmod a+x ../linux.AppImage
+cd ..
+rm -r lin
+
diff --git a/lib/keyb.lua b/lib/keyb.lua
index bf7d9b6..84b2e52 100644
--- a/lib/keyb.lua
+++ b/lib/keyb.lua
@@ -1,13 +1,14 @@
 return function(ll)
 
 local mx, my, mb, mpb
-local dir, sc1, sc2, sclm
+local dir, sc1, sc2, sclm1, sclm2
 
--- d   - direction (h, v, x, y, *)
--- c1  - coordinate before card (mouse) (be left or top)
--- c2  - coordinate after  card (mouse) (be right or bottom)
--- clm - other coordinate limit (mouse) (set -1 to disable)
-function ll.kbInit(d, c1, c2, clim)
+-- d     - direction (h, v, x, y, *)
+-- c1    - coordinate before card        (mouse) (be left or top)
+-- c2    - coordinate after  card        (mouse) (be right or bottom)
+-- clim1 - other coordinate limit before (mouse) (set -1 to disable)
+-- clim2 - other coordinate limit after  (mouse) (set -1 to disable)
+function ll.kbInit(d, c1, c2, clim1, clim2)
   if d == 'h' or d == 'v' or d == '*'
   then dir = d
   elseif d == 'y'
@@ -17,19 +18,37 @@ function ll.kbInit(d, c1, c2, clim)
   else error 'Direction must be *, h (x) or v (y)'
   end
 
+  ll.kbSetCC(c1, c2)
+  ll.kbSetOC(clim1, clim2)
+end
+
+-- set card coordinate
+-- c1    - coordinate before card (mouse) (be left or top)
+-- c2    - coordinate after  card (mouse) (be right or bottom)
+function ll.kbSetCC(c1, c2)
   c1, c2 =
     tonumber(c1) or 0,
     tonumber(c2) or 0
-  sc1, sc2, sclm =
+
+  sc1, sc2 =
     math.min(c1, c2),
-    math.max(c1, c2),
-    tonumber(clim) or -1
+    math.max(c1, c2)
+end
+
+-- set other coordinate limit
+-- clim1 - other coordinate limit before (mouse) (set -1 to disable)
+-- clim2 - other coordinate limit after  (mouse) (set -1 to disable)
+function ll.kbSetOC(clim1, clim2)
+  sclm1, sclm2 =
+    tonumber(clim1) or -1,
+    tonumber(clim2) or -1
 end
 
 -- returns: <, >, o, m, nil
 -- ^ and v if dir is *
 function ll.kbGet()
-  assert(dir, 'Call ll.kbInit(dir, coord1, coord2, coordlimit) before')
+  assert(dir, 'Call ll.kbInit() before')
+  assert(love, 'Use it with LÖVE engine')
   mx, my = love.mouse.getPosition()
   mpb = mb
   if love.mouse.isDown(1) then mb = 1
@@ -56,7 +75,8 @@ function ll.kbGet()
 
   elseif mb == 0 and mpb == 1 then -- mouse unpressed
     if dir == 'h' then
-    if sclm < 0 or my <= sclm then
+    if  (sclm1 < 0 or my  > sclm1)
+    and (sclm2 < 0 or my <= sclm2) then
       if mx <= sc1
       then return '<'
       elseif mx >= sc2
@@ -65,7 +85,8 @@ function ll.kbGet()
       end
     end
     else
-    if sclm < 0 or mx <= sclm then
+    if  (sclm1 < 0 or mx  > sclm1)
+    and (sclm2 < 0 or mx <= sclm2) then
       if my <= sc1
       then return '<'
       elseif my >= sc2
diff --git a/lib/main.lua b/lib/main.lua
index 9859a1e..f119d65 100644
--- a/lib/main.lua
+++ b/lib/main.lua
@@ -4,19 +4,25 @@ ll.cfg = {
   root = 'games/',
 }
 
-require 'lib.fs'     (ll)
-require 'lib.game'   (ll)
-require 'lib.chroot' (ll)
-require 'lib.load'   (ll)
-require 'lib.keyb'   (ll)
+require 'lib.fs'       (ll)
+require 'lib.game'     (ll)
+if love then
+  require 'lib.chroot' (ll)
+  -- TODO: CLI interface?
+  require 'lib.load'   (ll)
+end
+require 'lib.keyb'     (ll) -- except ll.kbGet()
 
 function ll.home()
+  if not love then return end
   ll.umount()
   love.event.push('quit', 'restart')
 end
 
 ll.dt = false
 function ll.devtools()
+  if not love then return end
+
   if not ll.dt then
     ll.dt = true
     __LL = ll
@@ -27,3 +33,4 @@ function ll.devtools()
 end
 
 return ll
+
diff --git a/ll-min.lua b/ll-min.lua
index 86e6389..a47f01a 100644
--- a/ll-min.lua
+++ b/ll-min.lua
@@ -6,8 +6,11 @@
 if not llUsed then
 
 COLDIV = love.getVersion() == 0 and 1 or 255
-MOBILE = love.system.getOS() == 'Android'
+if love.system
+then MOBILE = love.system.getOS() == 'Android'
   or love.system.getOS() == 'iOS'
+else MOBILE = false
+end
 
 function llHome()
   love.event.push('quit', 'restart')
diff --git a/luapack.lua b/luapack.lua
index ab4dec7..b4787e4 100644
--- a/luapack.lua
+++ b/luapack.lua
@@ -1,6 +1,9 @@
 return {
-  entry = 'main.lua',
-  output = 'build/main.lua',
+  entry = {
+    'main.lua',
+    'll-min.lua',
+  },
+  output = 'build/$name.lua',
   plug = {
     require 'plug.minify' {
       extGlob = {
diff --git a/main.lua b/main.lua
index 2c84ede..6364fcd 100644
--- a/main.lua
+++ b/main.lua
@@ -1,7 +1,7 @@
 local ll = require 'lib.main'
 error = love.errhand or love.errorhandler
 
-ll.skin = require 'skins.psp' (ll)
+ll.skin = require 'skins.nx' (ll)
 
 function splash()
   if not ll.mgme then return end
diff --git a/skins/nx.lua b/skins/nx.lua
new file mode 100644
index 0000000..1bbf750
--- /dev/null
+++ b/skins/nx.lua
@@ -0,0 +1,71 @@
+return function(ll)
+
+-- Nintendo NX (AKA Switch) UI
+
+local r
+
+os.setlocale('', 'time')
+
+function resize()
+  r = math.min(W, H) / 30
+
+  f = love.graphics.setNewFont(math.min(W, H) / 30)
+  bf = love.graphics.newFont(math.min(W, H) / 20)
+
+  --ll.kbInit('h', H / 2 - ch, H / 2 + ch + cg, 0, cx + cw * 2)
+end
+
+local function update(dt)
+end
+
+local function roundRect(m, x, y, w, h, r)
+  if w < 1 or h < 1 then return end
+
+  love.graphics.rectangle(m, x, y, w, h, r)
+
+  if m == 'fill'
+  then roundRect('line', x, y, w, h, r)
+  end
+end
+
+local function draw()
+  love.graphics.setColor(0 / COLDIV, 50 / COLDIV, 75 / COLDIV)
+  love.graphics.rectangle('fill', 0, 0, W, H)
+  love.graphics.setColor(255, 255, 255)
+  -- Indicators
+  love.graphics.push()
+  love.graphics.translate(W - W / 16, H / 16)
+  love.graphics.setLineWidth(r / 8)
+  local pst, pper = love.system.getPowerInfo()
+  if pst ~= 'nobattery' then
+    pper = pper or 0
+    if pst == 'charging'
+    then pper = os.time() % 5 / 4 * 100
+    end
+    roundRect('line', -r * 2.2, 0, r * 2, r * 1.2, r / 4)
+    roundRect('fill', -r / 6, r * 0.3, r / 4, r / 2, r / 16)
+    roundRect('fill', -r * 1.95, r * 0.3, r * 1.5 * pper / 100, r * 0.6, r / 16)
+    love.graphics.translate(-r * 2.8, 0)
+  end
+  local time = os.date('%X'):gsub('^(%d+.+%d+).+%d+', '%1')
+  local w = f:getWidth(time)
+  love.graphics.print(time, -w, -2)
+  love.graphics.pop()
+end
+
+local function addGame(file, cont, x, y)
+  local msg, id = ll.addGame(file, cont)
+  love.graphics.print(msg, x, y)
+  if id then
+    sel = id
+  end
+end
+
+return {
+  update = update,
+  draw = draw,
+  addGame = addGame,
+}
+
+end
+
diff --git a/skins/psp.lua b/skins/psp.lua
index 7988d83..5a766c1 100644
--- a/skins/psp.lua
+++ b/skins/psp.lua
@@ -18,6 +18,8 @@ local pikchao = math.floor(1 / ll.cfg.pcht * 2 * 255 + 0.5)
 local logger = ''
 local chc = '<>><m><'
 
+os.setlocale('', 'time')
+
 function resize()
   r = math.min(W, H) / 30
 
@@ -30,11 +32,9 @@ function resize()
   f = love.graphics.setNewFont(math.min(W, H) / 30)
   bf = love.graphics.newFont(math.min(W, H) / 20)
 
-  ll.kbInit('v', H / 2 - ch, H / 2 + ch + cg, cx + cw * 2)
+  ll.kbInit('v', H / 2 - ch, H / 2 + ch + cg, 0, cx + cw * 2)
 end
 
-love.window.setMode(800, 600, {resizable = true})
-
 local sdir
 local function update(dt)
   local ty = H / 2 - (ch + cg) * sel
@@ -68,10 +68,6 @@ local function update(dt)
     if sel > #ll.games then sel = 1 end
   end
 
-  if logger:sub(-3) == 'mm'
-  then ll.skin = require 'skins.select' (ll)
-  end
-
   pikchv = pikchv + dt
   if pikchv >= ll.cfg.pcht / 100 then
     pikchv, pikcha = 0, 0
@@ -99,6 +95,16 @@ local function scrCard(gme, x, y, w, h, a)
   love.graphics.rectangle('fill', x, y, w, h)
 end
 
+local function roundRect(m, x, y, w, h, r)
+  if w < 1 or h < 1 then return end
+
+  love.graphics.rectangle(m, x, y, w, h, r)
+
+  if m == 'fill'
+  then roundRect('line', x, y, w, h, r)
+  end
+end
+
 local function draw()
   love.graphics.setColor(0 / COLDIV, 50 / COLDIV, 75 / COLDIV)
   love.graphics.rectangle('fill', 0, 0, W, H)
@@ -112,6 +118,28 @@ local function draw()
     sel = #ll.games
   end
   love.graphics.setFont(f)
+
+  -- battery indicators
+  love.graphics.setColor(255, 255, 255)
+  love.graphics.push()
+  love.graphics.translate(W - r * 1.5, r)
+  love.graphics.setLineWidth(r / 8)
+  local pst, pper = love.system.getPowerInfo()
+  if pst ~= 'nobattery' then
+    pper = pper or 0
+    if pst == 'charging'
+    then pper = os.time() % 5 / 4 * 100
+    end
+    roundRect('line', -r * 2.2, 0, r * 2, r * 1.2, r / 4)
+    roundRect('fill', -r / 6, r * 0.3, r / 4, r / 2, r / 16)
+    roundRect('fill', -r * 1.95, r * 0.3, r * 1.5 * pper / 100, r * 0.6, r / 16)
+    love.graphics.translate(-r * 2.8, 0)
+  end
+  local time = os.date('%X'):gsub('^(%d+.+%d+).+%d+', '%1')
+  local w = f:getWidth(time)
+  love.graphics.print(time, -w, -2)
+  love.graphics.pop()
+
   local oy = 0
   for k, v in pairs(ll.games) do
     local x, w, h, g = cx, cw, ch, cg
diff --git a/skins/select.lua b/skins/select.lua
deleted file mode 100644
index 277e7b1..0000000
--- a/skins/select.lua
+++ /dev/null
@@ -1,130 +0,0 @@
-return function(ll)
-
-local skins = {
-  require 'skins.psp',
-  require 'skins.gui',
-  require 'skins.base',
-  require 'skins.select',
-}
-
-local sel = 1
-local sk, ssel
-
-local cx, cw, ch
-
-local scx, scy = 1, 1
-local tscx, tscy
-local canv
-
-local resz, l
-
-function load(nunl)
-  l = true
-  resize = nil
-  assert(skins[sel], 'Skin does not exists')
-  sk = skins[sel](ll)
-  love.resize(love.graphics.getDimensions())
-  sk.update()
-  if not nunl then
-    if sk.lovecb then
-      for _, v in pairs(sk.lovecb)
-      do love[v] = nil
-      end
-    end
-    resize = resz
-    love.resize(love.graphics.getDimensions())
-
-    love.graphics.setCanvas(canv)
-    love.graphics.setColor(0, 0, 0)
-    love.graphics.rectangle('fill', 0, 0, W, H)
-    love.graphics.setColor(255, 255, 255)
-    sk.draw()
-    love.graphics.setCanvas()
-  else ll.skin = sk
-  end
-  l = false
-end
-
-function resize()
-  cx = math.min(W, H) / 8
-  cw, ch =
-    W - cx * 2.5,
-    H - cx * 1.5
-  tscx, tscy =
-    cw / W,
-    ch / H
-
-  canv = love.graphics.newCanvas(W, H)
-  if not l then load() end
-  ll.kbInit('h', cx, W - cx)
-end
-resz = resize
-
-local d
-local function update()
-  if not sk then load() end
-  scx = scx + (tscx - scx) * 0.1
-  scy = scy + (tscy - scy) * 0.1
-
-  if ssel
-  and scx > 0.99
-  and scy > 0.99
-  then load(true) end
-
-  local nd = ll.kbGet()
-
-  if nd ~= d then
-    d = nd
-
-    local ns = sel
-
-    if d == '<'
-    then ns = sel - 1
-    elseif d == '>'
-    then ns = sel + 1
-    elseif d == 'o'
-    then ssel = true
-      tscx, tscy = 1, 1
-    end
-
-    if ns < 1 then ns = #skins end
-    if ns > #skins then ns = 1 end
-
-    if sel ~= ns then
-      sel = ns
-      load()
-    end
-  end
-end
-
-local function draw()
-  local w, h = W * scx, H * scy
-  local x, y, r =
-    (W - w) / 2,
-    (H - h) / 2,
-    math.min(W - w, H - h) / 8
-  love.graphics.setColor(100 / COLDIV, 100 / COLDIV, 100 / COLDIV)
-  love.graphics.rectangle('fill', 0, 0, W, H)
-  love.graphics.setColor(255, 255, 255)
-  love.graphics.stencil(function()
-    love.graphics.rectangle('fill', x, y, w, h, r)
-  end)
-  love.graphics.setStencilTest('greater', 0)
-  love.graphics.draw(canv, x, y, 0, scx, scy)
-  love.graphics.setStencilTest()
-  love.graphics.rectangle('line', x, y, w, h, r)
-end
-
--- execute if loaded from other skin
-if ll.skin then
-  load()
-  resize()
-  update()
-end
-
-return {
-  draw = draw,
-  update = update,
-}
-
-end