WIP Emacs utilities to remove newlines when sending code to SEPL

Author: themkat

emacs/deps.el

@@ -0,0 +1,7 @@
+(require 'package)
+(setq package-archives '(("gnu"   . "http://elpa.gnu.org/packages/")
+                         ("melpa" . "https://melpa.org/packages/")))
+(package-initialize)
+(package-refresh-contents)
+(package-install 's)
+(package-install 'dash)

emacs/sepl-mode.el

@@ -1,4 +1,12 @@
 (require 's)
+(require 'dash)
+
+(defun sepl--remove-comments (code)
+  "Removes comments and newlines from code given in CODE. After execution, all lines will be concatenated to a single line."
+  (s-join " "
+          (-map (lambda (line)
+                  (car (s-split ";" line)))
+                (s-lines code))))
 
 (defun sepl-eval-sexp ()
   (interactive)
@@ -7,7 +15,7 @@
                 (backward-sexp)
                 (point)))
          ;; sepl requires single lines
-         (code (s-replace "\n" " " (buffer-substring start end)))
+         (code (sepl--remove-comments (buffer-substring start end)))
          (tmp-buf (get-buffer-create "*sepl-tmp-buf*")))
     (when (boundp 'sepl-repl-process)
       (comint-redirect-send-command-to-process code tmp-buf sepl-repl-process nil t)
@@ -17,6 +25,7 @@
         (message "=> %s" (s-replace "\n" "\n   " (s-trim (buffer-string))))))
     (kill-buffer tmp-buf)))
 
+;; TODO: how to handle lines with comments?
 (defun sepl-eval-buffer ()
   (interactive)
   (when (boundp 'sepl-repl-process)
@@ -48,7 +57,8 @@
   (require 'scheme)
   (setq-local font-lock-keywords scheme-font-lock-keywords)
 
-)
+  ;; TODO: completion of built-ins?
+  )
 
 (defcustom sepl-program-bin "/Users/marie/Programming/Rust/shade-eval-print-loop/target/debug/shade-eval-print-loop"
   "Path to the SEPL binary"

emacs/tests.el

@@ -0,0 +1,15 @@
+;; Basic unit tests for Elisp code
+(require 'sepl-mode)
+(require 's)
+
+(ert-deftest remove-comments-single-line-test ()
+  (should (s-equals? "hi there"
+                     (sepl--remove-comments "hi there")))
+  (should (s-equals? "(+ 2 3)"
+                     (sepl--remove-comments "(+ 2 3)")))
+  (should (s-equals? ""
+                     (sepl--remove-comments "; Hi there"))))
+
+(ert-deftest remove-comments-multiple-lines-test ()
+  (should (s-equals? "(+ 1 2) 2 (define (square x)   (* x x))"
+                     (sepl--remove-comments "(+ 1 2)\n2\n(define (square x)\n  (* x x))"))))