From 67db86ec53336da886153797deb643483e9596d0 Mon Sep 17 00:00:00 2001
From: Alex Auvolat <alex@adnab.me>
Date: Sun, 1 Apr 2018 19:20:19 +0200
Subject: themes

---
 src/config/retro/theme.lua | 55 ++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 55 insertions(+)
 create mode 100644 src/config/retro/theme.lua

(limited to 'src/config/retro/theme.lua')

diff --git a/src/config/retro/theme.lua b/src/config/retro/theme.lua
new file mode 100644
index 0000000..673ab3d
--- /dev/null
+++ b/src/config/retro/theme.lua
@@ -0,0 +1,55 @@
+local theme = {
+	fonts = {
+		default = 'galax___.ttf',
+		title = 'faceptbs.ttf'
+	},
+	fontsize = {
+		default = 16,
+		title = 16
+	},
+	colors = {
+		window_border = function(tk) return tk.rgb(0, 128, 128) end,
+		window_title_bg = function(tk) return tk.rgb(0, 0, 0) end,
+		window_title = function(tk) return tk.rgb(255, 0, 255) end,
+		default_bg = function(tk) return tk.rgb(0, 0, 0) end,
+		default = function(tk) return tk.rgb(255, 255, 255) end,
+		scrollbar = function(tk) return tk.rgb(0, 255, 255) end,
+		resizebox = function(tk) return tk.rgb(0, 0, 0) end,
+		resizebox_border = function(tk) return tk.rgb(0, 255, 255) end,
+		button = {
+			good = {
+				text = function(tk) return tk.rgb(0, 255, 0) end,
+				bg = function(tk) return tk.rgb(0, 0, 0) end
+			},
+			bad = {
+				text = function(tk) return tk.rgb(255, 0, 0) end,
+				bg = function(tk) return tk.rgb(0, 0, 0) end
+			},
+			action = {
+				text = function(tk) return tk.rgb(128, 128, 255) end,
+				bg = function(tk) return tk.rgb(0, 0, 0) end
+			}
+		}
+	},
+	draw_bg = function(x0, y0, buf)
+			local step = 32
+			local halfstep = 16
+			buf:fillrect(0, 0, buf:width(), buf:height(), buf:rgb(0, 0, 0))
+			for x = x0 - (x0 % step), x0 + buf:width(), step do
+				for y = y0 - (y0 % step), y0 + buf:height(), step do
+					buf:fillrect(x - x0, y - y0 + halfstep, step, 1, buf:rgb(0, 0, 255))
+					buf:fillrect(x - x0 + halfstep, y - y0, 1, step, buf:rgb(0, 0, 255))
+				end
+			end
+	end,
+	draw_image_bg = function(x0, y0, buf)
+		local step = 4
+		local halfstep = 2
+		for y = y0 - (y0 % step), y0 + buf:height(), step do
+			buf:fillrect(0, y - y0, buf:width(), halfstep, buf:rgb(64, 64, 64))
+			buf:fillrect(0, y - y0 + halfstep, buf:width(), halfstep, buf:rgb(80, 80, 80))
+		end
+	end
+}
+
+return theme
-- 
cgit v1.2.3