Remove ignored files

elpa/geiser-20180626.440/geiser-compile.el

@@ -0,0 +1,85 @@
+;; geiser-compile.el -- compile/load scheme files
+
+;; Copyright (C) 2009, 2010, 2011, 2012, 2013, 2016, 2018 Jose Antonio Ortega Ruiz
+
+;; This program is free software; you can redistribute it and/or
+;; modify it under the terms of the Modified BSD License. You should
+;; have received a copy of the license along with this program. If
+;; not, see <http://www.xfree86.org/3.3.6/COPYRIGHT2.html#5>.
+
+;; Start date: Wed Feb 11, 2009 00:16
+
+
+
+(require 'geiser-debug)
+(require 'geiser-autodoc)
+(require 'geiser-eval)
+(require 'geiser-base)
+
+
+;;; Auxiliary functions:
+
+(defun geiser-compile--buffer/path (&optional path)
+  (let ((path (or path (read-file-name "Scheme file: " nil nil t))))
+    (let ((buffer (find-file-noselect path)))
+      (when (and (buffer-modified-p buffer)
+                 (y-or-n-p "Save buffer? "))
+        (save-buffer buffer))
+      (cons buffer path))))
+
+(defun geiser-compile--display-result (title ret)
+  (if (not (geiser-eval--retort-error ret))
+      (message "%s done" title)
+    (message ""))
+  (geiser-debug--display-retort title ret))
+
+(defun geiser-compile--file-op (path compile-p msg)
+  (let* ((b/p (geiser-compile--buffer/path path))
+         (buffer (car b/p))
+         (path (cdr b/p))
+         (msg (format "%s %s ..." msg path))
+         (code `(,(if compile-p :comp-file :load-file) ,path)))
+    (message msg)
+    (geiser-autodoc--clean-cache)
+    (geiser-compile--display-result msg (geiser-eval--send/wait code))))
+
+
+;;; User commands:
+
+(defun geiser-compile-file (path)
+  "Compile and load Scheme file."
+  (interactive "FScheme file: ")
+  (geiser-compile--file-op path t "Compiling"))
+
+(defun geiser-compile-current-buffer (&optional restart-p)
+  "Compile and load current Scheme file.
+
+With prefix, restart REPL before compiling the file."
+  (interactive "P")
+  (when restart-p (geiser-restart-repl))
+  (geiser-compile-file (buffer-file-name (current-buffer))))
+
+(defun geiser-load-file (path)
+  "Load Scheme file."
+  (interactive "FScheme file: ")
+  (geiser-compile--file-op (expand-file-name path) nil "Loading"))
+
+(defun geiser-load-current-buffer (&optional restart-p)
+  "Load current Scheme file.
+
+With prefix, restart REPL before loading the file."
+  (interactive "P")
+  (when restart-p (geiser-restart-repl))
+  (geiser-load-file (buffer-file-name (current-buffer))))
+
+(defun geiser-add-to-load-path (path)
+  "Add a new directory to running Scheme's load path.
+When called interactively, this function will ask for the path to
+add, defaulting to the current buffer's directory."
+  (interactive "DDirectory to add: ")
+  (let* ((c `(:eval (:ge add-to-load-path ,(expand-file-name path))))
+         (r (geiser-eval--send/result c)))
+    (message "%s" (if r "Added" "Failed!"))))
+
+
+(provide 'geiser-compile)