From 46bb948345f165ebffe6ff3116e36a3b8a3f219d Mon Sep 17 00:00:00 2001
From: Heikki Vesalainen <heikki.vesalainen@trademarknow.com>
Date: Sun, 19 Jan 2020 15:55:35 +0000
Subject: [PATCH] Fix #155, remove ob-scala.el

---
 ob-scala.el | 116 ----------------------------------------------------
 1 file changed, 116 deletions(-)
 delete mode 100644 ob-scala.el

diff --git a/ob-scala.el b/ob-scala.el
deleted file mode 100644
index 6389b3a..0000000
--- a/ob-scala.el
+++ /dev/null
@@ -1,116 +0,0 @@
-;;; ob-scala.el --- org-babel functions for scala evaluation
-
-;; Copyright (C) Simon Hafner
-
-;;; License:
-
-;; This program is free software; you can redistribute it and/or modify
-;; it under the terms of the GNU General Public License as published by
-;; the Free Software Foundation; either version 3, or (at your option)
-;; any later version.
-;;
-;; This program is distributed in the hope that it will be useful,
-;; but WITHOUT ANY WARRANTY; without even the implied warranty of
-;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-;; GNU General Public License for more details.
-;;
-;; You should have received a copy of the GNU General Public License
-;; along with GNU Emacs; see the file COPYING.  If not, write to the
-;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
-;; Boston, MA 02110-1301, USA.
-
-;;; Code:
-(require 'ob)
-(require 'ob-ref)
-(require 'ob-comint)
-(require 'ob-eval)
-(require 'ensime)
-;; possibly require modes required for your language
-
-;; optionally define a file extension for this language
-(add-to-list 'org-babel-tangle-lang-exts '("scala" . "scala"))
-
-;; optionally declare default header arguments for this language
-(defvar org-babel-default-header-args:scala '())
-
-(defun org-babel-expand-body:scala (body params &optional processed-params)
-  "Expand BODY according to PARAMS, return the expanded body."
-  (require 'ensime-inf)
-  (let ((vars (assoc-default :vars (or processed-params (org-babel-process-params params)))))
-    (concat
-     (mapconcat ;; define any variables
-      (lambda (pair)
-        (format "val %s=%S"
-                (car pair) (org-babel-scala-var-to-scala (cdr pair)))) vars "\n")
-     "\n" body "\nprint(\"\\nob_scala_eol\")")))
-
-
-;; This is the main function which is called to evaluate a code
-;; block.
-;;
-;; So far, only result :output is supported. The session is always
-;; interactive. Manual start of `ensime-inf-buffer-name` via
-;; `ensime-inf-run-scala` is recommended.
-(defun org-babel-execute:scala (body params)
-  "Execute a block of Scalacode with org-babel.
-This function is called by `org-babel-execute-src-block'"
-  (message "executing Scala source code block")
-  (let* ((processed-params (org-babel-process-params params))
-         ;; set the session
-         (session (org-babel-scala-initiate-session (assoc-default :session processed-params)))
-         ;; variables assigned for use in the block
-         (vars (assoc-default :vars processed-params))
-         (result-params (assoc-default :result-params processed-params))
-         ;; either OUTPUT or VALUE which should behave as described above
-         (result-type (assoc-default :result-type processed-params))
-         ;; expand the body with `org-babel-expand-body:scala'
-         (full-body (org-babel-expand-body:scala
-                     body params processed-params)))
-    (ensime-inf-assert-running)
-    (org-babel-scala-table-or-string
-     (let ((temp-file (make-temp-file "scala-eval")))
-       (message temp-file)
-       (with-temp-file temp-file
-         (insert full-body))
-       (let ((output
-              (org-babel-comint-with-output (ensime-inf-buffer-name "ob_scala_eol")
-                (ensime-inf-send-string (concat ":load " temp-file))
-                (comint-send-input nil t )
-                (sleep-for 0 5))))
-         (delete-file temp-file)
-         output)))))
-
-;; This function should be used to assign any variables in params in
-;; the context of the session environment.
-(defun org-babel-prep-session:scala (session params)
-  "Prepare SESSION according to the header arguments specified in PARAMS."
-  )
-
-(defun org-babel-scala-var-to-scala (var)
-  "Convert an elisp var into a string of scala source code
-specifying a var of the same value."
-  (format "%S" var))
-
-(defun org-babel-scala-table-or-string (results)
-  "If the results look like a table, then convert them into an
-Emacs-lisp table, otherwise return the results as a string."
-  (message (format "%S" results))
-  (org-trim (mapconcat (lambda (element)
-                         (if (or
-                                  (string-equal (org-trim element) "scala>")
-                                  (string-equal (org-trim element) "ob_scala_eol"))
-                             ""
-                           element))
-                       (cddr results)
-                       "")))
-
-(defun org-babel-scala-initiate-session (&optional session)
-  "If there is not a current inferior-process-buffer in SESSION then create.
-Return the initialized session."
-  (unless (get-buffer ensime-inf-buffer-name)
-    (ensime-inf-run-scala))
-  ensime-inf-buffer-name
-  )
-
-(provide 'ob-scala)
-;;; ob-scala.el ends here