Added cleaning outdated output files created by Clojure compile task.

Author: pbzdyl

.gitignore

@@ -5,6 +5,7 @@
 /.idea/shelf
 /.idea/libraries
 /.idea/modules
+/.idea/atlassian-ide-plugin.xml
 
 out
 dist

build.gradle

@@ -32,11 +32,14 @@ buildscript {
 
 group 'com.cursive-ide'
 version '1.1.0'
+ext.pluginId = 'com.cursive-ide.clojure'
+ext.pluginImplementationClass = 'cursive.ClojurePlugin'
 
 apply plugin: 'kotlin'
 apply plugin: 'groovy'
 apply plugin: 'maven'
 apply plugin: 'com.gradle.plugin-publish'
+apply plugin: "java-gradle-plugin"
 
 project.afterEvaluate {
   // Ugh, see https://discuss.gradle.org/t/kotlin-groovy-and-java-compilation/14903/9
@@ -55,6 +58,18 @@ dependencies {
   compile gradleApi()
   compile localGroovy()
   compile "org.jetbrains.kotlin:kotlin-stdlib:$kotlin_version"
+  testCompile gradleTestKit()
+  testCompile "junit:junit:4.12"
+  testCompile 'net.wuerl.kotlin:assertj-core-kotlin:0.1.3'
+}
+
+gradlePlugin {
+  plugins {
+    clojurePlugin {
+      id = pluginId
+      implementationClass = pluginImplementationClass
+    }
+  }
 }
 
 pluginBundle {
@@ -65,7 +80,7 @@ pluginBundle {
 
   plugins {
     clojurePlugin {
-      id = 'com.cursive-ide.clojure'
+      id = pluginId
       displayName = 'Gradle Clojure plugin'
     }
   }

gradle/wrapper/gradle-wrapper.jar

@@ -34,6 +34,7 @@ import org.gradle.api.tasks.SourceSet
 import org.gradle.api.tasks.TaskAction
 import org.gradle.api.tasks.compile.AbstractCompile
 import org.gradle.api.tasks.incremental.IncrementalTaskInputs
+import org.gradle.api.tasks.incremental.InputFileDetails
 import org.gradle.process.JavaForkOptions
 import org.gradle.process.internal.DefaultJavaForkOptions
 import org.gradle.process.internal.ExecException
@@ -181,17 +182,19 @@ open class ClojureCompile @Inject constructor(val fileResolver: FileResolver) :
     return reflectionWarnings
   }
 
-  @TaskAction
-  fun compile(inputs: IncrementalTaskInputs) {
-    compile()
+  override fun compile() {
+    throw UnsupportedOperationException()
   }
 
-  override fun compile() {
+  @TaskAction
+  fun compile(inputs: IncrementalTaskInputs) {
     logger.info("Starting ClojureCompile task")
 
-    destinationDir.deleteRecursively()
     destinationDir.mkdirs()
 
+    inputs.outOfDate { removeOutputFilesDerivedFromInputFile(it, destinationDir) }
+    inputs.removed { removeOutputFilesDerivedFromInputFile(it, destinationDir) }
+
     if (copySourceToOutput ?: !aotCompile) {
       project.copy {
         it.from(getSource()).into(destinationDir)
@@ -269,6 +272,30 @@ open class ClojureCompile @Inject constructor(val fileResolver: FileResolver) :
     }
   }
 
+  private fun removeOutputFilesDerivedFromInputFile(inputFileDetails: InputFileDetails, destinationDir: File) {
+    val sourceAbsoluteFile = inputFileDetails.file
+    if (isClojureSource(sourceAbsoluteFile)) {
+      logger.debug("Removing class files for {}", inputFileDetails.file)
+      val sourceCanonicalFileName = sourceAbsoluteFile.canonicalPath
+      val sourceFileRoot = getSourceRootsFiles()
+          .find { sourceCanonicalFileName.startsWith(it.canonicalPath) }
+          ?: throw IllegalStateException("No source root found for source file ${sourceAbsoluteFile}")
+      val sourceRelativeFile = sourceAbsoluteFile.relativeTo(sourceFileRoot)
+      val sourceRelativeDirectory = sourceRelativeFile.parentFile
+      val sourceFileName = sourceAbsoluteFile.nameWithoutExtension
+      destinationDir.resolve(sourceRelativeDirectory)
+          .listFiles { file -> file.name.startsWith(sourceFileName) }
+          ?.forEach {
+            logger.debug("Deleting derived file {}", it)
+            it.delete()
+          }
+    }
+  }
+
+  private fun  isClojureSource(file: File): Boolean {
+    return getSourceRoots().any { file.canonicalPath.startsWith(it) }
+  }
+
   private fun executeScript(script: String, stdout: OutputStream, stderr: OutputStream) {
     val file = createTempFile("clojure-compiler", ".clj", temporaryDir)
     file.bufferedWriter().use { out ->
@@ -281,7 +308,7 @@ open class ClojureCompile @Inject constructor(val fileResolver: FileResolver) :
 
     // clojure.core/compile requires following on its classpath:
     // - libs (this.classpath)
-    // - compiled namespaces sources (getSourceRootsFiles)
+    // - namespaces sources to be compiled (getSourceRootsFiles)
     // - *compile-path* directory (this.destinationDir)
     exec.classpath = classpath + SimpleFileCollection(getSourceRootsFiles()) + SimpleFileCollection(destinationDir)
 
@@ -321,16 +348,15 @@ open class ClojureCompile @Inject constructor(val fileResolver: FileResolver) :
   }
 
   private fun getSourceRoots(): HashSet<String> {
-    val roots = source
-        .filter { it is SourceDirectorySet }
-        .flatMap { (it as SourceDirectorySet).srcDirs }
+    return getSourceRootsFiles()
         .map { it.canonicalPath }
         .toHashSet()
-    return roots
   }
 
   private fun getSourceRootsFiles(): List<File> {
-    return getSourceRoots().map(::File)
+    return source
+        .filter { it is SourceDirectorySet }
+        .flatMap { (it as SourceDirectorySet).srcDirs }
   }
 
   companion object {

gradlew.bat

@@ -0,0 +1,27 @@
+/*
+ * Copyright 2017 Colin Fleming
+ *
+ * Licensed under the Apache License, Version 2.0 (the "License");
+ * you may not use this file except in compliance with the License.
+ * You may obtain a copy of the License at
+ *
+ * http://www.apache.org/licenses/LICENSE-2.0
+ *
+ * Unless required by applicable law or agreed to in writing, software
+ * distributed under the License is distributed on an "AS IS" BASIS,
+ * WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+ * See the License for the specific language governing permissions and
+ * limitations under the License.
+ */
+
+plugins {
+    id 'com.cursive-ide.clojure'
+}
+
+repositories {
+    mavenCentral()
+}
+
+dependencies {
+    compile 'org.clojure:clojure:1.8.0'
+}

src/main/kotlin/cursive/ClojurePlugin.kt

@@ -0,0 +1,21 @@
+;
+; Copyright 2017 Colin Fleming
+;
+; Licensed under the Apache License, Version 2.0 (the "License")
+; you may not use this file except in compliance with the License.
+; You may obtain a copy of the License at
+;
+; http://www.apache.org/licenses/LICENSE-2.0
+;
+; Unless required by applicable law or agreed to in writing, software
+; distributed under the License is distributed on an "AS IS" BASIS,
+; WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+; See the License for the specific language governing permissions and
+; limitations under the License.
+;
+
+(ns basic-project.core)
+
+(defn hello [name]
+  (println "Generating message for" name)
+  (str "Hello " name))