Permalink
Browse files

Added plugin for xwarppointer

  • Loading branch information...
1 parent f18d052 commit bb8f32b08d0b1841e68084936555e09416dab725 @oscarh committed Feb 14, 2008
Showing with 74 additions and 0 deletions.
  1. +1 −0 Makefile
  2. +37 −0 plugin/xwarppointer.ml
  3. +36 −0 plugin/xwarppointer.mli
View
1 Makefile
@@ -12,6 +12,7 @@ REQUIRES = unix str o9p threads
# Sources
SOURCES = src/util.ml src/wmii.ml \
+ plugin/xwarppointer.mli plugin/xwarppointer.ml \
plugin/tmp_tag.mli plugin/tmp_tag.ml \
plugin/acpi.mli plugin/acpi.ml \
plugin/gajim.mli plugin/gajim.ml \
View
37 plugin/xwarppointer.ml
@@ -0,0 +1,37 @@
+(******************************************************************************)
+(* ocaml-wmii *)
+(* *)
+(* Copyright 2008 *)
+(* Oscar Hellström, oscar at oscarh dot net *)
+(* Ulf Eliasson, eliassou at ituniv dot se *)
+(* *)
+(* All rights reserved *)
+(* Redistribution and use in source and binary forms, with or without *)
+(* modification, are permitted provided that the following conditions are *)
+(* met: *)
+(* *)
+(* * Redistributions of source code must retain the above copyright *)
+(* notice, this list of conditions and the following disclaimer. *)
+(* * Redistributions in binary form must reproduce the above copyright *)
+(* notice, this list of conditions and the following disclaimer in the *)
+(* documentation and/or other materials provided with the distribution. *)
+(* * The names of its contributors may not be used to endorse or promote *)
+(* products derived from this software without specific prior written *)
+(* permission. *)
+(* *)
+(* *)
+(* THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND *)
+(* ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE *)
+(* IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE *)
+(* ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE *)
+(* FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL *)
+(* DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR *)
+(* SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER *)
+(* CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT *)
+(* LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY *)
+(* OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF *)
+(* SUCH DAMAGE. *)
+(******************************************************************************)
+
+let screen dir =
+ Wmii.spawn ("xwarppointer screen " ^ dir)
View
36 plugin/xwarppointer.mli
@@ -0,0 +1,36 @@
+(******************************************************************************)
+(* ocaml-wmii *)
+(* *)
+(* Copyright 2008 *)
+(* Oscar Hellström, oscar at oscarh dot net *)
+(* Ulf Eliasson, eliassou at ituniv dot se *)
+(* *)
+(* All rights reserved *)
+(* Redistribution and use in source and binary forms, with or without *)
+(* modification, are permitted provided that the following conditions are *)
+(* met: *)
+(* *)
+(* * Redistributions of source code must retain the above copyright *)
+(* notice, this list of conditions and the following disclaimer. *)
+(* * Redistributions in binary form must reproduce the above copyright *)
+(* notice, this list of conditions and the following disclaimer in the *)
+(* documentation and/or other materials provided with the distribution. *)
+(* * The names of its contributors may not be used to endorse or promote *)
+(* products derived from this software without specific prior written *)
+(* permission. *)
+(* *)
+(* *)
+(* THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND *)
+(* ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE *)
+(* IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE *)
+(* ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE *)
+(* FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL *)
+(* DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR *)
+(* SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER *)
+(* CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT *)
+(* LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY *)
+(* OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF *)
+(* SUCH DAMAGE. *)
+(******************************************************************************)
+
+val screen : string -> unit

0 comments on commit bb8f32b

Please sign in to comment.