From 79cfc20eeb776e10019044c7cd1b7fc6c3e67021 Mon Sep 17 00:00:00 2001
From: Heikki Vesalainen <heikki.vesalainen@iki.fi>
Date: Fri, 5 Feb 2021 10:54:06 +0200
Subject: [PATCH] Revert "compile mode with sbt thin client"

---
 scala-compile.el | 120 -----------------------------------------------
 1 file changed, 120 deletions(-)
 delete mode 100644 scala-compile.el

diff --git a/scala-compile.el b/scala-compile.el
deleted file mode 100644
index 96bdaa8..0000000
--- a/scala-compile.el
+++ /dev/null
@@ -1,120 +0,0 @@
-;;; scala-compile.el --- batch compile scala -*- lexical-binding: t -*-
-
-;; Copyright (C) 2020 Sam Halliday
-;; License: GPL 3 or any later version
-
-;;; Commentary:
-;;
-;;  An idiomatic `compilation-mode' batch compilation command that detects
-;;  warnings and errors, extracting line numbers, columns and ranges.
-;;
-;;  Relies on a batch tool, such as the sbt thin client (`sbt --client`) which
-;;  can be compiled to native binary (`sbtn`) from their repo with `sbt
-;;  buildNativeThinClient` or mystery meat binaries downloaded from
-;;  https://github.com/sbt/sbtn-dist/releases/
-;;
-;;; Code:
-
-(require 'compile)
-(require 'ansi-color)
-(require 'files)
-(require 'subr-x)
-
-(defcustom scala-compile-always-ask t
-  "`scala-compile' will always ask for confirmation before running a command unless: the universal argument is provided or it is called with a string argument or if this is set to nil (in which case the last command used in the buffer is used). To change the command, the user must provide a prefix argument."
-  :type 'booleanp
-  :group 'scala)
-
-(defcustom scala-compile-suggestion nil
-  "Files can specify a suggested command to run, e.g. runMain and testOnly."
-  :type 'stringp
-  :group 'scala
-  :safe 'stringp
-  :local t)
-
-(defcustom scala-compile-alt "sbtn clean && sbtn reload"
-  "`scala-compile' uses this command when called with the `-' prefix."
-  :type 'stringp
-  :group 'scala)
-
-(defvar scala-compilation-error-regexp-alist
-  '(;; Sbt 1.0.x
-    ("^\\[error][[:space:]]\\([/[:word:]]:?[^:[:space:]]+\\):\\([[:digit:]]+\\):\\([[:digit:]]+\\):" 1 2 3 2 1)
-    ;; Sbt 0.13.x
-    ("^\\[error][[:space:]]\\([/[:word:]]:?[^:[:space:]]+\\):\\([[:digit:]]+\\):" 1 2 nil 2 1)
-    ;; https://github.com/Duhemm/sbt-errors-summary
-    ("^\\[error][[:space:]]\\[E[[:digit:]]+][[:space:]]\\([/[:word:]]:?[^:[:space:]]+\\):\\([[:digit:]]+\\):\\([[:digit:]]+\\):$" 1 2 3 2 1)
-    ("^\\[warn][[:space:]]+\\[E[[:digit:]]+][[:space:]]\\([/[:word:]]:?[^:[:space:]]+\\):\\([[:digit:]]+\\):\\([[:digit:]]+\\):$" 1 2 3 1 1)
-    ("^\\[warn][[:space:]]\\([/[:word:]]:?[^:[:space:]]+\\):\\([[:digit:]]+\\):" 1 2 nil 1 1)
-    ("^\\[info][[:space:]]\\([/[:word:]]:?[^:[:space:]]+\\):\\([[:digit:]]+\\):" 1 2 nil 0 1)
-    ;; failing scalatests
-    ("^\\[info][[:space:]]+\\(.*\\) (\\([^:[:space:]]+\\):\\([[:digit:]]+\\))" 2 3 nil 2 1)
-    ("^\\[warn][[:space:]][[:space:]]\\[[[:digit:]]+][[:space:]]\\([/[:word:]]:?[^:[:space:]]+\\):\\([[:digit:]]+\\):\\([[:digit:]]+\\):" 1 2 3 1 1)
-    )
-  "The `compilation-error-regexp-alist' for `scala'.")
-
-(defvar scala--compile-history
-  '("sbtn compile"
-    "sbtn test"
-    "sbtn testOnly "))
-
-(defvar-local scala--compile-command nil)
-(defvar scala--compile-project "build.sbt")
-
-;;;###autoload
-(defun scala-compile (&optional edit-command)
-  "`compile' specialised to Scala.
-
-First use in a buffer or calling with a prefix will prompt for a
-command, otherwise the last command is used.
-
-The command history is global.
-
-A universal argument will invoke `scala-compile-alt', which
-will cause the subsequent call to prompt.
-
-A prefix argument will ensure that the user is prompted to
-confirm the selection.
-
-A string argument will run the command (for scripting)."
-  (interactive "P")
-  (save-some-buffers (not compilation-ask-about-save)
-                     compilation-save-buffers-predicate)
-
-  (when scala-compile-suggestion
-    (add-to-list 'scala--compile-history scala-compile-suggestion))
-
-  (let* ((last scala--compile-command)
-         (command (pcase edit-command
-                    ((and 'nil (guard last)) last)
-                    ('-  scala-compile-alt)
-                    ((pred stringp) edit-command)
-                    (_ (read-shell-command
-                        "Compile command: "
-                        (or last (car scala--compile-history))
-                        '(scala--compile-history . 1))))))
-    (setq scala--compile-command
-          (unless (or
-                   scala-compile-always-ask
-                   (equal command scala-compile-alt))
-            command))
-    (let ((default-directory
-            (or
-             (locate-dominating-file default-directory scala--compile-project)
-             default-directory)))
-      (compilation-start
-       command
-       'scala-compilation-mode
-       (lambda (_)
-        (concat "*scala-compilation-" (file-name-nondirectory (directory-file-name default-directory)) "*"))
-       ))))
-
-(defun scala--compile-ansi-color ()
-  (ansi-color-apply-on-region compilation-filter-start (point-max)))
-
-(define-compilation-mode scala-compilation-mode "scala-compilation"
-  (add-hook 'compilation-filter-hook
-            #'scala--compile-ansi-color nil t))
-
-(provide 'scala-compile)
-;;; scala-compile.el ends here