diff --git a/LICENSE b/LICENSE new file mode 100644 --- /dev/null +++ b/LICENSE @@ -0,0 +1,20 @@ +Copyright 2013 Alexey Kotlyarov + +Permission is hereby granted, free of charge, to any person obtaining +a copy of this software and associated documentation files (the +"Software"), to deal in the Software without restriction, including +without limitation the rights to use, copy, modify, merge, publish, +distribute, sublicense, and/or sell copies of the Software, and to +permit persons to whom the Software is furnished to do so, subject to +the following conditions: + +The above copyright notice and this permission notice shall be +included in all copies or substantial portions of the Software. + +THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, +EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF +MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND +NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE +LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION +OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION +WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. diff --git a/Setup.hs b/Setup.hs new file mode 100644 --- /dev/null +++ b/Setup.hs @@ -0,0 +1,2 @@ +import Distribution.Simple +main = defaultMain diff --git a/src/Main.hs b/src/Main.hs new file mode 100644 --- /dev/null +++ b/src/Main.hs @@ -0,0 +1,6 @@ +module Main (main) where + +import qualified System.Tianbar + +main :: IO () +main = System.Tianbar.main diff --git a/src/gdk_property_change_wrapper.c b/src/gdk_property_change_wrapper.c new file mode 100644 --- /dev/null +++ b/src/gdk_property_change_wrapper.c @@ -0,0 +1,28 @@ +//////////////////////////////////////////////////////////////////////////// +// Copyright : (c) Jan Vornberger 2009 +// License : BSD3-style (see LICENSE) +// +// Maintainer : jan.vornberger@informatik.uni-oldenburg.de +////////////////////////////////////////////////////////////////////////////- + +#include +#include + +void set_strut_properties(GtkWindow *window, + long left, long right, long top, long bottom, + long left_start_y, long left_end_y, + long right_start_y, long right_end_y, + long top_start_x, long top_end_x, + long bottom_start_x, long bottom_end_x) { + gulong data[12] = {0}; + data[0] = left; data[1] = right; data[2] = top; data[3] = bottom; + data[4] = left_start_y; data[5] = left_end_y; + data[6] = right_start_y; data[7] = right_end_y; + data[8] = top_start_x; data[9] = top_end_x; + data[10] = bottom_start_x; data[11] = bottom_end_x; + + gdk_property_change(GTK_WIDGET(window)->window, + gdk_atom_intern("_NET_WM_STRUT_PARTIAL", FALSE), + gdk_atom_intern ("CARDINAL", FALSE), + 32, GDK_PROP_MODE_REPLACE, (unsigned char *)data, 12); +} diff --git a/tianbar.cabal b/tianbar.cabal new file mode 100644 --- /dev/null +++ b/tianbar.cabal @@ -0,0 +1,36 @@ +name: tianbar +version: 0.1.0.0 +synopsis: A desktop bar based on WebKit +description: + A desktop bar using WebKit for rendering as much as possible. + Based on Taffybar. +homepage: https://github.com/koterpillar/tianbar +license: MIT +license-file: LICENSE +author: Alexey Kotlyarov +maintainer: koterpillar@gmail.com +category: System +build-type: Simple +cabal-version: >=1.10 + +executable tianbar + default-language: Haskell2010 + main-is: Main.hs + build-depends: base ==4.6.* + , split ==0.2.* + , MissingH ==1.2.* + , dbus ==0.10.* + , gtk ==0.12.* + , gtk-traymanager ==0.1.* + , webkit ==0.12.* + , xdg-basedir ==0.2.* + , process ==1.1.* + hs-source-dirs: src + pkgconfig-depends: gtk+-2.0 + c-sources: src/gdk_property_change_wrapper.c + ghc-options: -Wall -rtsopts -threaded + ghc-prof-options: -auto-all + +source-repository head + type: git + location: git://github.com/koterpillar/tianbar.git