From 9225218eb00f350dd32a8a8592029f12ea7fb1d9 Mon Sep 17 00:00:00 2001
From: mitchell <70453897+667e-11@users.noreply.github.com>
Date: Sun, 8 Nov 2009 22:54:37 -0500
Subject: Search _USERHOME for theme names in addition to _HOME.

---
 core/init.lua | 7 +++++++
 1 file changed, 7 insertions(+)

(limited to 'core/init.lua')

diff --git a/core/init.lua b/core/init.lua
index 66293773..f3d81512 100644
--- a/core/init.lua
+++ b/core/init.lua
@@ -17,6 +17,13 @@ if f then
   f:close()
   if theme and #theme > 0 then _THEME = theme end
 end
+theme = _THEME
+if not theme:find('[/\\]') then
+  _THEME = _HOME..'/themes/'..theme
+  if not lfs.attributes(_THEME) then
+    _THEME = _USERHOME..'/themes/'..theme
+  end
+end
 
 require 'iface'
 require 'locale'
-- 
cgit v1.2.3