UNPKG

@atomist/clj-editors

Version:

We build a node module `@atomist/clj-editors` here. This allows us to construct clojure editors using `rewrite-cljs`. After adding this dependency, the node application will have access to javascript functions transpiled from clojurescript.

422 lines (351 loc) 16.3 kB
// Compiled by ClojureScript 1.9.946 {:target :nodejs} goog.provide('rewrite_clj.zip.findz'); goog.require('cljs.core'); goog.require('rewrite_clj.zip.base'); goog.require('rewrite_clj.zip.move'); goog.require('rewrite_clj.node'); goog.require('rewrite_clj.zip.whitespace'); goog.require('clojure.zip'); rewrite_clj.zip.findz.tag_predicate = (function rewrite_clj$zip$findz$tag_predicate(var_args){ var args__9056__auto__ = []; var len__9049__auto___11662 = arguments.length; var i__9050__auto___11663 = (0); while(true){ if((i__9050__auto___11663 < len__9049__auto___11662)){ args__9056__auto__.push((arguments[i__9050__auto___11663])); var G__11664 = (i__9050__auto___11663 + (1)); i__9050__auto___11663 = G__11664; continue; } else { } break; } var argseq__9057__auto__ = ((((1) < args__9056__auto__.length))?(new cljs.core.IndexedSeq(args__9056__auto__.slice((1)),(0),null)):null); return rewrite_clj.zip.findz.tag_predicate.cljs$core$IFn$_invoke$arity$variadic((arguments[(0)]),argseq__9057__auto__); }); rewrite_clj.zip.findz.tag_predicate.cljs$core$IFn$_invoke$arity$variadic = (function (t,p__11656){ var vec__11657 = p__11656; var additional = cljs.core.nth.call(null,vec__11657,(0),null); if(cljs.core.truth_(additional)){ return ((function (vec__11657,additional){ return (function (node){ var and__7866__auto__ = cljs.core._EQ_.call(null,rewrite_clj.zip.base.tag.call(null,node),t); if(and__7866__auto__){ return additional.call(null,node); } else { return and__7866__auto__; } }); ;})(vec__11657,additional)) } else { return ((function (vec__11657,additional){ return (function (p1__11649_SHARP_){ return cljs.core._EQ_.call(null,rewrite_clj.zip.base.tag.call(null,p1__11649_SHARP_),t); }); ;})(vec__11657,additional)) } }); rewrite_clj.zip.findz.tag_predicate.cljs$lang$maxFixedArity = (1); rewrite_clj.zip.findz.tag_predicate.cljs$lang$applyTo = (function (seq11650){ var G__11651 = cljs.core.first.call(null,seq11650); var seq11650__$1 = cljs.core.next.call(null,seq11650); return rewrite_clj.zip.findz.tag_predicate.cljs$core$IFn$_invoke$arity$variadic(G__11651,seq11650__$1); }); rewrite_clj.zip.findz.in_range_QMARK_ = (function rewrite_clj$zip$findz$in_range_QMARK_(p__11682,p__11683){ var map__11684 = p__11682; var map__11684__$1 = ((((!((map__11684 == null)))?((((map__11684.cljs$lang$protocol_mask$partition0$ & (64))) || ((cljs.core.PROTOCOL_SENTINEL === map__11684.cljs$core$ISeq$)))?true:false):false))?cljs.core.apply.call(null,cljs.core.hash_map,map__11684):map__11684); var row = cljs.core.get.call(null,map__11684__$1,new cljs.core.Keyword(null,"row","row",-570139521)); var col = cljs.core.get.call(null,map__11684__$1,new cljs.core.Keyword(null,"col","col",-1959363084)); var end_row = cljs.core.get.call(null,map__11684__$1,new cljs.core.Keyword(null,"end-row","end-row",-545103581)); var end_col = cljs.core.get.call(null,map__11684__$1,new cljs.core.Keyword(null,"end-col","end-col",-724155879)); var map__11685 = p__11683; var map__11685__$1 = ((((!((map__11685 == null)))?((((map__11685.cljs$lang$protocol_mask$partition0$ & (64))) || ((cljs.core.PROTOCOL_SENTINEL === map__11685.cljs$core$ISeq$)))?true:false):false))?cljs.core.apply.call(null,cljs.core.hash_map,map__11685):map__11685); var r = cljs.core.get.call(null,map__11685__$1,new cljs.core.Keyword(null,"row","row",-570139521)); var c = cljs.core.get.call(null,map__11685__$1,new cljs.core.Keyword(null,"col","col",-1959363084)); var and__7866__auto__ = (r >= row); if(and__7866__auto__){ var and__7866__auto____$1 = (r <= end_row); if(and__7866__auto____$1){ var and__7866__auto____$2 = ((cljs.core._EQ_.call(null,r,row))?(c >= col):true); if(and__7866__auto____$2){ if(cljs.core._EQ_.call(null,r,end_row)){ return (c <= end_col); } else { return true; } } else { return and__7866__auto____$2; } } else { return and__7866__auto____$1; } } else { return and__7866__auto__; } }); /** * Find node satisfying the given predicate by repeatedly * applying the given movement function to the initial zipper * location. */ rewrite_clj.zip.findz.find = (function rewrite_clj$zip$findz$find(var_args){ var G__11715 = arguments.length; switch (G__11715) { case 2: return rewrite_clj.zip.findz.find.cljs$core$IFn$_invoke$arity$2((arguments[(0)]),(arguments[(1)])); break; case 3: return rewrite_clj.zip.findz.find.cljs$core$IFn$_invoke$arity$3((arguments[(0)]),(arguments[(1)]),(arguments[(2)])); break; default: throw (new Error(["Invalid arity: ",cljs.core.str.cljs$core$IFn$_invoke$arity$1(arguments.length)].join(''))); } }); rewrite_clj.zip.findz.find.cljs$core$IFn$_invoke$arity$2 = (function (zloc,p_QMARK_){ return rewrite_clj.zip.findz.find.call(null,zloc,rewrite_clj.zip.move.right,p_QMARK_); }); rewrite_clj.zip.findz.find.cljs$core$IFn$_invoke$arity$3 = (function (zloc,f,p_QMARK_){ return cljs.core.first.call(null,cljs.core.drop_while.call(null,cljs.core.complement.call(null,p_QMARK_),cljs.core.take_while.call(null,cljs.core.complement.call(null,rewrite_clj.zip.move.end_QMARK_),cljs.core.take_while.call(null,cljs.core.identity,cljs.core.iterate.call(null,f,zloc))))); }); rewrite_clj.zip.findz.find.cljs$lang$maxFixedArity = 3; /** * Find last node (if more than one node) that is in range of pos and * satisfying the given predicate depth first from initial zipper * location. */ rewrite_clj.zip.findz.find_last_by_pos = (function rewrite_clj$zip$findz$find_last_by_pos(var_args){ var G__11729 = arguments.length; switch (G__11729) { case 2: return rewrite_clj.zip.findz.find_last_by_pos.cljs$core$IFn$_invoke$arity$2((arguments[(0)]),(arguments[(1)])); break; case 3: return rewrite_clj.zip.findz.find_last_by_pos.cljs$core$IFn$_invoke$arity$3((arguments[(0)]),(arguments[(1)]),(arguments[(2)])); break; default: throw (new Error(["Invalid arity: ",cljs.core.str.cljs$core$IFn$_invoke$arity$1(arguments.length)].join(''))); } }); rewrite_clj.zip.findz.find_last_by_pos.cljs$core$IFn$_invoke$arity$2 = (function (zloc,pos){ return rewrite_clj.zip.findz.find_last_by_pos.call(null,zloc,pos,cljs.core.constantly.call(null,true)); }); rewrite_clj.zip.findz.find_last_by_pos.cljs$core$IFn$_invoke$arity$3 = (function (zloc,pos,p_QMARK_){ return cljs.core.last.call(null,cljs.core.filter.call(null,(function (p1__11726_SHARP_){ var and__7866__auto__ = p_QMARK_.call(null,p1__11726_SHARP_); if(cljs.core.truth_(and__7866__auto__)){ return rewrite_clj.zip.findz.in_range_QMARK_.call(null,cljs.core.meta.call(null,clojure.zip.node.call(null,p1__11726_SHARP_)),pos); } else { return and__7866__auto__; } }),cljs.core.take_while.call(null,cljs.core.complement.call(null,rewrite_clj.zip.move.end_QMARK_),cljs.core.take_while.call(null,cljs.core.identity,cljs.core.iterate.call(null,clojure.zip.next,zloc))))); }); rewrite_clj.zip.findz.find_last_by_pos.cljs$lang$maxFixedArity = 3; /** * Find node satisfying the given predicate by traversing * the zipper in a depth-first way. */ rewrite_clj.zip.findz.find_depth_first = (function rewrite_clj$zip$findz$find_depth_first(zloc,p_QMARK_){ return rewrite_clj.zip.findz.find.call(null,zloc,rewrite_clj.zip.move.next,p_QMARK_); }); /** * Find node other than the current zipper location matching * the given predicate by applying the given movement function * to the initial zipper location. */ rewrite_clj.zip.findz.find_next = (function rewrite_clj$zip$findz$find_next(var_args){ var G__11768 = arguments.length; switch (G__11768) { case 2: return rewrite_clj.zip.findz.find_next.cljs$core$IFn$_invoke$arity$2((arguments[(0)]),(arguments[(1)])); break; case 3: return rewrite_clj.zip.findz.find_next.cljs$core$IFn$_invoke$arity$3((arguments[(0)]),(arguments[(1)]),(arguments[(2)])); break; default: throw (new Error(["Invalid arity: ",cljs.core.str.cljs$core$IFn$_invoke$arity$1(arguments.length)].join(''))); } }); rewrite_clj.zip.findz.find_next.cljs$core$IFn$_invoke$arity$2 = (function (zloc,p_QMARK_){ return rewrite_clj.zip.findz.find_next.call(null,zloc,rewrite_clj.zip.move.right,p_QMARK_); }); rewrite_clj.zip.findz.find_next.cljs$core$IFn$_invoke$arity$3 = (function (zloc,f,p_QMARK_){ var G__11780 = zloc; var G__11780__$1 = (((G__11780 == null))?null:f.call(null,G__11780)); if((G__11780__$1 == null)){ return null; } else { return rewrite_clj.zip.findz.find.call(null,G__11780__$1,f,p_QMARK_); } }); rewrite_clj.zip.findz.find_next.cljs$lang$maxFixedArity = 3; /** * Find node other than the current zipper location matching * the given predicate by traversing the zipper in a * depth-first way. */ rewrite_clj.zip.findz.find_next_depth_first = (function rewrite_clj$zip$findz$find_next_depth_first(zloc,p_QMARK_){ return rewrite_clj.zip.findz.find_next.call(null,zloc,rewrite_clj.zip.move.next,p_QMARK_); }); /** * Find node with the given tag by repeatedly applying the given * movement function to the initial zipper location. */ rewrite_clj.zip.findz.find_tag = (function rewrite_clj$zip$findz$find_tag(var_args){ var G__11833 = arguments.length; switch (G__11833) { case 2: return rewrite_clj.zip.findz.find_tag.cljs$core$IFn$_invoke$arity$2((arguments[(0)]),(arguments[(1)])); break; case 3: return rewrite_clj.zip.findz.find_tag.cljs$core$IFn$_invoke$arity$3((arguments[(0)]),(arguments[(1)]),(arguments[(2)])); break; default: throw (new Error(["Invalid arity: ",cljs.core.str.cljs$core$IFn$_invoke$arity$1(arguments.length)].join(''))); } }); rewrite_clj.zip.findz.find_tag.cljs$core$IFn$_invoke$arity$2 = (function (zloc,t){ return rewrite_clj.zip.findz.find_tag.call(null,zloc,rewrite_clj.zip.move.right,t); }); rewrite_clj.zip.findz.find_tag.cljs$core$IFn$_invoke$arity$3 = (function (zloc,f,t){ return rewrite_clj.zip.findz.find.call(null,zloc,f,(function (p1__11830_SHARP_){ return cljs.core._EQ_.call(null,rewrite_clj.zip.base.tag.call(null,p1__11830_SHARP_),t); })); }); rewrite_clj.zip.findz.find_tag.cljs$lang$maxFixedArity = 3; /** * Find node other than the current zipper location with the * given tag by repeatedly applying the given movement function to * the initial zipper location. */ rewrite_clj.zip.findz.find_next_tag = (function rewrite_clj$zip$findz$find_next_tag(var_args){ var G__11859 = arguments.length; switch (G__11859) { case 2: return rewrite_clj.zip.findz.find_next_tag.cljs$core$IFn$_invoke$arity$2((arguments[(0)]),(arguments[(1)])); break; case 3: return rewrite_clj.zip.findz.find_next_tag.cljs$core$IFn$_invoke$arity$3((arguments[(0)]),(arguments[(1)]),(arguments[(2)])); break; default: throw (new Error(["Invalid arity: ",cljs.core.str.cljs$core$IFn$_invoke$arity$1(arguments.length)].join(''))); } }); rewrite_clj.zip.findz.find_next_tag.cljs$core$IFn$_invoke$arity$2 = (function (zloc,t){ return rewrite_clj.zip.findz.find_next_tag.call(null,zloc,rewrite_clj.zip.move.right,t); }); rewrite_clj.zip.findz.find_next_tag.cljs$core$IFn$_invoke$arity$3 = (function (zloc,f,t){ return rewrite_clj.zip.findz.find_next.call(null,zloc,f,rewrite_clj.zip.findz.tag_predicate.call(null,t)); }); rewrite_clj.zip.findz.find_next_tag.cljs$lang$maxFixedArity = 3; /** * Find node with the given tag and pos depth-first from initial zipper location. */ rewrite_clj.zip.findz.find_tag_by_pos = (function rewrite_clj$zip$findz$find_tag_by_pos(zloc,pos,t){ return rewrite_clj.zip.findz.find_last_by_pos.call(null,zloc,pos,(function (p1__11889_SHARP_){ return cljs.core._EQ_.call(null,rewrite_clj.zip.base.tag.call(null,p1__11889_SHARP_),t); })); }); /** * Find token node matching the given predicate by applying the * given movement function to the initial zipper location, defaulting * to `right`. */ rewrite_clj.zip.findz.find_token = (function rewrite_clj$zip$findz$find_token(var_args){ var G__11917 = arguments.length; switch (G__11917) { case 2: return rewrite_clj.zip.findz.find_token.cljs$core$IFn$_invoke$arity$2((arguments[(0)]),(arguments[(1)])); break; case 3: return rewrite_clj.zip.findz.find_token.cljs$core$IFn$_invoke$arity$3((arguments[(0)]),(arguments[(1)]),(arguments[(2)])); break; default: throw (new Error(["Invalid arity: ",cljs.core.str.cljs$core$IFn$_invoke$arity$1(arguments.length)].join(''))); } }); rewrite_clj.zip.findz.find_token.cljs$core$IFn$_invoke$arity$2 = (function (zloc,p_QMARK_){ return rewrite_clj.zip.findz.find_token.call(null,zloc,rewrite_clj.zip.move.right,p_QMARK_); }); rewrite_clj.zip.findz.find_token.cljs$core$IFn$_invoke$arity$3 = (function (zloc,f,p_QMARK_){ return rewrite_clj.zip.findz.find.call(null,zloc,f,rewrite_clj.zip.findz.tag_predicate.call(null,new cljs.core.Keyword(null,"token","token",-1211463215),p_QMARK_)); }); rewrite_clj.zip.findz.find_token.cljs$lang$maxFixedArity = 3; /** * Find next token node matching the given predicate by applying the * given movement function to the initial zipper location, defaulting * to `right`. */ rewrite_clj.zip.findz.find_next_token = (function rewrite_clj$zip$findz$find_next_token(var_args){ var G__11941 = arguments.length; switch (G__11941) { case 2: return rewrite_clj.zip.findz.find_next_token.cljs$core$IFn$_invoke$arity$2((arguments[(0)]),(arguments[(1)])); break; case 3: return rewrite_clj.zip.findz.find_next_token.cljs$core$IFn$_invoke$arity$3((arguments[(0)]),(arguments[(1)]),(arguments[(2)])); break; default: throw (new Error(["Invalid arity: ",cljs.core.str.cljs$core$IFn$_invoke$arity$1(arguments.length)].join(''))); } }); rewrite_clj.zip.findz.find_next_token.cljs$core$IFn$_invoke$arity$2 = (function (zloc,p_QMARK_){ return rewrite_clj.zip.findz.find_next_token.call(null,zloc,rewrite_clj.zip.move.right,p_QMARK_); }); rewrite_clj.zip.findz.find_next_token.cljs$core$IFn$_invoke$arity$3 = (function (zloc,f,p_QMARK_){ return rewrite_clj.zip.findz.find_token.call(null,f.call(null,zloc),f,p_QMARK_); }); rewrite_clj.zip.findz.find_next_token.cljs$lang$maxFixedArity = 3; /** * Find token node whose value matches the given one by applying the * given movement function to the initial zipper location, defaulting * to `right`. */ rewrite_clj.zip.findz.find_value = (function rewrite_clj$zip$findz$find_value(var_args){ var G__11989 = arguments.length; switch (G__11989) { case 2: return rewrite_clj.zip.findz.find_value.cljs$core$IFn$_invoke$arity$2((arguments[(0)]),(arguments[(1)])); break; case 3: return rewrite_clj.zip.findz.find_value.cljs$core$IFn$_invoke$arity$3((arguments[(0)]),(arguments[(1)]),(arguments[(2)])); break; default: throw (new Error(["Invalid arity: ",cljs.core.str.cljs$core$IFn$_invoke$arity$1(arguments.length)].join(''))); } }); rewrite_clj.zip.findz.find_value.cljs$core$IFn$_invoke$arity$2 = (function (zloc,v){ return rewrite_clj.zip.findz.find_value.call(null,zloc,rewrite_clj.zip.move.right,v); }); rewrite_clj.zip.findz.find_value.cljs$core$IFn$_invoke$arity$3 = (function (zloc,f,v){ var p_QMARK_ = ((cljs.core.set_QMARK_.call(null,v))?cljs.core.comp.call(null,v,rewrite_clj.zip.base.sexpr):(function (p1__11987_SHARP_){ return cljs.core._EQ_.call(null,rewrite_clj.zip.base.sexpr.call(null,p1__11987_SHARP_),v); })); return rewrite_clj.zip.findz.find_token.call(null,zloc,f,p_QMARK_); }); rewrite_clj.zip.findz.find_value.cljs$lang$maxFixedArity = 3; /** * Find next token node whose value matches the given one by applying the * given movement function to the initial zipper location, defaulting * to `right`. */ rewrite_clj.zip.findz.find_next_value = (function rewrite_clj$zip$findz$find_next_value(var_args){ var G__12011 = arguments.length; switch (G__12011) { case 2: return rewrite_clj.zip.findz.find_next_value.cljs$core$IFn$_invoke$arity$2((arguments[(0)]),(arguments[(1)])); break; case 3: return rewrite_clj.zip.findz.find_next_value.cljs$core$IFn$_invoke$arity$3((arguments[(0)]),(arguments[(1)]),(arguments[(2)])); break; default: throw (new Error(["Invalid arity: ",cljs.core.str.cljs$core$IFn$_invoke$arity$1(arguments.length)].join(''))); } }); rewrite_clj.zip.findz.find_next_value.cljs$core$IFn$_invoke$arity$2 = (function (zloc,v){ return rewrite_clj.zip.findz.find_next_value.call(null,zloc,rewrite_clj.zip.move.right,v); }); rewrite_clj.zip.findz.find_next_value.cljs$core$IFn$_invoke$arity$3 = (function (zloc,f,v){ return rewrite_clj.zip.findz.find_value.call(null,f.call(null,zloc),f,v); }); rewrite_clj.zip.findz.find_next_value.cljs$lang$maxFixedArity = 3; //# sourceMappingURL=findz.js.map