notid/play-clj
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Remove unnecessary newlines from docstrings

Browse Source
This commit is contained in:
oakes
2014-01-21 02:38:46 -05:00
parent 4aa9772d1c
commit ba43d64eb5
5 changed files with 42 additions and 84 deletions
Download Patch File Download Diff File Expand all files Collapse all files

36
src/play_clj/core_global.clj
View File

@@ -6,8 +6,7 @@
"Clears the screen with a uniform color, defaulting to black
(clear!)
(clear! 0.5 0.5 1 1)
"
(clear! 0.5 0.5 1 1)"
([]
(clear! 0 0 0 0))
([r g b a]
@@ -19,8 +18,7 @@
"Returns a [Color](http://libgdx.badlogicgames.com/nightlies/docs/api/com/badlogic/gdx/graphics/Color.html)
(color :white)
(color 1 1 1 1)
"
(color 1 1 1 1)"
[& args]
`~(if (keyword? (first args))
`(Color. ^Color (u/static-field-upper :graphics :Color ~(first args)))
@@ -31,56 +29,49 @@
(defmacro app!
"Calls a single method on [Gdx.app](http://libgdx.badlogicgames.com/nightlies/docs/api/com/badlogic/gdx/Application.html)
(app! :error \"MYTAG\" \"An error occurred, so I'm logging it!\")
"
(app! :error \"MYTAG\" \"An error occurred, so I'm logging it!\")"
[k & options]
`(u/call! ^Application (Gdx/app) ~k ~@options))
(defmacro audio!
"Calls a single method on [Gdx.audio](http://libgdx.badlogicgames.com/nightlies/docs/api/com/badlogic/gdx/Audio.html)
(audio! :new-audio-recorder 44100 false)
"
(audio! :new-audio-recorder 44100 false)"
[k & options]
`(u/call! ^Audio (Gdx/audio) ~k ~@options))
(defmacro files!
"Calls a single method on [Gdx.files](http://libgdx.badlogicgames.com/nightlies/docs/api/com/badlogic/gdx/Files.html)
(files! :internal \"image.png\")
"
(files! :internal \"image.png\")"
[k & options]
`(u/call! ^Files (Gdx/files) ~k ~@options))
(defmacro gl!
"Calls a single method on [Gdx.gl20](http://libgdx.badlogicgames.com/nightlies/docs/api/com/badlogic/gdx/graphics/GL20.html)
(gl! :gl-create-program)
"
(gl! :gl-create-program)"
[k & options]
`(u/call! ^GL20 (Gdx/gl20) ~k ~@options))
(defmacro graphics!
"Calls a single method on [Gdx.graphics](http://libgdx.badlogicgames.com/nightlies/docs/api/com/badlogic/gdx/Graphics.html)
(graphics! :is-fullscreen)
"
(graphics! :is-fullscreen)"
[k & options]
`(u/call! ^Graphics (Gdx/graphics) ~k ~@options))
(defmacro input!
"Calls a single method on [Gdx.input](http://libgdx.badlogicgames.com/nightlies/docs/api/com/badlogic/gdx/Input.html)
(input! :is-touched)
"
(input! :is-touched)"
[k & options]
`(u/call! ^Input (Gdx/input) ~k ~@options))
(defmacro net!
"Calls a single method on [Gdx.net](http://libgdx.badlogicgames.com/nightlies/docs/api/com/badlogic/gdx/Net.html)
(net! :open-uri \"https://nightcode.info/\")
"
(net! :open-uri \"https://nightcode.info/\")"
[k & options]
`(u/call! ^Net (Gdx/net) ~k ~@options))
@@ -90,8 +81,7 @@
"Calls the global method cooresponding to `k` in a more Clojuresque way
(game :width)
(game :is-touched?)
"
(game :is-touched?)"
[k]
(case k
:width (graphics! :get-width)
@@ -107,8 +97,7 @@
"Returns the static field cooresponding to `k` from [Input.Keys](http://libgdx.badlogicgames.com/nightlies/docs/api/com/badlogic/gdx/Input.Keys.html)
(key-code :a)
(key-code :page-down)
"
(key-code :page-down)"
[k]
`~(symbol (str u/main-package ".Input$Keys/" (u/key->upper k))))
@@ -116,8 +105,7 @@
"Returns a boolean indicating if the key cooresponding to `k` is being pressed
(is-pressed? :a)
(is-pressed? :page-down)
"
(is-pressed? :page-down)"
[k]
`(input! :is-key-pressed (key-code ~k)))