Skip to content
This repository

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse code

Added plugin for xwarppointer

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

0 comments on commit bb8f32b

Please sign in to comment.
Something went wrong with that request. Please try again.