tianbar (empty) → 0.1.0.0

raw patch · 5 files changed

+92/−0 lines, 5 filesdep +MissingHdep +basedep +dbussetup-changed

Dependencies added: MissingH, base, dbus, gtk, gtk-traymanager, process, split, webkit, xdg-basedir

Files

• LICENSE +20/−0
• Setup.hs +2/−0
• src/Main.hs +6/−0
• src/gdk_property_change_wrapper.c +28/−0
• tianbar.cabal +36/−0

@@ -0,0 +1,20 @@+Copyright 2013 Alexey Kotlyarov <koterpillar@gmail.com>++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.

@@ -0,0 +1,2 @@+import Distribution.Simple+main = defaultMain

@@ -0,0 +1,6 @@+module Main (main) where++import qualified System.Tianbar++main :: IO ()+main = System.Tianbar.main

@@ -0,0 +1,28 @@+////////////////////////////////////////////////////////////////////////////+// Copyright   :  (c) Jan Vornberger 2009+// License     :  BSD3-style (see LICENSE)+//+// Maintainer  :  jan.vornberger@informatik.uni-oldenburg.de+////////////////////////////////////////////////////////////////////////////-++#include <gtk/gtk.h>+#include <gdk/gdk.h>++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);+}

@@ -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