2014-06-18 23:27:05 +02:00
ace . define ( "ace/mode/clojure" , [ "require" , "exports" , "module" , "ace/lib/oop" , "ace/mode/text" , "ace/mode/clojure_highlight_rules" , "ace/mode/matching_parens_outdent" ] , function ( e , t , n ) { var r = e ( "../lib/oop" ) , i = e ( "./text" ) . Mode , s = e ( "./clojure_highlight_rules" ) . ClojureHighlightRules , o = e ( "./matching_parens_outdent" ) . MatchingParensOutdent , u = function ( ) { this . HighlightRules = s , this . $outdent = new o } ; r . inherits ( u , i ) , function ( ) { this . lineCommentStart = ";" , this . minorIndentFunctions = [ "defn" , "defn-" , "defmacro" , "def" , "deftest" , "testing" ] , this . $toIndent = function ( e ) { return e . split ( "" ) . map ( function ( e ) { return /\s/ . exec ( e ) ? e : " " } ) . join ( "" ) } , this . $calculateIndent = function ( e , t ) { var n = this . $getIndent ( e ) , r = 0 , i , s ; for ( var o = e . length - 1 ; o >= 0 ; o -- ) { s = e [ o ] , s === "(" ? ( r -- , i = ! 0 ) : s === "(" || s === "[" || s === "{" ? ( r -- , i = ! 1 ) : ( s === ")" || s === "]" || s === "}" ) && r ++ ; if ( r < 0 ) break } if ( ! ( r < 0 && i ) ) return r < 0 && ! i ? this . $toIndent ( e . substring ( 0 , o + 1 ) ) : r > 0 ? ( n = n . substring ( 0 , n . length - t . length ) , n ) : n ; o += 1 ; var u = o , a = "" ; for ( ; ; ) { s = e [ o ] ; if ( s === " " || s === " " ) return this . minorIndentFunctions . indexOf ( a ) !== - 1 ? this . $toIndent ( e . substring ( 0 , u - 1 ) + t ) : this . $toIndent ( e . substring ( 0 , o + 1 ) ) ; if ( s === undefined ) return this . $toIndent ( e . substring ( 0 , u - 1 ) + t ) ; a += e [ o ] , o ++ } } , this . getNextLineIndent = function ( e , t , n ) { return this . $calculateIndent ( t , n ) } , this . checkOutdent = function ( e , t , n ) { return this . $outdent . checkOutdent ( t , n ) } , this . autoOutdent = function ( e , t , n ) { this . $outdent . autoOutdent ( t , n ) } , this . $id = "ace/mode/clojure" } . call ( u . prototype ) , t . Mode = u } ) , ace . define ( "ace/mode/clojure_highlight_rules" , [ "require" , "exports" , "module" , "ace/lib/oop" , "ace/mode/text_highlight_rules" ] , function ( e , t , n ) { var r = e ( "../lib/oop" ) , i = e ( "./text_highlight_rules" ) . TextHighlightRules , s = function ( ) { var e = " * * 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 * + - - > - >> . . / < <= = == > & gt ; >= & gt ; = accessor aclone add - classpath add - watch 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 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 ? 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 - hiera
