Removing accidentally added Main.clj

Removing accidentally added Main.clj

Signed-off-by: Daniel Borchmann <25857343a15bf1edafebc2912e82ecf775c585c1@mailbox.tu-dresden.de>

--- src/main/clojure/conexp/contrib/java/Main.clj
+++ src/main/clojure/conexp/contrib/java/Main.clj
@@ -1,1734 +0,0 @@
-(do
- (clojure.core/ns
-  conexp.contrib.java.Main
-  (:require conexp.main)
-  (:gen-class
-   :prefix
-   conexp-clj-
-   :methods
-   (^{:static true}
-    [get_resource [Object] java.net.URL]
-    ^{:static true}
-    [hash_combine_hash ["[Ljava.lang.Object;"] Object]
-    ^{:static true}
-    [disjoint_union ["[Ljava.lang.Object;"] Object]
-    ^{:static true}
-    [conexp_version [] Object]
-    ^{:static true}
-    [gcd [Object Object] Object]
-    ^{:static true}
-    [next_closed_set_in_family [Object Object Object Object] Object]
-    ^{:static true}
-    [quit [] Object]
-    ^{:static true}
-    [lectic__lt__i [Object Object Object Object] Object]
-    ^{:static true}
-    [graph_of_function_p [Object Object Object] Object]
-    ^{:static true}
-    [minimal_generating_subsets [Object Object] Object]
-    ^{:static true}
-    [union [] Object]
-    ^{:static true}
-    [union [Object] Object]
-    ^{:static true}
-    [union [Object Object] Object]
-    ^{:static true}
-    [union [Object Object "[Ljava.lang.Object;"] Object]
-    ^{:static true}
-    [topological_sort [Object Object] Object]
-    ^{:static true}
-    [cross_product ["[Ljava.lang.Object;"] Object]
-    ^{:static true}
-    [superset_p [Object Object] java.lang.Boolean]
-    ^{:static true}
-    [floor [Object] Object]
-    ^{:static true}
-    [exact_integer_sqrt [Object] Object]
-    ^{:static true}
-    [subset_p [Object Object] java.lang.Boolean]
-    ^{:static true}
-    [next_closed_set [Object Object Object] Object]
-    ^{:static true}
-    [join [Object Object] Object]
-    ^{:static true}
-    [join [Object Object Object] Object]
-    ^{:static true}
-    [set_of_range [Object] Object]
-    ^{:static true}
-    [set_of_range [Object Object] Object]
-    ^{:static true}
-    [set_of_range [Object Object Object] Object]
-    ^{:static true}
-    [ask [Object Object "[Ljava.lang.Object;"] Object]
-    ^{:static true}
-    [first_non_nil [Object] Object]
-    ^{:static true}
-    [lectic__lt_ [Object Object Object] Object]
-    ^{:static true}
-    [select [Object Object] Object]
-    ^{:static true}
-    [illegal_state ["[Ljava.lang.Object;"] Object]
-    ^{:static true}
-    [ensure_length [Object long] Object]
-    ^{:static true}
-    [ensure_length [Object long Object] Object]
-    ^{:static true}
-    [ceil [Object] Object]
-    ^{:static true}
-    [sort_by_second [Object Object] Object]
-    ^{:static true}
-    [integer_length [Object] Object]
-    ^{:static true}
-    [proper_subset_p [Object Object] Object]
-    ^{:static true}
-    [transitive_closure [Object] Object]
-    ^{:static true}
-    [singleton_p [Object] Object]
-    ^{:static true}
-    [intersection [Object] Object]
-    ^{:static true}
-    [intersection [Object Object] Object]
-    ^{:static true}
-    [intersection [Object Object "[Ljava.lang.Object;"] Object]
-    ^{:static true}
-    [expt [Object Object] Object]
-    ^{:static true}
-    [distinct_by_key [Object Object] Object]
-    ^{:static true}
-    [tails [Object] Object]
-    ^{:static true}
-    [sort_by_first [Object Object] Object]
-    ^{:static true}
-    [inits [Object] Object]
-    ^{:static true}
-    [all_closed_sets_in_family [Object Object Object] Object]
-    ^{:static true}
-    [all_closed_sets_in_family [Object Object Object Object] Object]
-    ^{:static true}
-    [now [] Object]
-    ^{:static true}
-    [index [Object Object] Object]
-    ^{:static true}
-    [clojure_type [Object] Object]
-    ^{:static true}
-    [sqrt [Object] Object]
-    ^{:static true}
-    [yes_or_no_p [Object] Object]
-    ^{:static true}
-    [warn [Object] Object]
-    ^{:static true}
-    [rename_keys [Object Object] Object]
-    ^{:static true}
-    [order_by [Object] Object]
-    ^{:static true}
-    [unsupported_operation ["[Ljava.lang.Object;"] Object]
-    ^{:static true}
-    [minimum_set_covers [Object Object] Object]
-    ^{:static true}
-    [proper_superset_p [Object Object] Object]
-    ^{:static true}
-    [has_version_p [Object] Object]
-    ^{:static true}
-    [reflexive_transitive_closure [Object Object] Object]
-    ^{:static true}
-    [illegal_argument ["[Ljava.lang.Object;"] Object]
-    ^{:static true}
-    [immigrate ["[Ljava.lang.Object;"] Object]
-    ^{:static true}
-    [map_invert [Object] Object]
-    ^{:static true}
-    [not_yet_implemented [] Object]
-    ^{:static true}
-    [ensure_seq [Object] Object]
-    ^{:static true}
-    [rename [Object Object] Object]
-    ^{:static true}
-    [minimal_hypergraph_transversals [Object Object] Object]
-    ^{:static true}
-    [partial_min [Object Object] Object]
-    ^{:static true}
-    [_lt__eq__gt_ [Object Object] Object]
-    ^{:static true}
-    [to_set [Object] Object]
-    ^{:static true}
-    [round [Object] Object]
-    ^{:static true}
-    [partial_max [Object Object] Object]
-    ^{:static true}
-    [improve_basic_order [Object Object] Object]
-    ^{:static true}
-    [reduce_f [Object Object Object] Object]
-    ^{:static true}
-    [project [Object Object] Object]
-    ^{:static true}
-    [abs [Object] Object]
-    ^{:static true}
-    [all_closed_sets [Object Object] Object]
-    ^{:static true}
-    [all_closed_sets [Object Object Object] Object]
-    ^{:static true}
-    [subsets [Object] Object]
-    ^{:static true}
-    [seqable_p [Object] Object]
-    ^{:static true}
-    [difference [Object] Object]
-    ^{:static true}
-    [difference [Object Object] Object]
-    ^{:static true}
-    [difference [Object Object "[Ljava.lang.Object;"] Object]
-    ^{:static true}
-    [zip [Object Object] Object]
-    ^{:static true}
-    [split_at_last [Object Object] Object]
-    ^{:static true}
-    [transitive_reduction [Object] Object]
-    ^{:static true}
-    [transitive_reduction [Object Object] Object]
-    ^{:static true}
-    [parallel_closures [Object Object] Object]
-    ^{:static true}
-    [split_at_first [Object Object] Object]
-    ^{:static true}
-    [map_by_fn [Object Object] Object]
-    ^{:static true}
-    [lcm [Object Object] Object]
-    ^{:static true}
-    [with_str_out ["[Ljava.lang.Object;"] Object]
-    ^{:static true}
-    [null_context [Object] Object]
-    ^{:static true}
-    [attribute_reduced_p [Object] Object]
-    ^{:static true}
-    [context_product [Object Object] Object]
-    ^{:static true}
-    [direct_upper_concepts [Object Object] Object]
-    ^{:static true}
-    [context_xia_product [Object Object] Object]
-    ^{:static true}
-    [context_intersection [Object Object] Object]
-    ^{:static true}
-    [rand_context [Object Object] Object]
-    ^{:static true}
-    [rand_context [Object Object Object] Object]
-    ^{:static true}
-    [attributes [Object] Object]
-    ^{:static true}
-    [attribute_clarified_p [Object] Object]
-    ^{:static true}
-    [make_context_from_matrix [Object Object Object] Object]
-    ^{:static true}
-    [context_semiproduct [Object Object] Object]
-    ^{:static true}
-    [invert_context [Object] Object]
-    ^{:static true}
-    [context_sum [Object Object] Object]
-    ^{:static true}
-    [diag_context [Object] Object]
-    ^{:static true}
-    [context_apposition [Object Object] Object]
-    ^{:static true}
-    [context_p [Object] Object]
-    ^{:static true}
-    [object_reduced_p [Object] Object]
-    ^{:static true}
-    [intents [Object] Object]
-    ^{:static true}
-    [intents [Object Object] Object]
-    ^{:static true}
-    [adiag_context [Object] Object]
-    ^{:static true}
-    [adprime [Object Object] Object]
-    ^{:static true}
-    [concept_p [Object Object] Object]
-    ^{:static true}
-    [odprime [Object Object] Object]
-    ^{:static true}
-    [make_context [Object Object Object] Object]
-    ^{:static true}
-    [dual_context [Object] Object]
-    ^{:static true}
-    [context_attribute_closure [Object Object] Object]
-    ^{:static true}
-    [objects [Object] Object]
-    ^{:static true}
-    [rename_objects [Object Object] Object]
-    ^{:static true}
-    [object_derivation [Object Object] Object]
-    ^{:static true}
-    [context_object_closure [Object Object] Object]
-    ^{:static true}
-    [incidence [Object] Object]
-    ^{:static true}
-    [context_reduced_p [Object] Object]
-    ^{:static true}
-    [object_concept [Object Object] Object]
-    ^{:static true}
-    [down_arrows [Object] Object]
-    ^{:static true}
-    [__gt_Formal_Context [Object Object Object] Object]
-    ^{:static true}
-    [object_clarified_p [Object] Object]
-    ^{:static true}
-    [oprime [Object Object] Object]
-    ^{:static true}
-    [incident_p [Object Object Object] Object]
-    ^{:static true}
-    [one_context [Object] Object]
-    ^{:static true}
-    [reduce_context [Object] Object]
-    ^{:static true}
-    [subcontext_p [Object Object] Object]
-    ^{:static true}
-    [restrict_concept [Object Object] Object]
-    ^{:static true}
-    [context_disjoint_union [Object Object] Object]
-    ^{:static true}
-    [context_clarified_p [Object] Object]
-    ^{:static true}
-    [random_contexts [Object Object] Object]
-    ^{:static true}
-    [context_size [Object] Object]
-    ^{:static true}
-    [extents [Object] Object]
-    ^{:static true}
-    [extents [Object Object] Object]
-    ^{:static true}
-    [up_down_arrows [Object] Object]
-    ^{:static true}
-    [context_subposition [Object Object] Object]
-    ^{:static true}
-    [clarify_context [Object] Object]
-    ^{:static true}
-    [clarify_objects [Object] Object]
-    ^{:static true}
-    [context_transitive_closure [Object] Object]
-    ^{:static true}
-    [make_context_nc [Object Object Object] Object]
-    ^{:static true}
-    [aprime [Object Object] Object]
-    ^{:static true}
-    [context_to_string [Object] java.lang.String]
-    ^{:static true}
-    [context_to_string [Object Object Object] java.lang.String]
-    ^{:static true}
-    [reduce_objects [Object] Object]
-    ^{:static true}
-    [incidence_relation [Object] Object]
-    ^{:static true}
-    [concepts [Object] Object]
-    ^{:static true}
-    [print_context [Object "[Ljava.lang.Object;"] Object]
-    ^{:static true}
-    [attribute_concept [Object Object] Object]
-    ^{:static true}
-    [context_union [Object Object] Object]
-    ^{:static true}
-    [rename_attributes [Object Object] Object]
-    ^{:static true}
-    [up_arrows [Object] Object]
-    ^{:static true}
-    [clarify_attributes [Object] Object]
-    ^{:static true}
-    [direct_lower_concepts [Object Object] Object]
-    ^{:static true}
-    [context_composition [Object Object] Object]
-    ^{:static true}
-    [reduce_attributes [Object] Object]
-    ^{:static true}
-    [random_context [Object Object] Object]
-    ^{:static true}
-    [random_context [Object Object Object] Object]
-    ^{:static true}
-    [attribute_derivation [Object Object] Object]
-    ^{:static true}
-    [__gt_Many_Valued_Context [Object Object Object] Object]
-    ^{:static true}
-    [dichotomic_scale [Object] Object]
-    ^{:static true}
-    [make_mv_context_nc [Object Object Object] Object]
-    ^{:static true}
-    [make_mv_context [Object Object Object] Object]
-    ^{:static true}
-    [interordinal_scale [Object] Object]
-    ^{:static true}
-    [interordinal_scale [Object Object Object] Object]
-    ^{:static true}
-    [interordinal_scale [Object Object Object Object] Object]
-    ^{:static true}
-    [values_of_object [Object Object] Object]
-    ^{:static true}
-    [values_of_attribute [Object Object] Object]
-    ^{:static true}
-    [nominal_scale [Object] Object]
-    ^{:static true}
-    [nominal_scale [Object Object] Object]
-    ^{:static true}
-    [ordinal_scale [Object] Object]
-    ^{:static true}
-    [ordinal_scale [Object Object] Object]
-    ^{:static true}
-    [ordinal_scale [Object Object Object] Object]
-    ^{:static true}
-    [scale_mv_context [Object Object] Object]
-    ^{:static true}
-    [scale_mv_context [Object Object Object] Object]
-    ^{:static true}
-    [biordinal_scale [Object Object] Object]
-    ^{:static true}
-    [biordinal_scale [Object Object Object Object Object] Object]
-    ^{:static true}
-    [interval_scale [Object] Object]
-    ^{:static true}
-    [interval_scale [Object Object] Object]
-    ^{:static true}
-    [interval_scale [Object Object Object Object] Object]
-    ^{:static true}
-    [mv_context_to_string [Object] Object]
-    ^{:static true}
-    [mv_context_to_string [Object Object Object] Object]
-    ^{:static true}
-    [make_mv_context_from_matrix [Object Object Object] Object]
-    ^{:static true}
-    [confidence [Object Object] Object]
-    ^{:static true}
-    [canonical_base_from_base [Object] Object]
-    ^{:static true}
-    [frequent_closed_itemsets [Object Object] Object]
-    ^{:static true}
-    [holds_p [Object Object] Object]
-    ^{:static true}
-    [pseudo_intents [Object] Object]
-    ^{:static true}
-    [parallel_canonical_base_from_clop [Object Object] Object]
-    ^{:static true}
-    [parallel_canonical_base_from_clop [Object Object Object] Object]
-    ^{:static true}
-    [ryssel_base [Object] Object]
-    ^{:static true}
-    [premise [Object] Object]
-    ^{:static true}
-    [proper_premises [Object] Object]
-    ^{:static true}
-    [respects_p [Object Object] Object]
-    ^{:static true}
-    [proper_premises_for_attribute [Object Object] Object]
-    ^{:static true}
-    [clop_by_implications [Object] Object]
-    ^{:static true}
-    [stem_base [Object] Object]
-    ^{:static true}
-    [stem_base [Object Object] Object]
-    ^{:static true}
-    [stem_base [Object Object Object] Object]
-    ^{:static true}
-    [conclusion [Object] Object]
-    ^{:static true}
-    [pseudo_clop_by_implications [Object] Object]
-    ^{:static true}
-    [luxenburger_base [Object Object Object] Object]
-    ^{:static true}
-    [parallel_canonical_base [Object] Object]
-    ^{:static true}
-    [parallel_canonical_base [Object Object] Object]
-    ^{:static true}
-    [support [Object Object] Object]
-    ^{:static true}
-    [proper_conclusion [Object Object] Object]
-    ^{:static true}
-    [equivalent_implications_p [Object Object] Object]
-    ^{:static true}
-    [canonical_base [Object] Object]
-    ^{:static true}
-    [canonical_base [Object Object] Object]
-    ^{:static true}
-    [canonical_base [Object Object Object] Object]
-    ^{:static true}
-    [intersect_implicational_theories
-     [Object "[Ljava.lang.Object;"]
-     Object]
-    ^{:static true}
-    [complete_implication_set_p [Object Object] Object]
-    ^{:static true}
-    [close_under_implications [Object Object] Object]
-    ^{:static true}
-    [__gt_Implication [Object Object] Object]
-    ^{:static true}
-    [sound_implication_set_p [Object Object] Object]
-    ^{:static true}
-    [make_implication [Object Object] Object]
-    ^{:static true}
-    [follows_p [Object Object] Object]
-    ^{:static true}
-    [minimal_implication_set_p [Object] Object]
-    ^{:static true}
-    [proper_premise_implications [Object] Object]
-    ^{:static true}
-    [luxenburger_basis [Object Object Object] Object]
-    ^{:static true}
-    [pseudo_close_under_implications [Object Object] Object]
-    ^{:static true}
-    [irredundant_subset [Object] Object]
-    ^{:static true}
-    [canonical_base_from_clop [Object Object] Object]
-    ^{:static true}
-    [canonical_base_from_clop [Object Object Object] Object]
-    ^{:static true}
-    [canonical_base_from_clop [Object Object Object Object] Object]
-    ^{:static true}
-    [proper_premise_p [Object Object] Object]
-    ^{:static true}
-    [implication_p [Object] Object]
-    ^{:static true}
-    [stem_base_from_base [Object] Object]
-    ^{:static true}
-    [follows_semantically_p [Object Object] Object]
-    ^{:static true}
-    [default_handler_for_incomplete_counterexamples
-     [Object Object Object Object]
-     Object]
-    ^{:static true}
-    [explore_attributes ["[Ljava.lang.Object;"] Object]
-    ^{:static true}
-    [default_handler_for_complete_counterexamples
-     [Object Object Object]
-     Object]
-    ^{:static true}
-    [make_handler ["[Ljava.lang.Object;"] Object]
-    ^{:static true}
-    [standard_context [Object] Object]
-    ^{:static true}
-    [dual_lattice [Object] Object]
-    ^{:static true}
-    [lattice_one [Object] Object]
-    ^{:static true}
-    [has_lattice_order_p [Object] Object]
-    ^{:static true}
-    [base_set [conexp.fca.lattices.Lattice] Object]
-    ^{:static true}
-    [directly_neighboured_p [Object Object Object] Object]
-    ^{:static true}
-    [sup [conexp.fca.lattices.Lattice] Object]
-    ^{:static true}
-    [concept_lattice [Object] Object]
-    ^{:static true}
-    [modular_p [Object] Object]
-    ^{:static true}
-    [lattice_zero [Object] Object]
-    ^{:static true}
-    [make_lattice_nc [Object Object] Object]
-    ^{:static true}
-    [make_lattice_nc [Object Object Object] Object]
-    ^{:static true}
-    [make_lattice_nc [Object Object Object Object] Object]
-    ^{:static true}
-    [lattice_sup_irreducibles [Object] Object]
-    ^{:static true}
-    [distributive_p [Object] Object]
-    ^{:static true}
-    [lattice_doubly_irreducibles [Object] Object]
-    ^{:static true}
-    [lattice_coatoms [Object] Object]
-    ^{:static true}
-    [lattice_atoms [Object] Object]
-    ^{:static true}
-    [__gt_Lattice [Object Object Object Object] Object]
-    ^{:static true}
-    [make_lattice ["[Ljava.lang.Object;"] Object]
-    ^{:static true}
-    [inf [conexp.fca.lattices.Lattice] Object]
-    ^{:static true}
-    [lattice_lower_neighbours [Object Object] Object]
-    ^{:static true}
-    [lattice_upper_neighbours [Object Object] Object]
-    ^{:static true}
-    [lattice_inf_irreducibles [Object] Object]
-    ^{:static true}
-    [order [conexp.fca.lattices.Lattice] Object]
-    ^{:static true}
-    [bond_p [Object Object Object] Object]
-    ^{:static true}
-    [compatible_subcontexts [Object] Object]
-    ^{:static true}
-    [compatible_subcontext_p [Object Object] Object]
-    ^{:static true}
-    [all_bonds [Object Object] Object]
-    ^{:static true}
-    [context_from_clop [Object Object] Object]
-    ^{:static true}
-    [all_bonds_by_shared_intents [Object Object] Object]
-    ^{:static true}
-    [implication_context [Object] Object]
-    ^{:static true}
-    [smallest_bond [Object Object Object] Object]
-    ^{:static true}
-    [all_shared_intents [Object Object] Object]
-    ^{:static true}
-    [latex [Object] Object]
-    ^{:static true}
-    [latex [Object Object] Object]
-    ^{:static true}
-    [write_context [Object Object Object] Object]
-    ^{:static true}
-    [write_context [Object Object] Object]
-    ^{:static true}
-    [get_default_context_format [] Object]
-    ^{:static true}
-    [list_context_output_formats [] Object]
-    ^{:static true}
-    [list_context_input_formats [] Object]
-    ^{:static true}
-    [list_context_formats [] Object]
-    ^{:static true}
-    [read_context [Object] Object]
-    ^{:static true}
-    [read_context [Object Object] Object]
-    ^{:static true}
-    [set_default_context_format_f [Object] Object]
-    ^{:static true}
-    [list_lattice_output_formats [] Object]
-    ^{:static true}
-    [list_lattice_input_formats [] Object]
-    ^{:static true}
-    [get_default_lattice_format [] Object]
-    ^{:static true}
-    [set_default_lattice_format_f [Object] Object]
-    ^{:static true}
-    [list_lattice_formats [] Object]
-    ^{:static true}
-    [read_lattice [Object] Object]
-    ^{:static true}
-    [read_lattice [Object Object] Object]
-    ^{:static true}
-    [write_lattice [Object Object Object] Object]
-    ^{:static true}
-    [write_lattice [Object Object] Object]
-    ^{:static true}
-    [list_layout_output_formats [] Object]
-    ^{:static true}
-    [read_layout [Object] Object]
-    ^{:static true}
-    [read_layout [Object Object] Object]
-    ^{:static true}
-    [set_default_layout_format_f [Object] Object]
-    ^{:static true}
-    [get_default_layout_format [] Object]
-    ^{:static true}
-    [list_layout_formats [] Object]
-    ^{:static true}
-    [list_layout_input_formats [] Object]
-    ^{:static true}
-    [write_layout [Object Object Object] Object]
-    ^{:static true}
-    [write_layout [Object Object] Object]
-    ^{:static true}
-    [list_mv_context_output_formats [] Object]
-    ^{:static true}
-    [list_mv_context_formats [] Object]
-    ^{:static true}
-    [get_default_mv_context_format [] Object]
-    ^{:static true}
-    [list_mv_context_input_formats [] Object]
-    ^{:static true}
-    [write_mv_context [Object Object Object] Object]
-    ^{:static true}
-    [write_mv_context [Object Object] Object]
-    ^{:static true}
-    [set_default_mv_context_format_f [Object] Object]
-    ^{:static true}
-    [read_mv_context [Object] Object]
-    ^{:static true}
-    [read_mv_context [Object Object] Object]
-    ^{:static true}
-    [write_many_valued_context [Object Object Object] Object]
-    ^{:static true}
-    [write_many_valued_context [Object Object] Object]
-    ^{:static true}
-    [read_many_valued_context [Object] Object]
-    ^{:static true}
-    [read_many_valued_context [Object Object] Object]
-    ^{:static true}
-    [inf_additive_layout [Object] Object])))
- (clojure.core/import 'conexp.fca.contexts.Context)
- (clojure.core/import 'conexp.fca.lattices.Lattice)
- (clojure.core/defn
-  conexp-clj-get_resource
-  ([res] (conexp.base/get-resource res)))
- nil
- (clojure.core/defn
-  conexp-clj-hash_combine_hash
-  ([^"[Ljava.lang.Object;" args] (conexp.base/hash-combine-hash args)))
- (clojure.core/defn
-  conexp-clj-disjoint_union
-  ([^"[Ljava.lang.Object;" sets] (conexp.base/disjoint-union sets)))
- (clojure.core/defn
-  conexp-clj-conexp_version
-  ([] (conexp.base/conexp-version)))
- (clojure.core/defn conexp-clj-gcd ([a b] (conexp.base/gcd a b)))
- (clojure.core/defn
-  conexp-clj-next_closed_set_in_family
-  ([predicate base clop A]
-   (conexp.base/next-closed-set-in-family predicate base clop A)))
- (clojure.core/defn conexp-clj-quit ([] (conexp.base/quit)))
- (clojure.core/defn
-  conexp-clj-lectic__lt__i
-  ([base i A B] (conexp.base/lectic-<_i base i A B)))
- (clojure.core/defn
-  conexp-clj-graph_of_function_p
-  ([relation source target]
-   (conexp.base/graph-of-function? relation source target)))
- (clojure.core/defn
-  conexp-clj-minimal_generating_subsets
-  ([clop A] (conexp.base/minimal-generating-subsets clop A)))
- nil
- (clojure.core/defn
-  conexp-clj-union
-  ([] (conexp.base/union))
-  ([s1] (conexp.base/union s1))
-  ([s1 s2] (conexp.base/union s1 s2))
-  ([s1 s2 ^"[Ljava.lang.Object;" sets] (conexp.base/union s1 s2 sets)))
- (clojure.core/defn
-  conexp-clj-topological_sort
-  ([comp coll] (conexp.base/topological-sort comp coll)))
- (clojure.core/defn
-  conexp-clj-cross_product
-  ([^"[Ljava.lang.Object;" sets] (conexp.base/cross-product sets)))
- (clojure.core/defn
-  conexp-clj-superset_p
-  ([set1 set2] (conexp.base/superset? set1 set2)))
- (clojure.core/defn conexp-clj-floor ([n] (conexp.base/floor n)))
- (clojure.core/defn
-  conexp-clj-exact_integer_sqrt
-  ([n] (conexp.base/exact-integer-sqrt n)))
- (clojure.core/defn
-  conexp-clj-subset_p
-  ([set1 set2] (conexp.base/subset? set1 set2)))
- (clojure.core/defn
-  conexp-clj-next_closed_set
-  ([base clop A] (conexp.base/next-closed-set base clop A)))
- (clojure.core/defn
-  conexp-clj-join
-  ([xrel yrel] (conexp.base/join xrel yrel))
-  ([xrel yrel km] (conexp.base/join xrel yrel km)))
- (clojure.core/defn
-  conexp-clj-set_of_range
-  ([end] (conexp.base/set-of-range end))
-  ([start end] (conexp.base/set-of-range start end))
-  ([start end step] (conexp.base/set-of-range start end step)))
- (clojure.core/defn
-  conexp-clj-ask
-  ([prompt read ^"[Ljava.lang.Object;" preds-and-fail-messages]
-   (conexp.base/ask prompt read preds-and-fail-messages)))
- (clojure.core/defn
-  conexp-clj-first_non_nil
-  ([seq] (conexp.base/first-non-nil seq)))
- (clojure.core/defn
-  conexp-clj-lectic__lt_
-  ([base A B] (conexp.base/lectic-< base A B)))
- (clojure.core/defn
-  conexp-clj-select
-  ([pred xset] (conexp.base/select pred xset)))
- (clojure.core/defn
-  conexp-clj-illegal_state
-  ([^"[Ljava.lang.Object;" strings]
-   (conexp.base/illegal-state strings)))
- (clojure.core/defn
-  conexp-clj-ensure_length
-  ([string ^long length] (conexp.base/ensure-length string length))
-  ([string ^long length padding]
-   (conexp.base/ensure-length string length padding)))
- (clojure.core/defn conexp-clj-ceil ([n] (conexp.base/ceil n)))
- (clojure.core/defn
-  conexp-clj-sort_by_second
-  ([x y] (conexp.base/sort-by-second x y)))
- (clojure.core/defn
-  conexp-clj-integer_length
-  ([n] (conexp.base/integer-length n)))
- (clojure.core/defn
-  conexp-clj-proper_subset_p
-  ([set-1 set-2] (conexp.base/proper-subset? set-1 set-2)))
- (clojure.core/defn
-  conexp-clj-transitive_closure
-  ([pairs] (conexp.base/transitive-closure pairs)))
- (clojure.core/defn
-  conexp-clj-singleton_p
-  ([x] (conexp.base/singleton? x)))
- (clojure.core/defn
-  conexp-clj-intersection
-  ([s1] (conexp.base/intersection s1))
-  ([s1 s2] (conexp.base/intersection s1 s2))
-  ([s1 s2 ^"[Ljava.lang.Object;" sets]
-   (conexp.base/intersection s1 s2 sets)))
- (clojure.core/defn conexp-clj-expt ([a b] (conexp.base/expt a b)))
- (clojure.core/defn
-  conexp-clj-distinct_by_key
-  ([sequence key] (conexp.base/distinct-by-key sequence key)))
- (clojure.core/defn conexp-clj-tails ([sqn] (conexp.base/tails sqn)))
- (clojure.core/defn
-  conexp-clj-sort_by_first
-  ([x y] (conexp.base/sort-by-first x y)))
- (clojure.core/defn conexp-clj-inits ([sqn] (conexp.base/inits sqn)))
- (clojure.core/defn
-  conexp-clj-all_closed_sets_in_family
-  ([predicate base clop]
-   (conexp.base/all-closed-sets-in-family predicate base clop))
-  ([predicate base clop initial]
-   (conexp.base/all-closed-sets-in-family
-    predicate
-    base
-    clop
-    initial)))
- (clojure.core/defn conexp-clj-now ([] (conexp.base/now)))
- (clojure.core/defn
-  conexp-clj-index
-  ([xrel ks] (conexp.base/index xrel ks)))
- nil
- (clojure.core/defn
-  conexp-clj-clojure_type
-  ([thing] (conexp.base/clojure-type thing)))
- (clojure.core/defn conexp-clj-sqrt ([n] (conexp.base/sqrt n)))
- (clojure.core/defn
-  conexp-clj-yes_or_no_p
-  ([question] (conexp.base/yes-or-no? question)))
- (clojure.core/defn
-  conexp-clj-warn
-  ([message] (conexp.base/warn message)))
- (clojure.core/defn
-  conexp-clj-rename_keys
-  ([map kmap] (conexp.base/rename-keys map kmap)))
- (clojure.core/defn
-  conexp-clj-order_by
-  ([sequence] (conexp.base/order-by sequence)))
- (clojure.core/defn
-  conexp-clj-unsupported_operation
-  ([^"[Ljava.lang.Object;" strings]
-   (conexp.base/unsupported-operation strings)))
- nil
- (clojure.core/defn
-  conexp-clj-minimum_set_covers
-  ([base-set sets] (conexp.base/minimum-set-covers base-set sets)))
- (clojure.core/defn
-  conexp-clj-proper_superset_p
-  ([set-1 set-2] (conexp.base/proper-superset? set-1 set-2)))
- (clojure.core/defn
-  conexp-clj-has_version_p
-  ([{^int my-major :major, ^int my-minor :minor, ^int my-patch :patch}]
-   (conexp.base/has-version?
-    {^int my-major :major,
-     ^int my-minor :minor,
-     ^int my-patch :patch})))
- (clojure.core/defn
-  conexp-clj-reflexive_transitive_closure
-  ([base-set pairs]
-   (conexp.base/reflexive-transitive-closure base-set pairs)))
- (clojure.core/defn
-  conexp-clj-illegal_argument
-  ([^"[Ljava.lang.Object;" strings]
-   (conexp.base/illegal-argument strings)))
- (clojure.core/defn
-  conexp-clj-immigrate
-  ([^"[Ljava.lang.Object;" ns-names] (conexp.base/immigrate ns-names)))
- (clojure.core/defn
-  conexp-clj-map_invert
-  ([m] (conexp.base/map-invert m)))
- (clojure.core/defn
-  conexp-clj-not_yet_implemented
-  ([] (conexp.base/not-yet-implemented)))
- (clojure.core/defn
-  conexp-clj-ensure_seq
-  ([x] (conexp.base/ensure-seq x)))
- (clojure.core/defn
-  conexp-clj-rename
-  ([xrel kmap] (conexp.base/rename xrel kmap)))
- (clojure.core/defn
-  conexp-clj-minimal_hypergraph_transversals
-  ([vertices edges]
-   (conexp.base/minimal-hypergraph-transversals vertices edges)))
- (clojure.core/defn
-  conexp-clj-partial_min
-  ([<= xs] (conexp.base/partial-min <= xs)))
- (clojure.core/defn
-  conexp-clj-_lt__eq__gt_
-  ([a b] (conexp.base/<=> a b)))
- (clojure.core/defn
-  conexp-clj-to_set
-  ([thing] (conexp.base/to-set thing)))
- (clojure.core/defn conexp-clj-round ([n] (conexp.base/round n)))
- nil
- (clojure.core/defn
-  conexp-clj-partial_max
-  ([<= xs] (conexp.base/partial-max <= xs)))
- (clojure.core/defn
-  conexp-clj-improve_basic_order
-  ([base clop] (conexp.base/improve-basic-order base clop)))
- (clojure.core/defn
-  conexp-clj-reduce_f
-  ([fn initial-value coll]
-   (conexp.base/reduce! fn initial-value coll)))
- (clojure.core/defn
-  conexp-clj-project
-  ([xrel ks] (conexp.base/project xrel ks)))
- (clojure.core/defn conexp-clj-abs ([n] (conexp.base/abs n)))
- (clojure.core/defn
-  conexp-clj-all_closed_sets
-  ([base clop] (conexp.base/all-closed-sets base clop))
-  ([base clop initial]
-   (conexp.base/all-closed-sets base clop initial)))
- nil
- (clojure.core/defn
-  conexp-clj-subsets
-  ([base-set] (conexp.base/subsets base-set)))
- (clojure.core/defn
-  conexp-clj-seqable_p
-  ([x] (conexp.base/seqable? x)))
- (clojure.core/defn
-  conexp-clj-difference
-  ([s1] (conexp.base/difference s1))
-  ([s1 s2] (conexp.base/difference s1 s2))
-  ([s1 s2 ^"[Ljava.lang.Object;" sets]
-   (conexp.base/difference s1 s2 sets)))
- (clojure.core/defn
-  conexp-clj-zip
-  ([seq-1 seq-2] (conexp.base/zip seq-1 seq-2)))
- (clojure.core/defn
-  conexp-clj-split_at_last
-  ([predicate sequence]
-   (conexp.base/split-at-last predicate sequence)))
- (clojure.core/defn
-  conexp-clj-transitive_reduction
-  ([pairs] (conexp.base/transitive-reduction pairs))
-  ([base pred] (conexp.base/transitive-reduction base pred)))
- nil
- (clojure.core/defn
-  conexp-clj-parallel_closures
-  ([base clop] (conexp.base/parallel-closures base clop)))
- (clojure.core/defn
-  conexp-clj-split_at_first
-  ([predicate sequence]
-   (conexp.base/split-at-first predicate sequence)))
- (clojure.core/defn
-  conexp-clj-map_by_fn
-  ([function keys] (conexp.base/map-by-fn function keys)))
- (clojure.core/defn conexp-clj-lcm ([a b] (conexp.base/lcm a b)))
- (clojure.core/defn
-  conexp-clj-with_str_out
-  ([^"[Ljava.lang.Object;" body] (conexp.base/with-str-out body)))
- (clojure.core/defn
-  conexp-clj-null_context
-  ([base-set] (conexp.fca.contexts/null-context base-set)))
- (clojure.core/defn
-  conexp-clj-attribute_reduced_p
-  ([ctx] (conexp.fca.contexts/attribute-reduced? ctx)))
- (clojure.core/defn
-  conexp-clj-context_product
-  ([ctx-1 ctx-2] (conexp.fca.contexts/context-product ctx-1 ctx-2)))
- (clojure.core/defn
-  conexp-clj-direct_upper_concepts
-  ([ctx [A B]] (conexp.fca.contexts/direct-upper-concepts ctx [A B])))
- (clojure.core/defn
-  conexp-clj-context_xia_product
-  ([ctx-1 ctx-2]
-   (conexp.fca.contexts/context-xia-product ctx-1 ctx-2)))
- (clojure.core/defn
-  conexp-clj-context_intersection
-  ([ctx1 ctx2] (conexp.fca.contexts/context-intersection ctx1 ctx2)))
- (clojure.core/defn
-  conexp-clj-rand_context
-  ([base-set fill-rate]
-   (conexp.fca.contexts/rand-context base-set fill-rate))
-  ([objects attributes fill-rate]
-   (conexp.fca.contexts/rand-context objects attributes fill-rate)))
- (clojure.core/defn
-  conexp-clj-attributes
-  ([ctx] (conexp.fca.contexts/attributes ctx)))
- (clojure.core/defn
-  conexp-clj-attribute_clarified_p
-  ([ctx] (conexp.fca.contexts/attribute-clarified? ctx)))
- (clojure.core/defn
-  conexp-clj-make_context_from_matrix
-  ([G M bits] (conexp.fca.contexts/make-context-from-matrix G M bits)))
- (clojure.core/defn
-  conexp-clj-context_semiproduct
-  ([ctx-1 ctx-2]
-   (conexp.fca.contexts/context-semiproduct ctx-1 ctx-2)))
- (clojure.core/defn
-  conexp-clj-invert_context
-  ([ctx] (conexp.fca.contexts/invert-context ctx)))
- (clojure.core/defn
-  conexp-clj-context_sum
-  ([ctx-1 ctx-2] (conexp.fca.contexts/context-sum ctx-1 ctx-2)))
- (clojure.core/defn
-  conexp-clj-diag_context
-  ([base-set] (conexp.fca.contexts/diag-context base-set)))
- (clojure.core/defn
-  conexp-clj-context_apposition
-  ([ctx-1 ctx-2] (conexp.fca.contexts/context-apposition ctx-1 ctx-2)))
- (clojure.core/defn
-  conexp-clj-context_p
-  ([thing] (conexp.fca.contexts/context? thing)))
- (clojure.core/defn
-  conexp-clj-object_reduced_p
-  ([ctx] (conexp.fca.contexts/object-reduced? ctx)))
- (clojure.core/defn
-  conexp-clj-intents
-  ([ctx] (conexp.fca.contexts/intents ctx))
-  ([ctx pred] (conexp.fca.contexts/intents ctx pred)))
- (clojure.core/defn
-  conexp-clj-adiag_context
-  ([base-set] (conexp.fca.contexts/adiag-context base-set)))
- (clojure.core/defn
-  conexp-clj-adprime
-  ([ctx set-of-attributes]
-   (conexp.fca.contexts/adprime ctx set-of-attributes)))
- (clojure.core/defn
-  conexp-clj-concept_p
-  ([ctx [set-of-obj set-of-att]]
-   (conexp.fca.contexts/concept? ctx [set-of-obj set-of-att])))
- (clojure.core/defn
-  conexp-clj-odprime
-  ([ctx set-of-objects]
-   (conexp.fca.contexts/odprime ctx set-of-objects)))
- (clojure.core/defn
-  conexp-clj-make_context
-  ([objects attributes incidence]
-   (conexp.fca.contexts/make-context objects attributes incidence)))
- (clojure.core/defn
-  conexp-clj-dual_context
-  ([ctx] (conexp.fca.contexts/dual-context ctx)))
- (clojure.core/defn
-  conexp-clj-context_attribute_closure
-  ([ctx set-of-attributes]
-   (conexp.fca.contexts/context-attribute-closure
-    ctx
-    set-of-attributes)))
- (clojure.core/defn
-  conexp-clj-objects
-  ([ctx] (conexp.fca.contexts/objects ctx)))
- (clojure.core/defn
-  conexp-clj-rename_objects
-  ([ctx old-to-new]
-   (conexp.fca.contexts/rename-objects ctx old-to-new)))
- (clojure.core/defn
-  conexp-clj-object_derivation
-  ([ctx objects] (conexp.fca.contexts/object-derivation ctx objects)))
- (clojure.core/defn
-  conexp-clj-context_object_closure
-  ([ctx set-of-objects]
-   (conexp.fca.contexts/context-object-closure ctx set-of-objects)))
- (clojure.core/defn
-  conexp-clj-incidence
-  ([ctx] (conexp.fca.contexts/incidence ctx)))
- (clojure.core/defn
-  conexp-clj-context_reduced_p
-  ([ctx] (conexp.fca.contexts/context-reduced? ctx)))
- (clojure.core/defn
-  conexp-clj-object_concept
-  ([ctx g] (conexp.fca.contexts/object-concept ctx g)))
- (clojure.core/defn
-  conexp-clj-down_arrows
-  ([ctx] (conexp.fca.contexts/down-arrows ctx)))
- (clojure.core/defn
-  conexp-clj-__gt_Formal_Context
-  ([objects attributes incidence]
-   (conexp.fca.contexts/->Formal-Context
-    objects
-    attributes
-    incidence)))
- (clojure.core/defn
-  conexp-clj-object_clarified_p
-  ([ctx] (conexp.fca.contexts/object-clarified? ctx)))
- (clojure.core/defn
-  conexp-clj-oprime
-  ([ctx objects] (conexp.fca.contexts/oprime ctx objects)))
- (clojure.core/defn
-  conexp-clj-incident_p
-  ([ctx g m] (conexp.fca.contexts/incident? ctx g m)))
- (clojure.core/defn
-  conexp-clj-one_context
-  ([base-set] (conexp.fca.contexts/one-context base-set)))
- (clojure.core/defn
-  conexp-clj-reduce_context
-  ([ctx] (conexp.fca.contexts/reduce-context ctx)))
- (clojure.core/defn
-  conexp-clj-subcontext_p
-  ([ctx-1 ctx-2] (conexp.fca.contexts/subcontext? ctx-1 ctx-2)))
- (clojure.core/defn
-  conexp-clj-restrict_concept
-  ([concept subcontext]
-   (conexp.fca.contexts/restrict-concept concept subcontext)))
- (clojure.core/defn
-  conexp-clj-context_disjoint_union
-  ([ctx-1 ctx-2]
-   (conexp.fca.contexts/context-disjoint-union ctx-1 ctx-2)))
- (clojure.core/defn
-  conexp-clj-context_clarified_p
-  ([ctx] (conexp.fca.contexts/context-clarified? ctx)))
- (clojure.core/defn
-  conexp-clj-random_contexts
-  ([number upper-limit]
-   (conexp.fca.contexts/random-contexts number upper-limit)))
- (clojure.core/defn
-  conexp-clj-context_size
-  ([ctx] (conexp.fca.contexts/context-size ctx)))
- (clojure.core/defn
-  conexp-clj-extents
-  ([ctx] (conexp.fca.contexts/extents ctx))
-  ([ctx pred] (conexp.fca.contexts/extents ctx pred)))
- (clojure.core/defn
-  conexp-clj-up_down_arrows
-  ([ctx] (conexp.fca.contexts/up-down-arrows ctx)))
- (clojure.core/defn
-  conexp-clj-context_subposition
-  ([ctx-1 ctx-2]
-   (conexp.fca.contexts/context-subposition ctx-1 ctx-2)))
- (clojure.core/defn
-  conexp-clj-clarify_context
-  ([ctx] (conexp.fca.contexts/clarify-context ctx)))
- (clojure.core/defn
-  conexp-clj-clarify_objects
-  ([ctx] (conexp.fca.contexts/clarify-objects ctx)))
- (clojure.core/defn
-  conexp-clj-context_transitive_closure
-  ([ctx] (conexp.fca.contexts/context-transitive-closure ctx)))
- nil
- (clojure.core/defn
-  conexp-clj-make_context_nc
-  ([objects attributes incidence]
-   (conexp.fca.contexts/make-context-nc objects attributes incidence)))
- (clojure.core/defn
-  conexp-clj-aprime
-  ([ctx attributes] (conexp.fca.contexts/aprime ctx attributes)))
- (clojure.core/defn
-  conexp-clj-context_to_string
-  ([ctx] (conexp.fca.contexts/context-to-string ctx))
-  ([ctx order-on-objects order-on-attributes]
-   (conexp.fca.contexts/context-to-string
-    ctx
-    order-on-objects
-    order-on-attributes)))
- (clojure.core/defn
-  conexp-clj-reduce_objects
-  ([ctx] (conexp.fca.contexts/reduce-objects ctx)))
- (clojure.core/defn
-  conexp-clj-incidence_relation
-  ([ctx] (conexp.fca.contexts/incidence-relation ctx)))
- (clojure.core/defn
-  conexp-clj-concepts
-  ([ctx] (conexp.fca.contexts/concepts ctx)))
- (clojure.core/defn
-  conexp-clj-print_context
-  ([ctx ^"[Ljava.lang.Object;" args]
-   (conexp.fca.contexts/print-context ctx args)))
- (clojure.core/defn
-  conexp-clj-attribute_concept
-  ([ctx m] (conexp.fca.contexts/attribute-concept ctx m)))
- (clojure.core/defn
-  conexp-clj-context_union
-  ([ctx-1 ctx-2] (conexp.fca.contexts/context-union ctx-1 ctx-2)))
- (clojure.core/defn
-  conexp-clj-rename_attributes
-  ([ctx old-to-new]
-   (conexp.fca.contexts/rename-attributes ctx old-to-new)))
- (clojure.core/defn
-  conexp-clj-up_arrows
-  ([ctx] (conexp.fca.contexts/up-arrows ctx)))
- (clojure.core/defn
-  conexp-clj-clarify_attributes
-  ([ctx] (conexp.fca.contexts/clarify-attributes ctx)))
- (clojure.core/defn
-  conexp-clj-direct_lower_concepts
-  ([ctx [A B]] (conexp.fca.contexts/direct-lower-concepts ctx [A B])))
- (clojure.core/defn
-  conexp-clj-context_composition
-  ([ctx-1 ctx-2]
-   (conexp.fca.contexts/context-composition ctx-1 ctx-2)))
- (clojure.core/defn
-  conexp-clj-reduce_attributes
-  ([ctx] (conexp.fca.contexts/reduce-attributes ctx)))
- (clojure.core/defn
-  conexp-clj-random_context
-  ([base-set fill-rate]
-   (conexp.fca.contexts/random-context base-set fill-rate))
-  ([objects attributes fill-rate]
-   (conexp.fca.contexts/random-context objects attributes fill-rate)))
- (clojure.core/defn
-  conexp-clj-attribute_derivation
-  ([ctx attributes]
-   (conexp.fca.contexts/attribute-derivation ctx attributes)))
- (clojure.core/defn
-  conexp-clj-__gt_Many_Valued_Context
-  ([objects attributes incidence]
-   (conexp.fca.many-valued-contexts/->Many-Valued-Context
-    objects
-    attributes
-    incidence)))
- (clojure.core/defn
-  conexp-clj-dichotomic_scale
-  ([values] (conexp.fca.many-valued-contexts/dichotomic-scale values)))
- (clojure.core/defn
-  conexp-clj-make_mv_context_nc
-  ([objects attributes incidence]
-   (conexp.fca.many-valued-contexts/make-mv-context-nc
-    objects
-    attributes
-    incidence)))
- (clojure.core/defn
-  conexp-clj-make_mv_context
-  ([objects attributes incidence]
-   (conexp.fca.many-valued-contexts/make-mv-context
-    objects
-    attributes
-    incidence)))
- (clojure.core/defn
-  conexp-clj-interordinal_scale
-  ([values]
-   (conexp.fca.many-valued-contexts/interordinal-scale values))
-  ([values <= >=]
-   (conexp.fca.many-valued-contexts/interordinal-scale values <= >=))
-  ([values others <= >=]
-   (conexp.fca.many-valued-contexts/interordinal-scale
-    values
-    others
-    <=
-    >=)))
- (clojure.core/defn
-  conexp-clj-values_of_object
-  ([mv-ctx g]
-   (conexp.fca.many-valued-contexts/values-of-object mv-ctx g)))
- (clojure.core/defn
-  conexp-clj-values_of_attribute
-  ([mv-ctx m]
-   (conexp.fca.many-valued-contexts/values-of-attribute mv-ctx m)))
- (clojure.core/defn
-  conexp-clj-nominal_scale
-  ([values] (conexp.fca.many-valued-contexts/nominal-scale values))
-  ([values others]
-   (conexp.fca.many-valued-contexts/nominal-scale values others)))
- (clojure.core/defn
-  conexp-clj-ordinal_scale
-  ([values] (conexp.fca.many-valued-contexts/ordinal-scale values))
-  ([values <=]
-   (conexp.fca.many-valued-contexts/ordinal-scale values <=))
-  ([values others <=]
-   (conexp.fca.many-valued-contexts/ordinal-scale values others <=)))
- (clojure.core/defn
-  conexp-clj-scale_mv_context
-  ([mv-ctx scales]
-   (conexp.fca.many-valued-contexts/scale-mv-context mv-ctx scales))
-  ([mv-ctx scales default]
-   (conexp.fca.many-valued-contexts/scale-mv-context
-    mv-ctx
-    scales
-    default)))
- (clojure.core/defn
-  conexp-clj-biordinal_scale
-  ([values n]
-   (conexp.fca.many-valued-contexts/biordinal-scale values n))
-  ([values others n <= >=]
-   (conexp.fca.many-valued-contexts/biordinal-scale
-    values
-    others
-    n
-    <=
-    >=)))
- (clojure.core/defn
-  conexp-clj-interval_scale
-  ([values] (conexp.fca.many-valued-contexts/interval-scale values))
-  ([values others]
-   (conexp.fca.many-valued-contexts/interval-scale values others))
-  ([values others < >=]
-   (conexp.fca.many-valued-contexts/interval-scale
-    values
-    others
-    <
-    >=)))
- (clojure.core/defn
-  conexp-clj-mv_context_to_string
-  ([mv-ctx]
-   (conexp.fca.many-valued-contexts/mv-context-to-string mv-ctx))
-  ([mv-ctx order-on-objects order-on-attributes]
-   (conexp.fca.many-valued-contexts/mv-context-to-string
-    mv-ctx
-    order-on-objects
-    order-on-attributes)))
- (clojure.core/defn
-  conexp-clj-make_mv_context_from_matrix
-  ([objects attributes values]
-   (conexp.fca.many-valued-contexts/make-mv-context-from-matrix
-    objects
-    attributes
-    values)))
- (clojure.core/defn
-  conexp-clj-confidence
-  ([implication context]
-   (conexp.fca.implications/confidence implication context)))
- (clojure.core/defn
-  conexp-clj-canonical_base_from_base
-  ([implications]
-   (conexp.fca.implications/canonical-base-from-base implications)))
- (clojure.core/defn
-  conexp-clj-frequent_closed_itemsets
-  ([context minsupp]
-   (conexp.fca.implications/frequent-closed-itemsets context minsupp)))
- (clojure.core/defn
-  conexp-clj-holds_p
-  ([impl ctx] (conexp.fca.implications/holds? impl ctx)))
- (clojure.core/defn
-  conexp-clj-pseudo_intents
-  ([ctx] (conexp.fca.implications/pseudo-intents ctx)))
- (clojure.core/defn
-  conexp-clj-parallel_canonical_base_from_clop
-  ([clop base]
-   (conexp.fca.implications/parallel-canonical-base-from-clop
-    clop
-    base))
-  ([clop base background-knowledge]
-   (conexp.fca.implications/parallel-canonical-base-from-clop
-    clop
-    base
-    background-knowledge)))
- (clojure.core/defn
-  conexp-clj-ryssel_base
-  ([ctx] (conexp.fca.implications/ryssel-base ctx)))
- (clojure.core/defn
-  conexp-clj-premise
-  ([thing] (conexp.fca.implications/premise thing)))
- (clojure.core/defn
-  conexp-clj-proper_premises
-  ([ctx] (conexp.fca.implications/proper-premises ctx)))
- (clojure.core/defn
-  conexp-clj-respects_p
-  ([set impl] (conexp.fca.implications/respects? set impl)))
- (clojure.core/defn
-  conexp-clj-proper_premises_for_attribute
-  ([ctx m]
-   (conexp.fca.implications/proper-premises-for-attribute ctx m)))
- (clojure.core/defn
-  conexp-clj-clop_by_implications
-  ([implications]
-   (conexp.fca.implications/clop-by-implications implications)))
- (clojure.core/defn
-  conexp-clj-stem_base
-  ([ctx] (conexp.fca.implications/stem-base ctx))
-  ([ctx background-knowledge]
-   (conexp.fca.implications/stem-base ctx background-knowledge))
-  ([ctx background-knowledge predicate]
-   (conexp.fca.implications/stem-base
-    ctx
-    background-knowledge
-    predicate)))
- (clojure.core/defn
-  conexp-clj-conclusion
-  ([thing] (conexp.fca.implications/conclusion thing)))
- (clojure.core/defn
-  conexp-clj-pseudo_clop_by_implications
-  ([implications]
-   (conexp.fca.implications/pseudo-clop-by-implications implications)))
- (clojure.core/defn
-  conexp-clj-luxenburger_base
-  ([context minsupp-or-predicate minconf]
-   (conexp.fca.implications/luxenburger-base
-    context
-    minsupp-or-predicate
-    minconf)))
- (clojure.core/defn
-  conexp-clj-parallel_canonical_base
-  ([ctx] (conexp.fca.implications/parallel-canonical-base ctx))
-  ([ctx background-knowledge]
-   (conexp.fca.implications/parallel-canonical-base
-    ctx
-    background-knowledge)))
- (clojure.core/defn
-  conexp-clj-support
-  ([thing ctx] (conexp.fca.implications/support thing ctx)))
- (clojure.core/defn
-  conexp-clj-proper_conclusion
-  ([ctx A] (conexp.fca.implications/proper-conclusion ctx A)))
- (clojure.core/defn
-  conexp-clj-equivalent_implications_p
-  ([impls-1 impls-2]
-   (conexp.fca.implications/equivalent-implications? impls-1 impls-2)))
- (clojure.core/defn
-  conexp-clj-canonical_base
-  ([ctx] (conexp.fca.implications/canonical-base ctx))
-  ([ctx background-knowledge]
-   (conexp.fca.implications/canonical-base ctx background-knowledge))
-  ([ctx background-knowledge predicate]
-   (conexp.fca.implications/canonical-base
-    ctx
-    background-knowledge
-    predicate)))
- (clojure.core/defn
-  conexp-clj-intersect_implicational_theories
-  ([base-set ^"[Ljava.lang.Object;" implication-sets]
-   (conexp.fca.implications/intersect-implicational-theories
-    base-set
-    implication-sets)))
- (clojure.core/defn
-  conexp-clj-complete_implication_set_p
-  ([ctx impl-set]
-   (conexp.fca.implications/complete-implication-set? ctx impl-set)))
- (clojure.core/defn
-  conexp-clj-close_under_implications
-  ([implications input-set]
-   (conexp.fca.implications/close-under-implications
-    implications
-    input-set)))
- (clojure.core/defn
-  conexp-clj-__gt_Implication
-  ([premise conclusion]
-   (conexp.fca.implications/->Implication premise conclusion)))
- (clojure.core/defn
-  conexp-clj-sound_implication_set_p
-  ([ctx impl-set]
-   (conexp.fca.implications/sound-implication-set? ctx impl-set)))
- (clojure.core/defn
-  conexp-clj-make_implication
-  ([premise conclusion]
-   (conexp.fca.implications/make-implication premise conclusion)))
- (clojure.core/defn
-  conexp-clj-follows_p
-  ([implication implications]
-   (conexp.fca.implications/follows? implication implications)))
- (clojure.core/defn
-  conexp-clj-minimal_implication_set_p
-  ([impl-set]
-   (conexp.fca.implications/minimal-implication-set? impl-set)))
- (clojure.core/defn
-  conexp-clj-proper_premise_implications
-  ([ctx] (conexp.fca.implications/proper-premise-implications ctx)))
- (clojure.core/defn
-  conexp-clj-luxenburger_basis
-  ([context minsupp-or-predicate minconf]
-   (conexp.fca.implications/luxenburger-basis
-    context
-    minsupp-or-predicate
-    minconf)))
- (clojure.core/defn
-  conexp-clj-pseudo_close_under_implications
-  ([implications set]
-   (conexp.fca.implications/pseudo-close-under-implications
-    implications
-    set)))
- (clojure.core/defn
-  conexp-clj-irredundant_subset
-  ([impls] (conexp.fca.implications/irredundant-subset impls)))
- (clojure.core/defn
-  conexp-clj-canonical_base_from_clop
-  ([clop base]
-   (conexp.fca.implications/canonical-base-from-clop clop base))
-  ([clop base background-knowledge]
-   (conexp.fca.implications/canonical-base-from-clop
-    clop
-    base
-    background-knowledge))
-  ([clop base background-knowledge predicate]
-   (conexp.fca.implications/canonical-base-from-clop
-    clop
-    base
-    background-knowledge
-    predicate)))
- (clojure.core/defn
-  conexp-clj-proper_premise_p
-  ([ctx A] (conexp.fca.implications/proper-premise? ctx A)))
- (clojure.core/defn
-  conexp-clj-implication_p
-  ([thing] (conexp.fca.implications/implication? thing)))
- (clojure.core/defn
-  conexp-clj-stem_base_from_base
-  ([implications]
-   (conexp.fca.implications/stem-base-from-base implications)))
- (clojure.core/defn
-  conexp-clj-follows_semantically_p
-  ([implication implications]
-   (conexp.fca.implications/follows-semantically?
-    implication
-    implications)))
- (clojure.core/defn
-  conexp-clj-default_handler_for_incomplete_counterexamples
-  ([possible-ctx certain-ctx known impl]
-   (conexp.fca.exploration/default-handler-for-incomplete-counterexamples
-    possible-ctx
-    certain-ctx
-    known
-    impl)))
- (clojure.core/defn
-  conexp-clj-explore_attributes
-  ([{:keys
-     [possible-context
-      certain-context
-      context
-      background-knowledge
-      handler
-      incomplete-counterexamples]}]
-   (conexp.fca.exploration/explore-attributes
-    {:keys
-     [possible-context
-      certain-context
-      context
-      background-knowledge
-      handler
-      incomplete-counterexamples]})))
- (clojure.core/defn
-  conexp-clj-default_handler_for_complete_counterexamples
-  ([ctx known impl]
-   (conexp.fca.exploration/default-handler-for-complete-counterexamples
-    ctx
-    known
-    impl)))
- (clojure.core/defn
-  conexp-clj-make_handler
-  ([{:keys [automorphisms incomplete-counterexamples?],
-     :or {automorphisms #{}, incomplete-counterexamples? false}}]
-   (conexp.fca.exploration/make-handler
-    {:keys [automorphisms incomplete-counterexamples?],
-     :or {automorphisms #{}, incomplete-counterexamples? false}})))
- (clojure.core/defn
-  conexp-clj-standard_context
-  ([lat] (conexp.fca.lattices/standard-context lat)))
- (clojure.core/defn
-  conexp-clj-dual_lattice
-  ([lat] (conexp.fca.lattices/dual-lattice lat)))
- (clojure.core/defn
-  conexp-clj-lattice_one
-  ([lat] (conexp.fca.lattices/lattice-one lat)))
- (clojure.core/defn
-  conexp-clj-has_lattice_order_p
-  ([lat] (conexp.fca.lattices/has-lattice-order? lat)))
- (clojure.core/defn
-  conexp-clj-base_set
-  ([^Lattice lattice] (conexp.fca.lattices/base-set lattice)))
- (clojure.core/defn
-  conexp-clj-directly_neighboured_p
-  ([lat x y] (conexp.fca.lattices/directly-neighboured? lat x y)))
- (clojure.core/defn
-  conexp-clj-sup
-  ([^Lattice lattice] (conexp.fca.lattices/sup lattice)))
- (clojure.core/defn
-  conexp-clj-concept_lattice
-  ([ctx] (conexp.fca.lattices/concept-lattice ctx)))
- (clojure.core/defn
-  conexp-clj-modular_p
-  ([lat] (conexp.fca.lattices/modular? lat)))
- (clojure.core/defn
-  conexp-clj-lattice_zero
-  ([lat] (conexp.fca.lattices/lattice-zero lat)))
- (clojure.core/defn
-  conexp-clj-make_lattice_nc
-  ([base-set order-function]
-   (conexp.fca.lattices/make-lattice-nc base-set order-function))
-  ([base-set inf sup]
-   (conexp.fca.lattices/make-lattice-nc base-set inf sup))
-  ([base-set order-function inf sup]
-   (conexp.fca.lattices/make-lattice-nc
-    base-set
-    order-function
-    inf
-    sup)))
- (clojure.core/defn
-  conexp-clj-lattice_sup_irreducibles
-  ([lat] (conexp.fca.lattices/lattice-sup-irreducibles lat)))
- (clojure.core/defn
-  conexp-clj-distributive_p
-  ([lat] (conexp.fca.lattices/distributive? lat)))
- (clojure.core/defn
-  conexp-clj-lattice_doubly_irreducibles
-  ([lat] (conexp.fca.lattices/lattice-doubly-irreducibles lat)))
- (clojure.core/defn
-  conexp-clj-lattice_coatoms
-  ([lat] (conexp.fca.lattices/lattice-coatoms lat)))
- (clojure.core/defn
-  conexp-clj-lattice_atoms
-  ([lat] (conexp.fca.lattices/lattice-atoms lat)))
- (clojure.core/defn
-  conexp-clj-__gt_Lattice
-  ([base-set order-function inf sup]
-   (conexp.fca.lattices/->Lattice base-set order-function inf sup)))
- (clojure.core/defn
-  conexp-clj-make_lattice
-  ([^"[Ljava.lang.Object;" args]
-   (conexp.fca.lattices/make-lattice args)))
- (clojure.core/defn
-  conexp-clj-inf
-  ([^Lattice lattice] (conexp.fca.lattices/inf lattice)))
- (clojure.core/defn
-  conexp-clj-lattice_lower_neighbours
-  ([lat y] (conexp.fca.lattices/lattice-lower-neighbours lat y)))
- (clojure.core/defn
-  conexp-clj-lattice_upper_neighbours
-  ([lat x] (conexp.fca.lattices/lattice-upper-neighbours lat x)))
- (clojure.core/defn
-  conexp-clj-lattice_inf_irreducibles
-  ([lat] (conexp.fca.lattices/lattice-inf-irreducibles lat)))
- (clojure.core/defn
-  conexp-clj-order
-  ([^Lattice lattice] (conexp.fca.lattices/order lattice)))
- (clojure.core/defn
-  conexp-clj-bond_p
-  ([ctx-1 ctx-2 ctx] (conexp.fca.misc/bond? ctx-1 ctx-2 ctx)))
- (clojure.core/defn
-  conexp-clj-compatible_subcontexts
-  ([ctx] (conexp.fca.misc/compatible-subcontexts ctx)))
- (clojure.core/defn
-  conexp-clj-compatible_subcontext_p
-  ([ctx-1 ctx-2] (conexp.fca.misc/compatible-subcontext? ctx-1 ctx-2)))
- (clojure.core/defn
-  conexp-clj-all_bonds
-  ([ctx-1 ctx-2] (conexp.fca.misc/all-bonds ctx-1 ctx-2)))
- (clojure.core/defn
-  conexp-clj-context_from_clop
-  ([base-set clop] (conexp.fca.misc/context-from-clop base-set clop)))
- (clojure.core/defn
-  conexp-clj-all_bonds_by_shared_intents
-  ([ctx-1 ctx-2]
-   (conexp.fca.misc/all-bonds-by-shared-intents ctx-1 ctx-2)))
- (clojure.core/defn
-  conexp-clj-implication_context
-  ([n] (conexp.fca.misc/implication-context n)))
- (clojure.core/defn
-  conexp-clj-smallest_bond
-  ([ctx-1 ctx-2 rel] (conexp.fca.misc/smallest-bond ctx-1 ctx-2 rel)))
- (clojure.core/defn
-  conexp-clj-all_shared_intents
-  ([ctx-1 ctx-2] (conexp.fca.misc/all-shared-intents ctx-1 ctx-2)))
- nil
- (clojure.core/defn
-  conexp-clj-latex
-  ([this] (conexp.io.latex/latex this))
-  ([this choice] (conexp.io.latex/latex this choice)))
- (clojure.core/defn
-  conexp-clj-write_context
-  ([format context file]
-   (conexp.io.contexts/write-context format context file))
-  ([context file] (conexp.io.contexts/write-context context file)))
- (clojure.core/defn
-  conexp-clj-get_default_context_format
-  ([] (conexp.io.contexts/get-default-context-format)))
- (clojure.core/defn
-  conexp-clj-list_context_output_formats
-  ([] (conexp.io.contexts/list-context-output-formats)))
- (clojure.core/defn
-  conexp-clj-list_context_input_formats
-  ([] (conexp.io.contexts/list-context-input-formats)))
- (clojure.core/defn
-  conexp-clj-list_context_formats
-  ([] (conexp.io.contexts/list-context-formats)))
- (clojure.core/defn
-  conexp-clj-read_context
-  ([file] (conexp.io.contexts/read-context file))
-  ([file explicit-format]
-   (conexp.io.contexts/read-context file explicit-format)))
- (clojure.core/defn
-  conexp-clj-set_default_context_format_f
-  ([format__4140__auto__]
-   (conexp.io.contexts/set-default-context-format!
-    format__4140__auto__)))
- (clojure.core/defn
-  conexp-clj-list_lattice_output_formats
-  ([] (conexp.io.lattices/list-lattice-output-formats)))
- (clojure.core/defn
-  conexp-clj-list_lattice_input_formats
-  ([] (conexp.io.lattices/list-lattice-input-formats)))
- (clojure.core/defn
-  conexp-clj-get_default_lattice_format
-  ([] (conexp.io.lattices/get-default-lattice-format)))
- (clojure.core/defn
-  conexp-clj-set_default_lattice_format_f
-  ([format__4140__auto__]
-   (conexp.io.lattices/set-default-lattice-format!
-    format__4140__auto__)))
- (clojure.core/defn
-  conexp-clj-list_lattice_formats
-  ([] (conexp.io.lattices/list-lattice-formats)))
- (clojure.core/defn
-  conexp-clj-read_lattice
-  ([file] (conexp.io.lattices/read-lattice file))
-  ([file explicit-format]
-   (conexp.io.lattices/read-lattice file explicit-format)))
- (clojure.core/defn
-  conexp-clj-write_lattice
-  ([format lattice file]
-   (conexp.io.lattices/write-lattice format lattice file))
-  ([lattice file] (conexp.io.lattices/write-lattice lattice file)))
- (clojure.core/defn
-  conexp-clj-list_layout_output_formats
-  ([] (conexp.io.layouts/list-layout-output-formats)))
- (clojure.core/defn
-  conexp-clj-read_layout
-  ([file] (conexp.io.layouts/read-layout file))
-  ([file explicit-format]
-   (conexp.io.layouts/read-layout file explicit-format)))
- (clojure.core/defn
-  conexp-clj-set_default_layout_format_f
-  ([format__4140__auto__]
-   (conexp.io.layouts/set-default-layout-format!
-    format__4140__auto__)))
- (clojure.core/defn
-  conexp-clj-get_default_layout_format
-  ([] (conexp.io.layouts/get-default-layout-format)))
- (clojure.core/defn
-  conexp-clj-list_layout_formats
-  ([] (conexp.io.layouts/list-layout-formats)))
- (clojure.core/defn
-  conexp-clj-list_layout_input_formats
-  ([] (conexp.io.layouts/list-layout-input-formats)))
- (clojure.core/defn
-  conexp-clj-write_layout
-  ([format layout file]
-   (conexp.io.layouts/write-layout format layout file))
-  ([layout file] (conexp.io.layouts/write-layout layout file)))
- (clojure.core/defn
-  conexp-clj-list_mv_context_output_formats
-  ([] (conexp.io.many-valued-contexts/list-mv-context-output-formats)))
- (clojure.core/defn
-  conexp-clj-list_mv_context_formats
-  ([] (conexp.io.many-valued-contexts/list-mv-context-formats)))
- (clojure.core/defn
-  conexp-clj-get_default_mv_context_format
-  ([] (conexp.io.many-valued-contexts/get-default-mv-context-format)))
- (clojure.core/defn
-  conexp-clj-list_mv_context_input_formats
-  ([] (conexp.io.many-valued-contexts/list-mv-context-input-formats)))
- (clojure.core/defn
-  conexp-clj-write_mv_context
-  ([format mv-context file]
-   (conexp.io.many-valued-contexts/write-mv-context
-    format
-    mv-context
-    file))
-  ([mv-context file]
-   (conexp.io.many-valued-contexts/write-mv-context mv-context file)))
- (clojure.core/defn
-  conexp-clj-set_default_mv_context_format_f
-  ([format__4140__auto__]
-   (conexp.io.many-valued-contexts/set-default-mv-context-format!
-    format__4140__auto__)))
- (clojure.core/defn
-  conexp-clj-read_mv_context
-  ([file] (conexp.io.many-valued-contexts/read-mv-context file))
-  ([file explicit-format]
-   (conexp.io.many-valued-contexts/read-mv-context
-    file
-    explicit-format)))
- (clojure.core/defn
-  conexp-clj-write_many_valued_context
-  ([format mv-context file]
-   (conexp.io.many-valued-contexts/write-many-valued-context
-    format
-    mv-context
-    file))
-  ([mv-context file]
-   (conexp.io.many-valued-contexts/write-many-valued-context
-    mv-context
-    file)))
- (clojure.core/defn
-  conexp-clj-read_many_valued_context
-  ([file]
-   (conexp.io.many-valued-contexts/read-many-valued-context file))
-  ([file explicit-format]
-   (conexp.io.many-valued-contexts/read-many-valued-context
-    file
-    explicit-format)))
- (clojure.core/defn
-  conexp-clj-inf_additive_layout
-  ([lattice] (conexp.layouts/inf-additive-layout lattice)))
- nil)


fix compiler error

fix compiler error

--- cloc-web/src/cloc_web/core.clj
+++ cloc-web/src/cloc_web/core.clj
@@ -7,7 +7,7 @@
             [compojure.handler :as handler]
             [cloc-web.query-cloc :refer [get-svg-badge]]
             [cloc-web.users :refer [register update-display-lang list-registered-repos]]
-            [cloc-web.auth :refer [auth auth-callback wrap-token wrap-user gen-session]])
+            [cloc-web.auth :refer [auth auth-callback wrap-token wrap-user]])
   (:gen-class))

 (defroutes app


don't pick up nil

don't pick up nil

--- clojure/src/dnd/character.cljs
+++ clojure/src/dnd/character.cljs
@@ -59,13 +59,14 @@
     level))

 (defn get-item! [level character]
-  (let [{:keys [x y]} @character
+  (let [{:keys [x y inventory]} @character
         {old-inhabitants :inhabitants} (get-in @level [x y])
         gotten-inhabitant (first (remove is-character old-inhabitants))

-        inventory (:inventory @character)
-        new-inventory (conj inventory gotten-inhabitant)
-        updated-character (swap! character assoc :inventory new-inventory)
+
+        updated-character (when-not (nil? gotten-inhabitant)
+                            (swap! character assoc :inventory
+                                   (conj inventory gotten-inhabitant)))

         matcher #(= gotten-inhabitant %)
         remove-inhabitant #(assoc % :inhabitants (remove matcher old-inhabitants))


(maint) Fix regression in wrap-proxy with invalid schema

--- src/puppetlabs/ring_middleware/core.clj
+++ src/puppetlabs/ring_middleware/core.clj
@@ -119,7 +119,7 @@
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;;;; Middleware

-(schema/defn wrap-request-logging :- IFn
+(schema/defn ^:always-validate wrap-request-logging :- IFn
   "A ring middleware that logs the request."
   [handler :- IFn]
   (fn [{:keys [request-method uri] :as req}]
@@ -127,7 +127,7 @@
     (log/trace (str "Full request:\n" (ks/pprint-to-string (sanitize-client-cert req))))
     (handler req)))

-(schema/defn wrap-response-logging :- IFn
+(schema/defn ^:always-validate wrap-response-logging :- IFn
   "A ring middleware that logs the response."
   [handler :- IFn]
   (fn [req]
@@ -135,11 +135,11 @@
       (log/trace "Computed response:" resp)
       resp)))

-(schema/defn wrap-proxy :- IFn
+(schema/defn ^:always-validate wrap-proxy :- IFn
   "Proxies requests to proxied-path, a local URI, to the remote URI at
   remote-uri-base, also a string."
   [handler :- IFn
-   proxied-path :- (schema/enum Pattern schema/Str)
+   proxied-path :- (schema/either Pattern schema/Str)
    remote-uri-base :- schema/Str
    & [http-opts]]
   (let [proxied-path (if (instance? Pattern proxied-path)
@@ -152,7 +152,7 @@
          (common/proxy-request req proxied-path remote-uri-base http-opts)
          (handler req))))))

-(schema/defn wrap-add-cache-headers :- IFn
+(schema/defn ^:always-validate wrap-add-cache-headers :- IFn
   "Adds cache control invalidation headers to GET and PUT requests if they are handled by the handler"
   [handler :- IFn]
   (fn [request]
@@ -165,7 +165,7 @@
           (assoc-in response [:headers "cache-control"] "private, max-age=0, no-cache")
           response)))))

-(schema/defn wrap-add-x-frame-options-deny :- IFn
+(schema/defn ^:always-validate wrap-add-x-frame-options-deny :- IFn
   "Adds 'X-Frame-Options: DENY' headers to requests if they are handled by the handler"
   [handler :- IFn]
   (fn [request]
@@ -173,7 +173,7 @@
       (when response
         (assoc-in response [:headers "X-Frame-Options"] "DENY")))))

-(schema/defn wrap-with-certificate-cn :- IFn
+(schema/defn ^:always-validate wrap-with-certificate-cn :- IFn
   "Ring middleware that will annotate the request with an
   :ssl-client-cn key representing the CN contained in the client
   certificate of the request. If no client certificate is present,


user description section in search pages

--- src/chat/client/views/pages/search.cljs
+++ src/chat/client/views/pages/search.cljs
@@ -9,16 +9,16 @@
     om/IRender
     (render [_]
       (dom/div #js {:className "page search"}
+        (dom/div #js {:className "title"} "Search")
         (cond
           ; searching...
           (get-in data [:page :search-searching])
           (dom/div nil
-            (dom/div #js {:className "title"} "Searching..."))
+            (dom/div #js {:className "description"} "Searching..."))

           ; results
           (seq (get-in data [:page :search-result-ids]))
           (dom/div nil
-            (dom/div #js {:className "title"} "Search Results")
             (apply dom/div #js {:className "threads"}
               (map (fn [t] (om/build thread-view t
                                      {:key :id
@@ -35,4 +35,4 @@
           ; no results
           :else
           (dom/div nil
-            (dom/div #js {:className "title"} "No results")))))))
+            (dom/div #js {:className "description"} "No results.")))))))


txd-gen: Correct two bugs

txd-gen: Correct two bugs

 - We were iterating over some sequable object multiple times. For each
   iteration that object was converted to a seq, i. e. it was converted
   twice. I think there are no guarantees that the two resulting seqs
   have the same order of iteration. Therefore convert it once in the
   beginning and use the resulting one seq twice. seqs are immutable, so
   the order of two iterations on one seq should be the same. (I'm not
   completely sure about this, though.)

 - Add a forgotten argument. d/tempid hadn't complained, because it can
   also be called with one argument, but of course that's not what we
   want here.

--- src/clj/theatralia/database/txd_gen.clj
+++ src/clj/theatralia/database/txd_gen.clj
@@ -9,9 +9,10 @@
   (map - s))

 (defn dezip [s]
-  (let [tuple-size (count (first s))]
+  (let [tuple-size (count (first s))
+        s-seq (seq s)]
     (mapv (fn [n]
-            (map #(nth % n) s))
+            (map #(nth % n) s-seq))
           (range tuple-size))))

 ;;;; Generators for adding materials
@@ -34,9 +35,9 @@
   Returns a seq of the (temporary) entity IDs to be used in the same transaction
   and a vector of transaction maps."
   (when tags
-    (let [[present-tags eids] (get-present-tags db tags owner-eid)
+    (let [[eids present-tags] (get-present-tags db tags owner-eid)
           tags-to-add (remove (set present-tags) tags)
-          tempids (map #(d/tempid :part/bibliography)
+          tempids (map #(d/tempid :part/bibliography %)
                        (invert (range (count tags-to-add))))]
       [(concat eids tempids)
        (mapv (fn [i t]


add toggling closed

add toggling closed

--- src/cljs/outliner/components/index.cljs
+++ src/cljs/outliner/components/index.cljs
@@ -46,14 +46,14 @@
    ; delete ------------------------------------
    [8]         :destroy-node     ;bkspace
    ; visibility of children --------------------
-   [32]        :toggle-collapse  ;space
+   [32]        :toggle-closed    ;space
    })

 (defn prev-depth-path [parent-path body]
   (loop [p parent-path]
     (let [current (get-in body p)
           children (:children current)]
-      (if (empty? children) p
+      (if (or (empty? children) (:closed current)) p
           (recur (conj p :children (dec (count children))))))))

@@ -86,7 +86,9 @@
                       data]
   (cond
    ; current node has children? -> first child
-   (not (empty? (:children current))) (conj current-path :children 0)
+   (and (not (empty? (:children current)))
+        (not (:closed current)))
+     (conj current-path :children 0)
    ; not max sibling? -> go to next sibling
    (and parent-children (< current-child-idx (dec (count parent-children)))) down-path
    ; else, find next depth wise.
@@ -114,8 +116,10 @@
                  (when (-> node :attr :text)
                    (dom/div {:class "txt"}
                             (-> node :attr :text)))
-                 (dom/ol
-                  (om/build-all outline-body (:children node) {:state state}))
+                 (when (and (not (empty? (:children node)))
+                            (not (:closed node)))
+                   (dom/ol
+                     (om/build-all outline-body (:children node) {:state state})))
                  )))

 (defcomponent component [data owner]
@@ -201,18 +205,27 @@
                                                      (assoc-in current-path swap-node)
                                                      (assoc-in down-path current))
                                                  ))))
+
                              :destroy-node
                              (when (not is-root)
                                (om/set-state! owner :selected
                                               (if is-root current-path
                                                   (gen-left-path current-child-idx parent-path
-                                                                 up-path data)
-                                                  ))
+                                                                 up-path data)))
                                (om/transact! data
                                              (fn [d]
                                                (let [new-parent-children (remove-node-from-parent parent-children current-child-idx)]
                                                  (assoc-in d (conj parent-path :children) new-parent-children)
                                                  ))))
+                             :toggle-closed
+                             (when (not is-root)
+                               (om/transact! data
+                                             (fn [d]
+                                               (if (:closed current)
+                                                 (update-in d current-path dissoc :closed)
+                                                 (assoc-in d (conj current-path :closed) true)
+                                                 )))
+                               )

                              :right-shift-node
                              (when up-path
@@ -226,6 +239,7 @@
                                                                 (conj destination-path (dec (count new-destination-children))))
                                                  (-> d
                                                      (assoc-in (conj parent-path :children) new-parent-children)
+                                                     (update-in up-path dissoc :closed)
                                                      (assoc-in destination-path             new-destination-children)
                                                   )))))
                              :left-shift-node
@@ -245,7 +259,7 @@
                                                      (assoc-in destination-path             new-destination-children)
                                                      (assoc-in (conj parent-path :children) new-parent-children)
                                                   )))))
-                             (recur)
+                             (recur)
                              )))

                         ; click events


update url with badge id

update url with badge id

--- src/cljs/salava/core/ui/badge_grid.cljs
+++ src/cljs/salava/core/ui/badge_grid.cljs
@@ -67,25 +67,29 @@
                                                                                {:size :lg})) :title (t :badge/Delete)} [:i {:class "fa fa-trash"}]]])
                                  [:a {:href "#" :on-click #(mo/open-modal [:badge :info] {:badge-id id} {:hide (fn [] (init-data state))})}
                                   (if image_file
-                                   [:div.media-left
-                                    [:img.badge-img {:src (str "/" image_file)
-                                                     :alt name}]])
-                                 [:div.media-body
-                                  [:div.media-heading
-                                   [:p.heading-link name]]
-                                  [:div.media-issuer
-                                   [:p issuer_content_name]]]
-                                 ]]
+                                    [:div.media-left
+                                     [:img.badge-img {:src (str "/" image_file)
+                                                      :alt name}]])
+                                  [:div.media-body
+                                   [:div.media-heading
+                                    [:p.heading-link name]]
+                                   [:div.media-issuer
+                                    [:p issuer_content_name]]]
+                                  ]]
                                 [:div {:class (str "media-content " (if expired? "media-expired") (if revoked " media-revoked"))}
-                                 [:a {:href "#" :on-click #(mo/open-modal [:badge :info] {:badge-id id} {:hide (fn [] (init-data state))})}
+                                 [:a {:href "#" :on-click #(do
+                                                             (.replaceState js/history "" "Badge modal" (str "/badge/" id))
+                                                             (mo/open-modal [:badge :info] {:badge-id id} {:hide (fn []
+                                                                                (.replaceState js/history "" "Badge modal" "/badge")
+                                                                                (init-data state))}))}
                                   [:div.icons
-                                     [:div.visibility-icon.inline
+                                   [:div.visibility-icon.inline
                                     (case visibility
                                       "private" [:i {:class "fa fa-lock"}]
                                       "internal" [:i {:class "fa fa-group"}]
                                       "public" [:i {:class "fa fa-globe"}]
                                       nil)
-                                     (if metabadge-icon-fn [:div.pull-right [metabadge-icon-fn id]])]
+                                    (if metabadge-icon-fn [:div.pull-right [metabadge-icon-fn id]])]

                                    (if expires_on
                                      [:div.righticon
@@ -106,38 +110,38 @@
                                   ]])

        #_(= "export" badge-type) #_[:div {:key id}
-                                [:div.media-content
-                                 [:a {:href "#" :on-click #(mo/open-modal [:badge :info] {:badge-id id})}
-                                  [:div.visibility-icon
-                                   (case visibility
-                                     "private" [:i {:class "fa fa-lock"}]
-                                     "internal" [:i {:class "fa fa-group"}]
-                                     "public" [:i {:class "fa fa-globe"}]
-                                     nil)]
-                                  (if image_file
-                                    [:div.media-left
-                                     [:img {:src (str "/" image_file) :alt name}]])
-                                  [:div.media-body
-                                   [:div.media-heading name]
-                                   [:div.media-issuer issuer_content_name]]]]
-                                [:div.media-bottom
-                                 [:div.row
-                                  [:div.col-xs-9
-                                   (let [checked? (boolean (some #(= id %) (:badges-selected @state)))]
-                                     [:div.checkbox
-                                      [:label {:for (str "checkbox-" id)}
-                                       [:input {:type "checkbox"
-                                                :id (str "checkbox-" id)
-                                                :on-change (fn []
-                                                             (if checked?
-                                                               (swap! state assoc :badges-selected (remove #(= % id) (:badges-selected @state)))
-                                                               (swap! state assoc :badges-selected (conj (:badges-selected @state) id))))
-                                                :checked checked?}]
+                                    [:div.media-content
+                                     [:a {:href "#" :on-click #(mo/open-modal [:badge :info] {:badge-id id})}
+                                      [:div.visibility-icon
+                                       (case visibility
+                                         "private" [:i {:class "fa fa-lock"}]
+                                         "internal" [:i {:class "fa fa-group"}]
+                                         "public" [:i {:class "fa fa-globe"}]
+                                         nil)]
+                                      (if image_file
+                                        [:div.media-left
+                                         [:img {:src (str "/" image_file) :alt name}]])
+                                      [:div.media-body
+                                       [:div.media-heading name]
+                                       [:div.media-issuer issuer_content_name]]]]
+                                    [:div.media-bottom
+                                     [:div.row
+                                      [:div.col-xs-9
+                                       (let [checked? (boolean (some #(= id %) (:badges-selected @state)))]
+                                         [:div.checkbox
+                                          [:label {:for (str "checkbox-" id)}
+                                           [:input {:type "checkbox"
+                                                    :id (str "checkbox-" id)
+                                                    :on-change (fn []
+                                                                 (if checked?
+                                                                   (swap! state assoc :badges-selected (remove #(= % id) (:badges-selected @state)))
+                                                                   (swap! state assoc :badges-selected (conj (:badges-selected @state) id))))
+                                                    :checked checked?}]

-                                       (t :badge/Exporttobackpack)]])]
-                                  [:div {:class "col-xs-3 text-right"}
-                                   [:a {:href (str obf_url "/c/receive/download?url="(js/encodeURIComponent assertion_url)) :class "badge-download"}
-                                    [:i {:class "fa fa-download"}]]]]]]
+                                           (t :badge/Exporttobackpack)]])]
+                                      [:div {:class "col-xs-3 text-right"}
+                                       [:a {:href (str obf_url "/c/receive/download?url="(js/encodeURIComponent assertion_url)) :class "badge-download"}
+                                        [:i {:class "fa fa-download"}]]]]]]

        (= "gallery" badge-type) [:div
                                  [:a {:href "#" :on-click #(mo/open-modal [:gallery :badges] {:badge-id badge_id})


Tried to improve script insertion & running.

Execution still fails if we try to create the map in the leaflet
script's onload handker, and I am not sure why.

--- src/com/lemondronor/leaflet_gorilla.clj
+++ src/com/lemondronor/leaflet_gorilla.clj
@@ -86,20 +86,7 @@

")


add wrapper example

add wrapper example

--- env/dev/cljs/reagent_slider/dev.cljs
+++ env/dev/cljs/reagent_slider/dev.cljs
@@ -6,33 +6,39 @@

 (enable-console-print!)

+(def index->time {0 "today"
+                  1 "1 wk"
+                  2 "2 wks"
+                  3 "1 mo"
+                  4 "2 mos"
+                  5 "6 mos"
+                  6 "1 year"})
+
+(defn wrapper-component [model cback]
+  [core/tooltipped-range-component
+   {:min 0
+    :max (dec (count index->time))
+    :value [(:min @model) (:max @model)]
+    :marks index->time
+    :onAfterChange (fn [_] (cback))
+    :onChange (fn [[v1 v2]]
+                (reset! model {:min (min v1 v2)
+                               :max (max v1 v2)}))
+    :tipFormatter #(index->time %)}])
+
 (defn boot-demo-app []

-  (let [index->time {0 "today"
-                     1 "1 wk"
-                     2 "2 wks"
-                     3 "1 mo"
-                     4 "2 mos"
-                     5 "6 mos"
-                     6 "1 year"}
-
-        model (reagent/atom {:min 2 :max 3})]
+  (let [model (reagent/atom {:min 2 :max 3})
+        active-model (reagent/atom @model)
+        update! #(reset! active-model @model)]

     (reagent/render [:div {:style {:width 290}}
+                     [:button {:on-click #(do
+                                            (reset! model {:min 1 :max 5})
+                                            (update!))} "switch!"]
+                     [wrapper-component model update!]](.getElementById js/document "app"))

-                     [:button {:on-click #(reset! model {:min 1 :max 5})} "switch!"]
-
-                     [core/tooltipped-range-component
-                      {:min 0
-                       :max (dec (count index->time))
-                       :defaultValue [(:min @model) (:max @model)]
-                       :marks index->time
-                       :onAfterChange (fn [[v1 v2]]
-                                        (reset! model {:min (min v1 v2)
-                                                       :max (max v1 v2)}))
-                       :tipFormatter #(index->time %)}]](.getElementById js/document "app"))
-
-    (add-watch model :watcher (fn [_ _ _ _] (println @model)))))
+    (add-watch active-model :watcher (fn [_ _ _ _] (println @active-model)))))

 (figwheel/watch-and-reload
   :websocket-url "ws://localhost:3450/figwheel-ws"


Added Namespace completion

Added Namespace completion

--- src/de/kotka/vimclojure/backend.clj
+++ src/de/kotka/vimclojure/backend.clj
@@ -85,3 +85,13 @@
                   (conj completions [sym sym-var]))
                 completions))
             [] publics)))
+
+(defn complete-namespace
+  "Complete the namespace from the given partial pattern."
+  [the-name]
+  (reduce (fn [completions nspace]
+            (let [nspace-name (name (ns-name nspace))]
+              (if (util/splitted-match the-name nspace-name ["\\." "-"])
+                (conj completions [nspace-name nspace])
+                completions)))
+          [] (all-ns)))


Remove usage of js->clj and clj->js.

Remove usage of js->clj and clj->js.

That improves x2 the performance of match operation.

--- src/bide/core.cljs
+++ src/bide/core.cljs
@@ -63,6 +63,27 @@

 ;; --- Low Level Routes API

+(defn- props->js
+  [params]
+  (when params
+    (reduce-kv (fn [m k v]
+                 (aset m (key->js k) (-repr v))
+                 m)
+               (js-obj)
+               params)))
+
+(defn- js->props
+  [params]
+  (when params
+    (persistent!
+     (reduce (fn [acc key]
+               (let [value (aget params key)]
+                 (if (helpers/isArray value)
+                   (assoc! acc (keyword key) (vec value))
+                   (assoc! acc (keyword key) value))))
+             (transient {})
+             (helpers/keys params)))))
+
 (defn ^boolean router?
   "Check if the `v` is a Router instance."
   [v]
@@ -82,11 +103,11 @@
   "Try to match a path to a specific route in the router, returns `nil`
   if the no match is found."
   [router path]
-  (let [[name params query] (into [] (rtr/match router path))]
+  (let [[name params query] (vec (rtr/match router path))]
     (when name
       [name
-       (js->clj params :keywordize-keys true)
-       (js->clj query :keywordize-keys true)])))
+       (js->props params)
+       (js->props query)])))

 (defn router
   "A helper for compile a vector of routes in a router instance."
@@ -97,15 +118,6 @@
           (rtr/empty)
           routes))

-(defn- adapt-params
-  [params]
-  (when params
-    (reduce-kv (fn [m k v]
-                 (aset m (key->js k) (-repr v))
-                 m)
-               (js-obj)
-               params)))
-
 (defn resolve
   "Perform a url resolve operation."
   ([router name]
@@ -114,8 +126,8 @@
    (resolve router name params nil))
   ([router name params query]
    {:pre [(router? router)]}
-   (let [params (adapt-params params)
-         query (adapt-params query)]
+   (let [params (props->js params)
+         query (props->js query)]
      (rtr/resolve router name params query))))

 ;; --- Browser History Binding API


fix password confirmation when restoring account

Signed-off-by: yenda <96f164ad4d9b2b0dacf8ebee2bb1eeb3aa69adf1@status.im>

--- src/status_im/multiaccounts/recover/core.cljs
+++ src/status_im/multiaccounts/recover/core.cljs
@@ -256,7 +256,9 @@
   {:events [:multiaccounts.recover/enter-password-next-pressed]}
   [{:keys [db] :as cofx}]
   (fx/merge cofx
-            {:db (assoc-in db [:intro-wizard :stored-key-code] (get-in db [:intro-wizard :key-code]))}
+            {:db (-> db
+                     (assoc-in [:intro-wizard :stored-key-code] (get-in db [:intro-wizard :key-code]))
+                     (assoc-in [:intro-wizard :key-code] ""))}
             (proceed-to-password-confirm)))

 (fx/defn confirm-password-next-button-pressed


core: defonce

core: defonce

--- core/data/core.clj
+++ core/data/core.clj
@@ -2792,6 +2792,15 @@
   [fmt & args]
   (print (apply format fmt args)))

+(defmacro defonce
+  "defs name to have the value of the expr if the named var is not bound,
+  else expr is unevaluated"
+  {:added "1.0"}
+  [name expr]
+  `(let [v# (def ~name)]
+     (when-not (bound? v#)
+       (def ~name ~expr))))
+
 (defn get-in
   "Returns the value in a nested associative structure,
   where ks is a sequence of keys. Returns nil if the key


remove unused function

remove unused function

--- src/fscrawler_tika_convert/core.clj
+++ src/fscrawler_tika_convert/core.clj
@@ -24,21 +24,6 @@
   (:import java.io.File)
   (:import [com.rabbitmq.client Address ConnectionFactory Connection Channel ShutdownListener])
   (:import [java.util.concurrent Executors]))
-
-
-
-
-(defn new-handle-msg
-  [ch {:keys [content-type delivery-tag type] :as meta} ^bytes payload]
-  (println (format "[consumer] Received a message: %s, delivery tag: %d, content type: %s, type: %s"
-                   (String. payload "UTF-8")
-                   delivery-tag
-                   content-type
-                   type))
-  (Thread/sleep 1000)
-  (println "done")
-  (lb/ack ch delivery-tag))
-

 (defn get-permissions-for-entry


minor updates

minor updates

--- modules/src/samsara_builtin_modules/ip_geo_location.clj
+++ modules/src/samsara_builtin_modules/ip_geo_location.clj
@@ -6,7 +6,7 @@
   {:db-file "/tmp/GeoLite2-City.mmdb"})

-(def provider nil)
+(def ^:dynamic *provider* nil)

 (defn init-provider [file]
@@ -14,7 +14,7 @@

 (defn init-provider! [file]
-  (alter-var-root #'provider (constantly (init-provider file))))
+  (alter-var-root #'*provider* (constantly (init-provider file))))

 (defenrich ip-geo-locate [{:keys [clientIp] :as event}]
@@ -32,4 +32,5 @@

   (init-provider! (:db-file cfg))

-  (geo/geo-lookup provider "8.8.8.8"))
+  (geo/geo-lookup provider "8.8.8.8")
+  )


I291: Corrected multipart file boundary parsing.

--- ext/multipart/src/yada/multipart.clj
+++ ext/multipart/src/yada/multipart.clj
@@ -184,7 +184,7 @@
       ;; Ship any other parts we know about
       (doseq [[s e] (partition 2 1 (:positions m))]
         (s/put! (:stream m) [{:type :part
-                              :bytes (copy-bytes (:window m) s e)
+                              :bytes (copy-bytes-after-delimiter m s e)
                               :debug [:process-boundaries :in-partial :others]}]))

       ;; Advance to last position


Fix main.

Fix main.

--- src/dsbdp/main.clj
+++ src/dsbdp/main.clj
@@ -138,8 +138,8 @@
                                       [(fn [i _] (pcap-fn i))])
                          "pcap-csv-inc" (combine-proc-fns-vec
                                           fn-mapping
-                                          sample-pcap-processing-definition-csv)
-                       out-fn)))
+                                          sample-pcap-processing-definition-csv))
+                       out-fn))
           batch-delay (:batch-delay options)
           batch-size (:batch-size options)
           in-loop (ProcessingLoop.


adding flushing

adding flushing

--- src/es/systems.clj
+++ src/es/systems.clj
@@ -33,8 +33,9 @@

 (defn delete
    "delete a system from ES"
-   [id]
-  (doc/delete index "system" id))
+   [id & {:keys [flush?]}]
+  (doc/delete index "system" id)
+  (when flush? (flush-)))

 (defn get
    "Grabs a system by an id"


marshall event data to prevent Json.PARSE error #165

--- src/clj/swarmpit/handler_events.clj
+++ src/clj/swarmpit/handler_events.clj
@@ -1,5 +1,6 @@
 (ns swarmpit.handler-events
   (:require [org.httpkit.server :refer [run-server with-channel on-close send! close]]
+            [cheshire.core :refer [generate-string]]
             [swarmpit.handler :refer [dispatch resp-accepted resp-error]]))

 (def channel-hub (atom {}))
@@ -9,15 +10,15 @@
     (send! channel message false)))

 (defmethod dispatch :events [_]
-  (fn [req]
-    (with-channel req channel
+  (fn [request]
+    (with-channel request channel
                   (send! channel {:status  200
                                   :headers {"Content-Type"                "text/event-stream"
                                             "Access-Control-Allow-Origin" "*"
                                             "Cache-Control"               "no-cache"
                                             "Connection"                  "keep-alive"}
                                   :body    ":ok\n\n"} false)
-                  (swap! channel-hub assoc channel req)
+                  (swap! channel-hub assoc channel request)
                   (on-close channel (fn [_]
                                       (swap! channel-hub dissoc channel))))))

@@ -25,6 +26,6 @@
   (fn [{:keys [params]}]
     (if (some? params)
       (do
-        (broadcast (str "data: " params "\n\n"))
+        (broadcast (str "data: " (generate-string params) "\n\n"))
         (resp-accepted (str "Broadcasted to " (count @channel-hub) " clients")))
-      (resp-error 400 "No event data send"))))
+      (resp-error 400 "No data send"))))


evidently a predefined cookie also works :D

--- src/clj_ptt_crawler/crawl_board.clj
+++ src/clj_ptt_crawler/crawl_board.clj
@@ -6,7 +6,8 @@

 (def PTT_URL "https://www.ptt.cc")

-(defn ptt-get [url] (:body (client/get url {:insecure? true})))
+(defn ptt-get [url]
+  (:body (client/get url {:insecure? true :cookies {"over18" {:discard true, :path "/", :secure false, :value "1", :version 0}}})))

 (defn harvest-board-indices
   [url-board-index board-name]


Add user-media function to get WebKit user media

--- src/main/audio_utils/web_audio.cljs
+++ src/main/audio_utils/web_audio.cljs
@@ -4,6 +4,13 @@
   (let [constructor (or js/window.AudioContext
                         js/window.webkitAudioContext)]
     (constructor.)))
+
+(defn user-media
+  [constraints success-fn error-fn]
+  (.webkitGetUserMedia js/navigator
+                       (clj->js constraints)
+                       success-fn
+                       error-fn))

 (defn create-buffer
   ([ctx n-channels size sample-rate]


revised funcs

revised funcs


Update Metadata Preview gem

Update Metadata Preview gem

--- collection-renderer-lib/project.clj
+++ collection-renderer-lib/project.clj
@@ -14,7 +14,7 @@
    the hardcoded commit id during dev integration with cmr_metadata_preview project.
    The hardcoded commit id should be updated when MMT releases a new version of the gem."
   (or (System/getenv "CMR_METADATA_PREVIEW_COMMIT")
-      "3867430"))
+      "038b76b94f2"))

 (def gem-install-path
   "The directory within this library where Ruby gems are installed."


Fixing copy paste compiler error

Fixing copy paste compiler error

--- src/org/libraryweasel/ligature/core.clj
+++ src/org/libraryweasel/ligature/core.clj
@@ -24,31 +24,38 @@
     "Returns an implementation specific map of details about this Store useful for debugging."))

 (defprotocol LigatureCollection
-  "Manages a collection of Statements and Rules, supports ontologies, and querying."
-  (collection-name [this])
-  (compute [this f]
-    "Accepts a closure that is passed a ReadTx, executes in a read-only transaction, and returns a value.")
-  (write [this f]
-    "Accepts a closure that is passed a WriteTx, executes in a read/write transaction, and returns a value.")
-  (sparql-query [this query])
-  (wander-query [this query]))
+  "Manages a collection of Statements and Rules, supports ontologies, and querying."
+  (collection-name [this])
+  (compute [this f]
+    "Accepts a closure that is passed a ReadTx, executes in a read-only transaction, and returns a value.")
+  (write [this f]
+    "Accepts a closure that is passed a WriteTx, executes in a read/write transaction, and returns a value.")
+  (sparql-query [this query]
+    "")
+  (wander-query [this query]
+    ""))

 (defprotocol ReadTx
-  (all-statements [this]
-    "Accepts nothing but returns a seq of all Statements in the Collection.")
-  (match-statements [this pattern])
-  (all-rules [this])
-  (match-rules [this pattern]))
+  (all-statements [this]
+    "Accepts nothing but returns a seq of all Statements in the Collection.")
+  (match-statements [this pattern]
+    "")
+  (all-rules [this]
+    "")
+  (match-rules [this pattern]
+    ""))

 (defprotocol WriteTx
-  (new-identifier [this]
-    "Returns a unique, new identifier in the form _:NUMBER")
-  (add-statement [this statement]
-    "Accepts a statement tuple")
-  (remove-statement [this statement]
-    "Accepts a statement tuple")
-  (add-rule [this rule])
-  (remove-rule [this rule]))
+  (new-identifier [this]
+    "Returns a unique, new identifier in the form _:NUMBER")
+  (add-statement [this statement]
+    "Accepts a statement tuple")
+  (remove-statement [this statement]
+    "Accepts a statement tuple")
+  (add-rule [this rule]
+    "Accepts a rule tuple")
+  (remove-rule [this rule]
+    "Accepts a rule tuple"))

 (defn identifier?
   "Accepts a String representing an identifier and returns true or false depending on if it is valid."


Reorder fields per request of product and design team

--- src-cljs/frontend/components/builds_table.cljs
+++ src-cljs/frontend/components/builds_table.cljs
@@ -151,6 +151,12 @@
          (:build_num build)]]

        [:div.metadata
+        (when-let [author (build-model/author build)]
+          [:div.metadata-item.recent-user
+           {:title (build-model/ui-user build)}
+           (dashboard-icon "Builds-Author")
+           author])
+
         [:div.metadata-item
          (if-not (:vcs_revision build)
            [:a {:href url}]
@@ -159,15 +165,15 @@
                       :href url}
                   (build-model/github-revision build)]))]

-        (when-let [author (build-model/author build)]
-          [:div.metadata-item.recent-user
-           {:title (build-model/ui-user build)}
-           (dashboard-icon "Builds-Author")
-           author])
-
         (if (or (not (:start_time build))
                 (= "not_run" (:status build)))
-          nil
+          (list
+            [:div.metadata-item.recent-time
+             (dashboard-icon "Builds-StartTime")
+             "–"]
+            [:div.metadata-item.recent-time
+             (dashboard-icon "Builds-Duration")
+             "–"])
           (list [:div.metadata-item.recent-time
                  {:title  (datetime/full-datetime (js/Date.parse (:start_time build))) }
                  (dashboard-icon "Builds-StartTime")


Use cdn for images

Use cdn for images

--- src-cljs/frontend/components/mobile/icons.cljs
+++ src-cljs/frontend/components/mobile/icons.cljs
@@ -11,45 +11,45 @@
   (:require-macros [frontend.utils :refer [defrender html]]))

 (def app-store
-  (html [:img.app-store {:src "/img/outer/mobile/app-store.svg"
+  (html [:img.app-store {:src (utils/cdn-path "/img/outer/mobile/app-store.svg")
                          :alt "Improve App Store Rating"}]))

 (def build-env
-  (html [:img.build-env {:src "/img/outer/mobile/build-envs.svg"
+  (html [:img.build-env {:src (utils/cdn-path "/img/outer/mobile/build-envs.svg")
                          :alt "Control your mobile app testing environment"}]))

 (def commit
-  (html [:img.commit {:src "/img/outer/mobile/commit.svg"
+  (html [:img.commit {:src (utils/cdn-path "/img/outer/mobile/commit.svg")
                       :alt "Merge App code with confidence"}]))

 (def deploy
-  (html [:img.deploy {:src "/img/outer/mobile/deploy.svg"
+  (html [:img.deploy {:src (utils/cdn-path "/img/outer/mobile/deploy.svg")
                       :alt "Automate Mobile Continuous Deployment"}]))

 (def htc
-  (html [:img.htc {:src "/img/outer/mobile/htc.svg"
+  (html [:img.htc {:src (utils/cdn-path "/img/outer/mobile/htc.svg")
                    :alt "Mobile Android app testing"}]))

 (def iphone
-  (html [:img.iphone {:src "/img/outer/mobile/iphone.svg"
+  (html [:img.iphone {:src (utils/cdn-path "/img/outer/mobile/iphone.svg")
                       :alt "Mobile iPhone app testing"}]))

 (def nexus
-  (html [:img.nexus {:src "/img/outer/mobile/nexus.svg"
+  (html [:img.nexus {:src (utils/cdn-path "/img/outer/mobile/nexus.svg")
                      :alt "Mobile Android app testing"}]))

 (def setup
-  (html [:img.setup {:src "/img/outer/mobile/setup.svg"
+  (html [:img.setup {:src (utils/cdn-path "/img/outer/mobile/setup.svg")
                      :alt "Easy Continuous Integration setup"}]))

 (def steps
-  (html [:img.steps {:src "/img/outer/mobile/steps.svg"
+  (html [:img.steps {:src (utils/cdn-path "/img/outer/mobile/steps.svg")
                      :alt "Mobile Continuous Integration and Deployment"}]))

 (def testing
-  (html [:img.testing {:src "/img/outer/mobile/testing.svg"
+  (html [:img.testing {:src (utils/cdn-path "/img/outer/mobile/testing.svg")
                        :alt "Automate App Testing"}]))

 (def workflow
-  (html [:img.workflow {:src "/img/outer/mobile/workflow.svg"
+  (html [:img.workflow {:src (utils/cdn-path "/img/outer/mobile/workflow.svg")
                         :alt "Mobile Continuous Integration Workflow"}]))


Adding basic pricing tabs for osx/linux.

--- src-cljs/frontend/components/org_settings.cljs
+++ src-cljs/frontend/components/org_settings.cljs
@@ -453,6 +453,23 @@
                     " ended " (pluralize (Math/abs (pm/days-left-in-trial plan)) "day")
                     " ago. Pay now to enable builds of private repositories."])))]]]]])))))

+(defn pricing-tabs [_ owner]
+  (reify
+    om/IInitState
+    (init-state [_]
+      {:selected-tab :linux})
+
+    om/IRenderState
+    (render-state [_ {:keys [selected-tab]}]
+      (html [:div {:data-component `pricing-tabs}
+             [:ul.nav.nav-tabs
+              [:li {:class (when (= selected-tab :linux) "active")}
+               [:a {:on-click #(om/set-state! owner [:selected-tab] :linux)}
+                [:i.fa.fa-linux.fa-lg] "Build on Linux"]]
+              [:li {:class (when (= selected-tab :osx) "active")}
+               [:a {:on-click #(om/set-state! owner [:selected-tab] :osx)}
+                [:i.fa.fa-apple.fa-lg] "Build on OS X"]]]]))))
+
 (defn pricing [app owner]
   (reify
     ;; I stole the stateful "did we load stripe checkout code" stuff
@@ -497,6 +514,7 @@
             (if (pm/piggieback? plan org-name)
               (plans-piggieback-plan-notification plan org-name org-vcs-type)
               [:div
+               (om/build pricing-tabs {})
                (om/build linux-plan {:app app :checkout-loaded? checkout-loaded?})
                (if (and (feature/enabled? :osx-plans)
                         (get-in app state/org-osx-enabled-path))