dan/eufon
1
0
Fork 0
Code Issues Pull Requests Releases Activity

saturn: RGBA and white on dark

Browse Source
This commit is contained in:
Samuel Dionne-Riel 2022-01-22 01:00:36 -05:00 committed by Daniel Barlow
parent 6019a9b97a
commit 405f433207
1 changed files with 38 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

38
saturn/main.fnl
View File

@ -3,6 +3,25 @@
(local dbus (require :dbus_proxy)) (local dbus (require :dbus_proxy))
(local inspect (require :inspect)) (local inspect (require :inspect))
(local CSS "
* {
color: rgb(255, 255, 255);
text-shadow:
0px 1px rgba(0, 0, 0, 255)
, 1px 0px rgba(0, 0, 0, 255)
, 0px -1px rgba(0, 0, 0, 255)
, -1px 0px rgba(0, 0, 0, 255)
, 1px 1px rgba(0, 0, 0, 255)
, 1px -1px rgba(0, 0, 0, 255)
, -1px 1px rgba(0, 0, 0, 255)
, -1px -1px rgba(0, 0, 0, 255)
;
}
#toplevel {
background-color: rgba(0, 0, 0, 0.6);
}
")
(local dbus-service-attrs (local dbus-service-attrs
{ {
:bus dbus.Bus.SESSION :bus dbus.Bus.SESSION
@ -73,16 +92,35 @@
(local posix (require :posix)) (local posix (require :posix))
(local Gtk lgi.Gtk) (local Gtk lgi.Gtk)
(local Gdk lgi.Gdk)
(local Pango lgi.Pango) (local Pango lgi.Pango)
(local icon-theme (Gtk.IconTheme.get_default)) (local icon-theme (Gtk.IconTheme.get_default))
;; Use the declared CSS for this app
(let [style_provider (Gtk.CssProvider)]
(style_provider:load_from_data CSS)
(Gtk.StyleContext.add_provider_for_screen
(Gdk.Screen.get_default)
style_provider
Gtk.STYLE_PROVIDER_PRIORITY_APPLICATION
))
(local window (Gtk.Window { (local window (Gtk.Window {
:title "Saturn V" :title "Saturn V"
:name "toplevel"
:default_width 720 :default_width 720
:default_height 800 :default_height 800
:on_destroy Gtk.main_quit :on_destroy Gtk.main_quit
})) }))
;; Using RGBA visual for semi-transparent backgrounds
;; Requires compositing (e.g. a compositor on X11)
(let [screen (window:get_screen)
visual (screen:get_rgba_visual)]
(window:set_visual visual))
(fn find-icon [name] (fn find-icon [name]
(var found false) (var found false)
(if (= (name.sub 1 1) "/") (if (= (name.sub 1 1) "/")