Get rid of ego ns

This commit is contained in:
Jonas Enlund 2012-03-23 21:50:29 +02:00
parent c958baac7f
commit 4860b24789
12 changed files with 27 additions and 27 deletions

View file

@ -1,11 +1,11 @@
(ns jonase.kibit.core (ns kibit.core
"Kibit's core functionality uses core.logic to suggest idiomatic "Kibit's core functionality uses core.logic to suggest idiomatic
replacements for patterns of code." replacements for patterns of code."
(:require [clojure.java.io :as io] (:require [clojure.java.io :as io]
[clojure.walk :as walk] [clojure.walk :as walk]
[clojure.core.logic :as logic] [clojure.core.logic :as logic]
[jonase.kibit.rules :as core-rules] [kibit.rules :as core-rules]
[jonase.kibit.reporters :as reporters]) [kibit.reporters :as reporters])
(:import [clojure.lang LineNumberingPushbackReader])) (:import [clojure.lang LineNumberingPushbackReader]))
;; ### Important notes ;; ### Important notes

View file

@ -1,4 +1,4 @@
(ns jonase.kibit.guards (ns kibit.guards
(:require [clojure.core.logic :as logic])) (:require [clojure.core.logic :as logic]))
(defn not-method? [sym] (defn not-method? [sym]

View file

@ -1,4 +1,4 @@
(ns jonase.kibit.reporters (ns kibit.reporters
(:require [clojure.string :as string] (:require [clojure.string :as string]
[clojure.pprint :as pp]) [clojure.pprint :as pp])
(:import [java.io StringWriter])) (:import [java.io StringWriter]))

View file

@ -1,13 +1,13 @@
(ns jonase.kibit.rules (ns kibit.rules
"`rules.clj` provides the core functionality for extracting "`rules.clj` provides the core functionality for extracting
and merging rules from namespaces. There are shorthands for and merging rules from namespaces. There are shorthands for
the individual rule sets, via the `rule-map`" the individual rule sets, via the `rule-map`"
(:require [jonase.kibit.rules.arithmetic :as arith] (:require [kibit.rules.arithmetic :as arith]
[jonase.kibit.rules.control-structures :as control] [kibit.rules.control-structures :as control]
[jonase.kibit.rules.collections :as coll] [kibit.rules.collections :as coll]
[jonase.kibit.rules.equality :as equality] [kibit.rules.equality :as equality]
[jonase.kibit.rules.performance :as perf] [kibit.rules.performance :as perf]
[jonase.kibit.rules.misc :as misc])) [kibit.rules.misc :as misc]))
;; More information on rules ;; More information on rules
;; ------------------------- ;; -------------------------

View file

@ -1,5 +1,5 @@
(ns jonase.kibit.rules.arithmetic (ns kibit.rules.arithmetic
(:use [jonase.kibit.rules.util :only [defrules]])) (:use [kibit.rules.util :only [defrules]]))
(defrules rules (defrules rules
[(+ ?x 1) (inc ?x)] [(+ ?x 1) (inc ?x)]

View file

@ -1,5 +1,5 @@
(ns jonase.kibit.rules.collections (ns kibit.rules.collections
(:use [jonase.kibit.rules.util :only [defrules]])) (:use [kibit.rules.util :only [defrules]]))
(defrules rules (defrules rules
;;vector ;;vector

View file

@ -1,5 +1,5 @@
(ns jonase.kibit.rules.control-structures (ns kibit.rules.control-structures
(:use [jonase.kibit.rules.util :only [defrules]])) (:use [kibit.rules.util :only [defrules]]))
(defrules rules (defrules rules
[(if ?x ?y nil) (when ?x ?y)] [(if ?x ?y nil) (when ?x ?y)]

View file

@ -1,5 +1,5 @@
(ns jonase.kibit.rules.equality (ns kibit.rules.equality
(:use [jonase.kibit.rules.util :only [defrules]])) (:use [kibit.rules.util :only [defrules]]))
(defrules rules (defrules rules
;; not= ;; not=

View file

@ -1,6 +1,6 @@
(ns jonase.kibit.rules.misc (ns kibit.rules.misc
(:require [jonase.kibit.guards :as guards]) (:require [kibit.guards :as guards])
(:use [jonase.kibit.rules.util :only [defrules]])) (:use [kibit.rules.util :only [defrules]]))
(defrules rules (defrules rules
;; clojure.string ;; clojure.string

View file

@ -1,5 +1,5 @@
(ns jonase.kibit.rules.performance (ns kibit.rules.performance
(:use [jonase.kibit.rules.util :only [defrules]])) (:use [kibit.rules.util :only [defrules]]))
(defrules rules (defrules rules
;; reduce on var-arg functions ;; reduce on var-arg functions

View file

@ -1,4 +1,4 @@
(ns jonase.kibit.rules.util) (ns kibit.rules.util)
(defmacro defrules [name & rules] (defmacro defrules [name & rules]
(let [rules (for [[pat alt & {:keys [when]}] rules] (let [rules (for [[pat alt & {:keys [when]}] rules]

View file

@ -1,7 +1,7 @@
(ns leiningen.kibit (ns leiningen.kibit
(:require [clojure.tools.namespace :as clj-ns] (:require [clojure.tools.namespace :as clj-ns]
[clojure.java.io :as io] [clojure.java.io :as io]
[jonase.kibit.core :as kibit])) [kibit.core :as kibit]))
(defn kibit (defn kibit
"Suggest idiomatic replacements for patterns of code." "Suggest idiomatic replacements for patterns of code."