ledger_web 1.2

This diff represents the content of publicly available package versions that have been released to one of the supported registries. The information contained in this diff is provided for informational purposes only and reflects changes between package versions as they appear in their respective public registries.
Files changed (128) hide show
  1. data/.gitignore +10 -0
  2. data/LICENSE +7 -0
  3. data/README.md +140 -0
  4. data/Rakefile +11 -0
  5. data/bin/ledger_web +14 -0
  6. data/ledger_web.gemspec +26 -0
  7. data/lib/ledger_web/app.rb +69 -0
  8. data/lib/ledger_web/config.rb +87 -0
  9. data/lib/ledger_web/db/migrate/20111226180900_initial_schema.rb +38 -0
  10. data/lib/ledger_web/db/migrate/20111231132900_add_views.rb +37 -0
  11. data/lib/ledger_web/db.rb +54 -0
  12. data/lib/ledger_web/helpers.rb +62 -0
  13. data/lib/ledger_web/public/bootstrap-dropdown.js +55 -0
  14. data/lib/ledger_web/public/bootstrap.min.css +356 -0
  15. data/lib/ledger_web/public/codemirror/keymap/emacs.js +29 -0
  16. data/lib/ledger_web/public/codemirror/keymap/vim.js +76 -0
  17. data/lib/ledger_web/public/codemirror/lib/codemirror.css +104 -0
  18. data/lib/ledger_web/public/codemirror/lib/codemirror.js +2761 -0
  19. data/lib/ledger_web/public/codemirror/lib/util/dialog.css +23 -0
  20. data/lib/ledger_web/public/codemirror/lib/util/dialog.js +63 -0
  21. data/lib/ledger_web/public/codemirror/lib/util/foldcode.js +66 -0
  22. data/lib/ledger_web/public/codemirror/lib/util/formatting.js +291 -0
  23. data/lib/ledger_web/public/codemirror/lib/util/javascript-hint.js +83 -0
  24. data/lib/ledger_web/public/codemirror/lib/util/overlay.js +51 -0
  25. data/lib/ledger_web/public/codemirror/lib/util/runmode.js +27 -0
  26. data/lib/ledger_web/public/codemirror/lib/util/search.js +114 -0
  27. data/lib/ledger_web/public/codemirror/lib/util/searchcursor.js +117 -0
  28. data/lib/ledger_web/public/codemirror/lib/util/simple-hint.css +16 -0
  29. data/lib/ledger_web/public/codemirror/lib/util/simple-hint.js +66 -0
  30. data/lib/ledger_web/public/codemirror/mode/clike/clike.js +249 -0
  31. data/lib/ledger_web/public/codemirror/mode/clike/index.html +101 -0
  32. data/lib/ledger_web/public/codemirror/mode/clojure/clojure.js +207 -0
  33. data/lib/ledger_web/public/codemirror/mode/clojure/index.html +66 -0
  34. data/lib/ledger_web/public/codemirror/mode/coffeescript/LICENSE +22 -0
  35. data/lib/ledger_web/public/codemirror/mode/coffeescript/coffeescript.js +325 -0
  36. data/lib/ledger_web/public/codemirror/mode/coffeescript/index.html +721 -0
  37. data/lib/ledger_web/public/codemirror/mode/css/css.js +124 -0
  38. data/lib/ledger_web/public/codemirror/mode/css/index.html +55 -0
  39. data/lib/ledger_web/public/codemirror/mode/diff/diff.css +3 -0
  40. data/lib/ledger_web/public/codemirror/mode/diff/diff.js +13 -0
  41. data/lib/ledger_web/public/codemirror/mode/diff/index.html +99 -0
  42. data/lib/ledger_web/public/codemirror/mode/gfm/gfm.js +108 -0
  43. data/lib/ledger_web/public/codemirror/mode/gfm/index.html +47 -0
  44. data/lib/ledger_web/public/codemirror/mode/groovy/groovy.js +210 -0
  45. data/lib/ledger_web/public/codemirror/mode/groovy/index.html +71 -0
  46. data/lib/ledger_web/public/codemirror/mode/haskell/haskell.js +242 -0
  47. data/lib/ledger_web/public/codemirror/mode/haskell/index.html +60 -0
  48. data/lib/ledger_web/public/codemirror/mode/htmlembedded/htmlembedded.js +68 -0
  49. data/lib/ledger_web/public/codemirror/mode/htmlembedded/index.html +49 -0
  50. data/lib/ledger_web/public/codemirror/mode/htmlmixed/htmlmixed.js +83 -0
  51. data/lib/ledger_web/public/codemirror/mode/htmlmixed/index.html +51 -0
  52. data/lib/ledger_web/public/codemirror/mode/javascript/index.html +77 -0
  53. data/lib/ledger_web/public/codemirror/mode/javascript/javascript.js +360 -0
  54. data/lib/ledger_web/public/codemirror/mode/jinja2/index.html +37 -0
  55. data/lib/ledger_web/public/codemirror/mode/jinja2/jinja2.js +42 -0
  56. data/lib/ledger_web/public/codemirror/mode/lua/index.html +72 -0
  57. data/lib/ledger_web/public/codemirror/mode/lua/lua.js +140 -0
  58. data/lib/ledger_web/public/codemirror/mode/markdown/index.html +339 -0
  59. data/lib/ledger_web/public/codemirror/mode/markdown/markdown.js +242 -0
  60. data/lib/ledger_web/public/codemirror/mode/ntriples/index.html +32 -0
  61. data/lib/ledger_web/public/codemirror/mode/ntriples/ntriples.js +172 -0
  62. data/lib/ledger_web/public/codemirror/mode/pascal/LICENSE +7 -0
  63. data/lib/ledger_web/public/codemirror/mode/pascal/index.html +48 -0
  64. data/lib/ledger_web/public/codemirror/mode/pascal/pascal.js +138 -0
  65. data/lib/ledger_web/public/codemirror/mode/perl/LICENSE +19 -0
  66. data/lib/ledger_web/public/codemirror/mode/perl/index.html +62 -0
  67. data/lib/ledger_web/public/codemirror/mode/perl/perl.js +816 -0
  68. data/lib/ledger_web/public/codemirror/mode/php/index.html +48 -0
  69. data/lib/ledger_web/public/codemirror/mode/php/php.js +120 -0
  70. data/lib/ledger_web/public/codemirror/mode/plsql/index.html +62 -0
  71. data/lib/ledger_web/public/codemirror/mode/plsql/plsql.js +217 -0
  72. data/lib/ledger_web/public/codemirror/mode/python/LICENSE.txt +21 -0
  73. data/lib/ledger_web/public/codemirror/mode/python/index.html +122 -0
  74. data/lib/ledger_web/public/codemirror/mode/python/python.js +333 -0
  75. data/lib/ledger_web/public/codemirror/mode/r/LICENSE +24 -0
  76. data/lib/ledger_web/public/codemirror/mode/r/index.html +73 -0
  77. data/lib/ledger_web/public/codemirror/mode/r/r.js +141 -0
  78. data/lib/ledger_web/public/codemirror/mode/rpm/changes/changes.js +19 -0
  79. data/lib/ledger_web/public/codemirror/mode/rpm/changes/index.html +53 -0
  80. data/lib/ledger_web/public/codemirror/mode/rpm/spec/index.html +99 -0
  81. data/lib/ledger_web/public/codemirror/mode/rpm/spec/spec.css +5 -0
  82. data/lib/ledger_web/public/codemirror/mode/rpm/spec/spec.js +66 -0
  83. data/lib/ledger_web/public/codemirror/mode/rst/index.html +525 -0
  84. data/lib/ledger_web/public/codemirror/mode/rst/rst.js +326 -0
  85. data/lib/ledger_web/public/codemirror/mode/ruby/LICENSE +24 -0
  86. data/lib/ledger_web/public/codemirror/mode/ruby/index.html +171 -0
  87. data/lib/ledger_web/public/codemirror/mode/ruby/ruby.js +195 -0
  88. data/lib/ledger_web/public/codemirror/mode/rust/index.html +48 -0
  89. data/lib/ledger_web/public/codemirror/mode/rust/rust.js +411 -0
  90. data/lib/ledger_web/public/codemirror/mode/scheme/index.html +64 -0
  91. data/lib/ledger_web/public/codemirror/mode/scheme/scheme.js +202 -0
  92. data/lib/ledger_web/public/codemirror/mode/smalltalk/index.html +55 -0
  93. data/lib/ledger_web/public/codemirror/mode/smalltalk/smalltalk.js +139 -0
  94. data/lib/ledger_web/public/codemirror/mode/sparql/index.html +40 -0
  95. data/lib/ledger_web/public/codemirror/mode/sparql/sparql.js +143 -0
  96. data/lib/ledger_web/public/codemirror/mode/stex/index.html +95 -0
  97. data/lib/ledger_web/public/codemirror/mode/stex/stex.js +167 -0
  98. data/lib/ledger_web/public/codemirror/mode/tiddlywiki/index.html +183 -0
  99. data/lib/ledger_web/public/codemirror/mode/tiddlywiki/tiddlywiki.css +21 -0
  100. data/lib/ledger_web/public/codemirror/mode/tiddlywiki/tiddlywiki.js +374 -0
  101. data/lib/ledger_web/public/codemirror/mode/velocity/index.html +103 -0
  102. data/lib/ledger_web/public/codemirror/mode/velocity/velocity.js +146 -0
  103. data/lib/ledger_web/public/codemirror/mode/xml/index.html +44 -0
  104. data/lib/ledger_web/public/codemirror/mode/xml/xml.js +252 -0
  105. data/lib/ledger_web/public/codemirror/mode/xmlpure/index.html +59 -0
  106. data/lib/ledger_web/public/codemirror/mode/xmlpure/xmlpure.js +485 -0
  107. data/lib/ledger_web/public/codemirror/mode/yaml/index.html +67 -0
  108. data/lib/ledger_web/public/codemirror/mode/yaml/yaml.js +95 -0
  109. data/lib/ledger_web/public/codemirror/theme/cobalt.css +18 -0
  110. data/lib/ledger_web/public/codemirror/theme/eclipse.css +25 -0
  111. data/lib/ledger_web/public/codemirror/theme/elegant.css +10 -0
  112. data/lib/ledger_web/public/codemirror/theme/monokai.css +28 -0
  113. data/lib/ledger_web/public/codemirror/theme/neat.css +9 -0
  114. data/lib/ledger_web/public/codemirror/theme/night.css +21 -0
  115. data/lib/ledger_web/public/codemirror/theme/rubyblue.css +21 -0
  116. data/lib/ledger_web/public/jquery-1.7.1.min.js +4 -0
  117. data/lib/ledger_web/public/jquery.tablesorter.min.js +4 -0
  118. data/lib/ledger_web/public/ledger.css +14 -0
  119. data/lib/ledger_web/report.rb +187 -0
  120. data/lib/ledger_web/reports/savings_rate.erb +49 -0
  121. data/lib/ledger_web/version.rb +3 -0
  122. data/lib/ledger_web/views/error.erb +5 -0
  123. data/lib/ledger_web/views/help.erb +6 -0
  124. data/lib/ledger_web/views/layout.erb +44 -0
  125. data/lib/ledger_web/views/table.erb +31 -0
  126. data/lib/ledger_web/watcher.rb +37 -0
  127. data/lib/ledger_web.rb +20 -0
  128. metadata +229 -0
@@ -0,0 +1,207 @@
1
+ /**
2
+ * Author: Hans Engel
3
+ * Branched from CodeMirror's Scheme mode (by Koh Zi Han, based on implementation by Koh Zi Chun)
4
+ */
5
+ CodeMirror.defineMode("clojure", function (config, mode) {
6
+ var BUILTIN = "builtin", COMMENT = "comment", STRING = "string", TAG = "tag",
7
+ ATOM = "atom", NUMBER = "number", BRACKET = "bracket", KEYWORD="keyword";
8
+ var INDENT_WORD_SKIP = 2, KEYWORDS_SKIP = 1;
9
+
10
+ function makeKeywords(str) {
11
+ var obj = {}, words = str.split(" ");
12
+ for (var i = 0; i < words.length; ++i) obj[words[i]] = true;
13
+ return obj;
14
+ }
15
+
16
+ var atoms = makeKeywords("true false nil");
17
+
18
+ var keywords = makeKeywords(
19
+ // Control structures
20
+ "defn defn- def def- defonce defmulti defmethod defmacro defstruct deftype defprotocol defrecord deftest slice defalias defhinted defmacro- defn-memo defnk defnk defonce- defunbound defunbound- defvar defvar- let letfn do case cond condp for loop recur when when-not when-let when-first if if-let if-not . .. -> ->> doto and or dosync doseq dotimes dorun doall load import unimport ns in-ns refer try catch finally throw with-open with-local-vars binding gen-class gen-and-load-class gen-and-save-class handler-case handle" +
21
+
22
+ // Built-ins
23
+ "* *1 *2 *3 *agent* *allow-unresolved-vars* *assert *clojure-version* *command-line-args* *compile-files* *compile-path* *e *err* *file* *flush-on-newline* *in* *macro-meta* *math-context* *ns* *out* *print-dup* *print-length* *print-level* *print-meta* *print-readably* *read-eval* *source-path* *use-context-classloader* *warn-on-reflection* + - / < <= = == > >= accessor aclone agent agent-errors aget alength alias all-ns alter alter-meta! alter-var-root amap ancestors and apply areduce array-map aset aset-boolean aset-byte aset-char aset-double aset-float aset-int aset-long aset-short assert assoc assoc! assoc-in associative? atom await await-for await1 bases bean bigdec bigint binding bit-and bit-and-not bit-clear bit-flip bit-not bit-or bit-set bit-shift-left bit-shift-right bit-test bit-xor boolean boolean-array booleans bound-fn bound-fn* butlast byte byte-array bytes case cast char char-array char-escape-string char-name-string char? chars chunk chunk-append chunk-buffer chunk-cons chunk-first chunk-next chunk-rest chunked-seq? class class? clear-agent-errors clojure-version coll? comment commute comp comparator compare compare-and-set! compile complement concat cond condp conj conj! cons constantly construct-proxy contains? count counted? create-ns create-struct cycle dec decimal? declare definline defmacro defmethod defmulti defn defn- defonce defstruct delay delay? deliver deref derive descendants destructure disj disj! dissoc dissoc! distinct distinct? doall doc dorun doseq dosync dotimes doto double double-array doubles drop drop-last drop-while empty empty? ensure enumeration-seq eval even? every? extend extend-protocol extend-type extends? extenders false? ffirst file-seq filter find find-doc find-ns find-var first float float-array float? floats flush fn fn? fnext for force format future future-call future-cancel future-cancelled? future-done? future? gen-class gen-interface gensym get get-in get-method get-proxy-class get-thread-bindings get-validator hash hash-map hash-set identical? identity if-let if-not ifn? import in-ns inc init-proxy instance? int int-array integer? interleave intern interpose into into-array ints io! isa? iterate iterator-seq juxt key keys keyword keyword? last lazy-cat lazy-seq let letfn line-seq list list* list? load load-file load-reader load-string loaded-libs locking long long-array longs loop macroexpand macroexpand-1 make-array make-hierarchy map map? mapcat max max-key memfn memoize merge merge-with meta method-sig methods min min-key mod name namespace neg? newline next nfirst nil? nnext not not-any? not-empty not-every? not= ns ns-aliases ns-imports ns-interns ns-map ns-name ns-publics ns-refers ns-resolve ns-unalias ns-unmap nth nthnext num number? odd? or parents partial partition pcalls peek persistent! pmap pop pop! pop-thread-bindings pos? pr pr-str prefer-method prefers primitives-classnames print print-ctor print-doc print-dup print-method print-namespace-doc print-simple print-special-doc print-str printf println println-str prn prn-str promise proxy proxy-call-with-super proxy-mappings proxy-name proxy-super push-thread-bindings pvalues quot rand rand-int range ratio? rational? rationalize re-find re-groups re-matcher re-matches re-pattern re-seq read read-line read-string reify reduce ref ref-history-count ref-max-history ref-min-history ref-set refer refer-clojure release-pending-sends rem remove remove-method remove-ns repeat repeatedly replace replicate require reset! reset-meta! resolve rest resultset-seq reverse reversible? rseq rsubseq satisfies? second select-keys send send-off seq seq? seque sequence sequential? set set-validator! set? short short-array shorts shutdown-agents slurp some sort sort-by sorted-map sorted-map-by sorted-set sorted-set-by sorted? special-form-anchor special-symbol? split-at split-with str stream? string? struct struct-map subs subseq subvec supers swap! symbol symbol? sync syntax-symbol-anchor take take-last take-nth take-while test the-ns time to-array to-array-2d trampoline transient tree-seq true? type unchecked-add unchecked-dec unchecked-divide unchecked-inc unchecked-multiply unchecked-negate unchecked-remainder unchecked-subtract underive unquote unquote-splicing update-in update-proxy use val vals var-get var-set var? vary-meta vec vector vector? when when-first when-let when-not while with-bindings with-bindings* with-in-str with-loading-context with-local-vars with-meta with-open with-out-str with-precision xml-seq");
24
+
25
+ var indentKeys = makeKeywords(
26
+ // Built-ins
27
+ "ns fn def defn defmethod bound-fn if if-not case condp when while when-not when-first do future comment doto locking proxy with-open with-precision reify deftype defrecord defprotocol extend extend-protocol extend-type try catch" +
28
+
29
+ // Binding forms
30
+ "let letfn binding loop for doseq dotimes when-let if-let" +
31
+
32
+ // Data structures
33
+ "defstruct struct-map assoc" +
34
+
35
+ // clojure.test
36
+ "testing deftest" +
37
+
38
+ // contrib
39
+ "handler-case handle dotrace deftrace");
40
+
41
+ var tests = {
42
+ digit: /\d/,
43
+ digit_or_colon: /[\d:]/,
44
+ hex: /[0-9a-fA-F]/,
45
+ sign: /[+-]/,
46
+ exponent: /[eE]/,
47
+ keyword_char: /[^\s\(\[\;\)\]]/,
48
+ basic: /[\w\$_\-]/,
49
+ lang_keyword: /[\w*+!\-_?:\/]/
50
+ };
51
+
52
+ function stateStack(indent, type, prev) { // represents a state stack object
53
+ this.indent = indent;
54
+ this.type = type;
55
+ this.prev = prev;
56
+ }
57
+
58
+ function pushStack(state, indent, type) {
59
+ state.indentStack = new stateStack(indent, type, state.indentStack);
60
+ }
61
+
62
+ function popStack(state) {
63
+ state.indentStack = state.indentStack.prev;
64
+ }
65
+
66
+ function isNumber(ch, stream){
67
+ // hex
68
+ if ( ch === '0' && 'x' == stream.peek().toLowerCase() ) {
69
+ stream.eat('x');
70
+ stream.eatWhile(tests.hex);
71
+ return true;
72
+ }
73
+
74
+ // leading sign
75
+ if ( ch == '+' || ch == '-' ) {
76
+ stream.eat(tests.sign);
77
+ ch = stream.next();
78
+ }
79
+
80
+ if ( tests.digit.test(ch) ) {
81
+ stream.eat(ch);
82
+ stream.eatWhile(tests.digit);
83
+
84
+ if ( '.' == stream.peek() ) {
85
+ stream.eat('.');
86
+ stream.eatWhile(tests.digit);
87
+ }
88
+
89
+ if ( 'e' == stream.peek().toLowerCase() ) {
90
+ stream.eat(tests.exponent);
91
+ stream.eat(tests.sign);
92
+ stream.eatWhile(tests.digit);
93
+ }
94
+
95
+ return true;
96
+ }
97
+
98
+ return false;
99
+ }
100
+
101
+ return {
102
+ startState: function () {
103
+ return {
104
+ indentStack: null,
105
+ indentation: 0,
106
+ mode: false,
107
+ };
108
+ },
109
+
110
+ token: function (stream, state) {
111
+ if (state.indentStack == null && stream.sol()) {
112
+ // update indentation, but only if indentStack is empty
113
+ state.indentation = stream.indentation();
114
+ }
115
+
116
+ // skip spaces
117
+ if (stream.eatSpace()) {
118
+ return null;
119
+ }
120
+ var returnType = null;
121
+
122
+ switch(state.mode){
123
+ case "string": // multi-line string parsing mode
124
+ var next, escaped = false;
125
+ while ((next = stream.next()) != null) {
126
+ if (next == "\"" && !escaped) {
127
+
128
+ state.mode = false;
129
+ break;
130
+ }
131
+ escaped = !escaped && next == "\\";
132
+ }
133
+ returnType = STRING; // continue on in string mode
134
+ break;
135
+ default: // default parsing mode
136
+ var ch = stream.next();
137
+
138
+ if (ch == "\"") {
139
+ state.mode = "string";
140
+ returnType = STRING;
141
+ } else if (ch == "'" && !( tests.digit_or_colon.test(stream.peek()) )) {
142
+ returnType = ATOM;
143
+ } else if (ch == ";") { // comment
144
+ stream.skipToEnd(); // rest of the line is a comment
145
+ returnType = COMMENT;
146
+ } else if (isNumber(ch,stream)){
147
+ returnType = NUMBER;
148
+ } else if (ch == "(" || ch == "[") {
149
+ var keyWord = ''; var indentTemp = stream.column();
150
+ /**
151
+ Either
152
+ (indent-word ..
153
+ (non-indent-word ..
154
+ (;something else, bracket, etc.
155
+ */
156
+
157
+ while ((letter = stream.eat(tests.keyword_char)) != null) {
158
+ keyWord += letter;
159
+ }
160
+
161
+ if (keyWord.length > 0 && indentKeys.propertyIsEnumerable(keyWord)) { // indent-word
162
+
163
+ pushStack(state, indentTemp + INDENT_WORD_SKIP, ch);
164
+ } else { // non-indent word
165
+ // we continue eating the spaces
166
+ stream.eatSpace();
167
+ if (stream.eol() || stream.peek() == ";") {
168
+ // nothing significant after
169
+ // we restart indentation 1 space after
170
+ pushStack(state, indentTemp + 1, ch);
171
+ } else {
172
+ pushStack(state, indentTemp + stream.current().length, ch); // else we match
173
+ }
174
+ }
175
+ stream.backUp(stream.current().length - 1); // undo all the eating
176
+
177
+ returnType = BRACKET;
178
+ } else if (ch == ")" || ch == "]") {
179
+ returnType = BRACKET;
180
+ if (state.indentStack != null && state.indentStack.type == (ch == ")" ? "(" : "[")) {
181
+ popStack(state);
182
+ }
183
+ } else if ( ch == ":" ) {
184
+ stream.eatWhile(tests.lang_keyword);
185
+ return TAG;
186
+ } else {
187
+ stream.eatWhile(tests.basic);
188
+
189
+ if (keywords && keywords.propertyIsEnumerable(stream.current())) {
190
+ returnType = BUILTIN;
191
+ } else if ( atoms && atoms.propertyIsEnumerable(stream.current()) ) {
192
+ returnType = ATOM;
193
+ } else returnType = null;
194
+ }
195
+ }
196
+
197
+ return returnType;
198
+ },
199
+
200
+ indent: function (state, textAfter) {
201
+ if (state.indentStack == null) return state.indentation;
202
+ return state.indentStack.indent;
203
+ }
204
+ };
205
+ });
206
+
207
+ CodeMirror.defineMIME("text/x-clojure", "clojure");
@@ -0,0 +1,66 @@
1
+ <!doctype html>
2
+ <html>
3
+ <head>
4
+ <title>CodeMirror: Clojure mode</title>
5
+ <link rel="stylesheet" href="../../lib/codemirror.css">
6
+ <script src="../../lib/codemirror.js"></script>
7
+ <script src="clojure.js"></script>
8
+ <style>.CodeMirror {background: #f8f8f8;}</style>
9
+ <link rel="stylesheet" href="../../doc/docs.css">
10
+ </head>
11
+ <body>
12
+ <h1>CodeMirror: Clojure mode</h1>
13
+ <form><textarea id="code" name="code">
14
+ ; Conway's Game of Life, based on the work of:
15
+ ;; Laurent Petit https://gist.github.com/1200343
16
+ ;; Christophe Grand http://clj-me.cgrand.net/2011/08/19/conways-game-of-life
17
+
18
+ (ns ^{:doc "Conway's Game of Life."}
19
+ game-of-life)
20
+
21
+ ;; Core game of life's algorithm functions
22
+
23
+ (defn neighbours
24
+ "Given a cell's coordinates, returns the coordinates of its neighbours."
25
+ [[x y]]
26
+ (for [dx [-1 0 1] dy (if (zero? dx) [-1 1] [-1 0 1])]
27
+ [(+ dx x) (+ dy y)]))
28
+
29
+ (defn step
30
+ "Given a set of living cells, computes the new set of living cells."
31
+ [cells]
32
+ (set (for [[cell n] (frequencies (mapcat neighbours cells))
33
+ :when (or (= n 3) (and (= n 2) (cells cell)))]
34
+ cell)))
35
+
36
+ ;; Utility methods for displaying game on a text terminal
37
+
38
+ (defn print-board
39
+ "Prints a board on *out*, representing a step in the game."
40
+ [board w h]
41
+ (doseq [x (range (inc w)) y (range (inc h))]
42
+ (if (= y 0) (print "\n"))
43
+ (print (if (board [x y]) "[X]" " . "))))
44
+
45
+ (defn display-grids
46
+ "Prints a squence of boards on *out*, representing several steps."
47
+ [grids w h]
48
+ (doseq [board grids]
49
+ (print-board board w h)
50
+ (print "\n")))
51
+
52
+ ;; Launches an example board
53
+
54
+ (def
55
+ ^{:doc "board represents the initial set of living cells"}
56
+ board #{[2 1] [2 2] [2 3]})
57
+
58
+ (display-grids (take 3 (iterate step board)) 5 5) </textarea></form>
59
+ <script>
60
+ var editor = CodeMirror.fromTextArea(document.getElementById("code"), {});
61
+ </script>
62
+
63
+ <p><strong>MIME types defined:</strong> <code>text/x-clojure</code>.</p>
64
+
65
+ </body>
66
+ </html>
@@ -0,0 +1,22 @@
1
+ The MIT License
2
+
3
+ Copyright (c) 2011 Jeff Pickhardt
4
+ Modified from the Python CodeMirror mode, Copyright (c) 2010 Timothy Farrell
5
+
6
+ Permission is hereby granted, free of charge, to any person obtaining a copy
7
+ of this software and associated documentation files (the "Software"), to deal
8
+ in the Software without restriction, including without limitation the rights
9
+ to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
10
+ copies of the Software, and to permit persons to whom the Software is
11
+ furnished to do so, subject to the following conditions:
12
+
13
+ The above copyright notice and this permission notice shall be included in
14
+ all copies or substantial portions of the Software.
15
+
16
+ THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
17
+ IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
18
+ FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
19
+ AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
20
+ LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
21
+ OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN
22
+ THE SOFTWARE.
@@ -0,0 +1,325 @@
1
+ /**
2
+ * Link to the project's GitHub page:
3
+ * https://github.com/pickhardt/coffeescript-codemirror-mode
4
+ */
5
+ CodeMirror.defineMode('coffeescript', function(conf) {
6
+ var ERRORCLASS = 'error';
7
+
8
+ function wordRegexp(words) {
9
+ return new RegExp("^((" + words.join(")|(") + "))\\b");
10
+ }
11
+
12
+ var singleOperators = new RegExp("^[\\+\\-\\*/%&|\\^~<>!\?]");
13
+ var singleDelimiters = new RegExp('^[\\(\\)\\[\\]\\{\\}@,:`=;\\.]');
14
+ var doubleOperators = new RegExp("^((\->)|(\=>)|(\\+\\+)|(\\+\\=)|(\\-\\-)|(\\-\\=)|(\\*\\*)|(\\*\\=)|(\\/\\/)|(\\/\\=)|(==)|(!=)|(<=)|(>=)|(<>)|(<<)|(>>)|(//))");
15
+ var doubleDelimiters = new RegExp("^((\\.\\.)|(\\+=)|(\\-=)|(\\*=)|(%=)|(/=)|(&=)|(\\|=)|(\\^=))");
16
+ var tripleDelimiters = new RegExp("^((\\.\\.\\.)|(//=)|(>>=)|(<<=)|(\\*\\*=))");
17
+ var identifiers = new RegExp("^[_A-Za-z][_A-Za-z0-9]*");
18
+
19
+ var wordOperators = wordRegexp(['and', 'or', 'not',
20
+ 'is', 'isnt', 'in',
21
+ 'instanceof', 'typeof']);
22
+ var indentKeywords = ['for', 'while', 'loop', 'if', 'unless', 'else',
23
+ 'switch', 'try', 'catch', 'finally', 'class'];
24
+ var commonKeywords = ['break', 'by', 'continue', 'debugger', 'delete',
25
+ 'do', 'in', 'of', 'new', 'return', 'then',
26
+ 'this', 'throw', 'when', 'until'];
27
+
28
+ var keywords = wordRegexp(indentKeywords.concat(commonKeywords));
29
+
30
+ indentKeywords = wordRegexp(indentKeywords);
31
+
32
+
33
+ var stringPrefixes = new RegExp("^('{3}|\"{3}|['\"])");
34
+ var regexPrefixes = new RegExp("^(/{3}|/)");
35
+ var commonConstants = ['Infinity', 'NaN', 'undefined', 'null', 'true', 'false', 'on', 'off', 'yes', 'no'];
36
+ var constants = wordRegexp(commonConstants);
37
+
38
+ // Tokenizers
39
+ function tokenBase(stream, state) {
40
+ // Handle scope changes
41
+ if (stream.sol()) {
42
+ var scopeOffset = state.scopes[0].offset;
43
+ if (stream.eatSpace()) {
44
+ var lineOffset = stream.indentation();
45
+ if (lineOffset > scopeOffset) {
46
+ return 'indent';
47
+ } else if (lineOffset < scopeOffset) {
48
+ return 'dedent';
49
+ }
50
+ return null;
51
+ } else {
52
+ if (scopeOffset > 0) {
53
+ dedent(stream, state);
54
+ }
55
+ }
56
+ }
57
+ if (stream.eatSpace()) {
58
+ return null;
59
+ }
60
+
61
+ var ch = stream.peek();
62
+
63
+ // Handle comments
64
+ if (ch === '#') {
65
+ stream.skipToEnd();
66
+ return 'comment';
67
+ }
68
+
69
+ // Handle number literals
70
+ if (stream.match(/^-?[0-9\.]/, false)) {
71
+ var floatLiteral = false;
72
+ // Floats
73
+ if (stream.match(/^-?\d*\.\d+(e[\+\-]?\d+)?/i)) {
74
+ floatLiteral = true;
75
+ }
76
+ if (stream.match(/^-?\d+\.\d*/)) {
77
+ floatLiteral = true;
78
+ }
79
+ if (stream.match(/^-?\.\d+/)) {
80
+ floatLiteral = true;
81
+ }
82
+ if (floatLiteral) {
83
+ return 'number';
84
+ }
85
+ // Integers
86
+ var intLiteral = false;
87
+ // Hex
88
+ if (stream.match(/^-?0x[0-9a-f]+/i)) {
89
+ intLiteral = true;
90
+ }
91
+ // Decimal
92
+ if (stream.match(/^-?[1-9]\d*(e[\+\-]?\d+)?/)) {
93
+ intLiteral = true;
94
+ }
95
+ // Zero by itself with no other piece of number.
96
+ if (stream.match(/^-?0(?![\dx])/i)) {
97
+ intLiteral = true;
98
+ }
99
+ if (intLiteral) {
100
+ return 'number';
101
+ }
102
+ }
103
+
104
+ // Handle strings
105
+ if (stream.match(stringPrefixes)) {
106
+ state.tokenize = tokenFactory(stream.current(), 'string');
107
+ return state.tokenize(stream, state);
108
+ }
109
+ // Handle regex literals
110
+ if (stream.match(regexPrefixes)) {
111
+ if (stream.current() != '/' || stream.match(/^.*\//, false)) { // prevent highlight of division
112
+ state.tokenize = tokenFactory(stream.current(), 'string-2');
113
+ return state.tokenize(stream, state);
114
+ } else {
115
+ stream.backUp(1);
116
+ }
117
+ }
118
+
119
+ // Handle operators and delimiters
120
+ if (stream.match(tripleDelimiters) || stream.match(doubleDelimiters)) {
121
+ return 'punctuation';
122
+ }
123
+ if (stream.match(doubleOperators)
124
+ || stream.match(singleOperators)
125
+ || stream.match(wordOperators)) {
126
+ return 'operator';
127
+ }
128
+ if (stream.match(singleDelimiters)) {
129
+ return 'punctuation';
130
+ }
131
+
132
+ if (stream.match(constants)) {
133
+ return 'atom';
134
+ }
135
+
136
+ if (stream.match(keywords)) {
137
+ return 'keyword';
138
+ }
139
+
140
+ if (stream.match(identifiers)) {
141
+ return 'variable';
142
+ }
143
+
144
+ // Handle non-detected items
145
+ stream.next();
146
+ return ERRORCLASS;
147
+ }
148
+
149
+ function tokenFactory(delimiter, outclass) {
150
+ var delim_re = new RegExp(delimiter);
151
+ var singleline = delimiter.length == 1;
152
+
153
+ return function tokenString(stream, state) {
154
+ while (!stream.eol()) {
155
+ stream.eatWhile(/[^'"\/\\]/);
156
+ if (stream.eat('\\')) {
157
+ stream.next();
158
+ if (singleline && stream.eol()) {
159
+ return outclass;
160
+ }
161
+ } else if (stream.match(delim_re)) {
162
+ state.tokenize = tokenBase;
163
+ return outclass;
164
+ } else {
165
+ stream.eat(/['"\/]/);
166
+ }
167
+ }
168
+ if (singleline) {
169
+ if (conf.mode.singleLineStringErrors) {
170
+ outclass = ERRORCLASS
171
+ } else {
172
+ state.tokenize = tokenBase;
173
+ }
174
+ }
175
+ return outclass;
176
+ };
177
+ }
178
+
179
+ function indent(stream, state, type) {
180
+ type = type || 'coffee';
181
+ var indentUnit = 0;
182
+ if (type === 'coffee') {
183
+ for (var i = 0; i < state.scopes.length; i++) {
184
+ if (state.scopes[i].type === 'coffee') {
185
+ indentUnit = state.scopes[i].offset + conf.indentUnit;
186
+ break;
187
+ }
188
+ }
189
+ } else {
190
+ indentUnit = stream.column() + stream.current().length;
191
+ }
192
+ state.scopes.unshift({
193
+ offset: indentUnit,
194
+ type: type
195
+ });
196
+ }
197
+
198
+ function dedent(stream, state) {
199
+ if (state.scopes.length == 1) return;
200
+ if (state.scopes[0].type === 'coffee') {
201
+ var _indent = stream.indentation();
202
+ var _indent_index = -1;
203
+ for (var i = 0; i < state.scopes.length; ++i) {
204
+ if (_indent === state.scopes[i].offset) {
205
+ _indent_index = i;
206
+ break;
207
+ }
208
+ }
209
+ if (_indent_index === -1) {
210
+ return true;
211
+ }
212
+ while (state.scopes[0].offset !== _indent) {
213
+ state.scopes.shift();
214
+ }
215
+ return false
216
+ } else {
217
+ state.scopes.shift();
218
+ return false;
219
+ }
220
+ }
221
+
222
+ function tokenLexer(stream, state) {
223
+ var style = state.tokenize(stream, state);
224
+ var current = stream.current();
225
+
226
+ // Handle '.' connected identifiers
227
+ if (current === '.') {
228
+ style = state.tokenize(stream, state);
229
+ current = stream.current();
230
+ if (style === 'variable') {
231
+ return 'variable';
232
+ } else {
233
+ return ERRORCLASS;
234
+ }
235
+ }
236
+
237
+ // Handle properties
238
+ if (current === '@') {
239
+ style = state.tokenize(stream, state);
240
+ current = stream.current();
241
+ if (style === 'variable') {
242
+ return 'variable-2';
243
+ } else {
244
+ return ERRORCLASS;
245
+ }
246
+ }
247
+
248
+ // Handle scope changes.
249
+ if (current === 'return') {
250
+ state.dedent += 1;
251
+ }
252
+ if (((current === '->' || current === '=>') &&
253
+ !state.lambda &&
254
+ state.scopes[0].type == 'coffee' &&
255
+ stream.peek() === '')
256
+ || style === 'indent') {
257
+ indent(stream, state);
258
+ }
259
+ var delimiter_index = '[({'.indexOf(current);
260
+ if (delimiter_index !== -1) {
261
+ indent(stream, state, '])}'.slice(delimiter_index, delimiter_index+1));
262
+ }
263
+ if (indentKeywords.exec(current)){
264
+ indent(stream, state);
265
+ }
266
+ if (current == 'then'){
267
+ dedent(stream, state);
268
+ }
269
+
270
+
271
+ if (style === 'dedent') {
272
+ if (dedent(stream, state)) {
273
+ return ERRORCLASS;
274
+ }
275
+ }
276
+ delimiter_index = '])}'.indexOf(current);
277
+ if (delimiter_index !== -1) {
278
+ if (dedent(stream, state)) {
279
+ return ERRORCLASS;
280
+ }
281
+ }
282
+ if (state.dedent > 0 && stream.eol() && state.scopes[0].type == 'coffee') {
283
+ if (state.scopes.length > 1) state.scopes.shift();
284
+ state.dedent -= 1;
285
+ }
286
+
287
+ return style;
288
+ }
289
+
290
+ var external = {
291
+ startState: function(basecolumn) {
292
+ return {
293
+ tokenize: tokenBase,
294
+ scopes: [{offset:basecolumn || 0, type:'coffee'}],
295
+ lastToken: null,
296
+ lambda: false,
297
+ dedent: 0
298
+ };
299
+ },
300
+
301
+ token: function(stream, state) {
302
+ var style = tokenLexer(stream, state);
303
+
304
+ state.lastToken = {style:style, content: stream.current()};
305
+
306
+ if (stream.eol() && stream.lambda) {
307
+ state.lambda = false;
308
+ }
309
+
310
+ return style;
311
+ },
312
+
313
+ indent: function(state, textAfter) {
314
+ if (state.tokenize != tokenBase) {
315
+ return 0;
316
+ }
317
+
318
+ return state.scopes[0].offset;
319
+ }
320
+
321
+ };
322
+ return external;
323
+ });
324
+
325
+ CodeMirror.defineMIME('text/x-coffeescript', 'coffeescript');