summaryrefslogtreecommitdiff
path: root/emacs/guix-geiser.el
diff options
context:
space:
mode:
authorAlex Kost <alezost@gmail.com>2016-12-22 12:47:28 +0300
committerAlex Kost <alezost@gmail.com>2016-12-29 23:40:24 +0300
commitdeb6276dda81a69da38e842d269c5370a28fa5cf (patch)
tree93e63ad233b0cae6e40473b020be14911cbd7aee /emacs/guix-geiser.el
parent94a6f20bafc2bb7b11cbd150779999ffa738ec7b (diff)
downloadpatches-deb6276dda81a69da38e842d269c5370a28fa5cf.tar
patches-deb6276dda81a69da38e842d269c5370a28fa5cf.tar.gz
Remove Emacs interface.
* emacs/guix-about.el: Remove file. * emacs/guix-backend.el: Likewise. * emacs/guix-base.el: Likewise. * emacs/guix-buffer.el: Likewise. * emacs/guix-build-log.el: Likewise. * emacs/guix-command.el: Likewise. * emacs/guix-config.el.in: Likewise. * emacs/guix-devel.el: Likewise. * emacs/guix-entry.el: Likewise. * emacs/guix-external.el: Likewise. * emacs/guix-geiser.el: Likewise. * emacs/guix-guile.el: Likewise. * emacs/guix-help-vars.el: Likewise. * emacs/guix-helper.scm.in: Likewise. * emacs/guix-history.el: Likewise. * emacs/guix-hydra-build.el: Likewise. * emacs/guix-hydra-jobset.el: Likewise. * emacs/guix-hydra.el: Likewise. * emacs/guix-info.el: Likewise. * emacs/guix-init.el: Likewise. * emacs/guix-license.el: Likewise. * emacs/guix-list.el: Likewise. * emacs/guix-location.el: Likewise. * emacs/guix-main.scm: Likewise. * emacs/guix-messages.el: Likewise. * emacs/guix-pcomplete.el: Likewise. * emacs/guix-popup.el: Likewise. * emacs/guix-prettify.el: Likewise. * emacs/guix-profiles.el: Likewise. * emacs/guix-read.el: Likewise. * emacs/guix-ui-generation.el: Likewise. * emacs/guix-ui-license.el: Likewise. * emacs/guix-ui-location.el: Likewise. * emacs/guix-ui-package.el: Likewise. * emacs/guix-ui-system-generation.el: Likewise. * emacs/guix-ui.el: Likewise. * emacs/guix-utils.el: Likewise. * emacs/local.mk: Likewise. * doc/emacs.texi: Likewise. * doc/guix.texi: Remove cross-references to Emacs nodes. (Package Management): Mention 'emacs-guix' package. * doc/contributing.texi (The Perfect Setup): Remove the reference. * doc/htmlxref.cnf: Add 'emacs-guix' URL. * Makefile.am: Remove Emacs stuff. * configure.ac: Likewise. * gnu/packages/package-management.scm (guix-0.12.0)[native-inputs]: Remove "emacs". [propagated-inputs]: Remove "geiser" and "emacs-magit-popup". Co-authored-by: Ludovic Courtès <ludo@gnu.org>
Diffstat (limited to 'emacs/guix-geiser.el')
-rw-r--r--emacs/guix-geiser.el126
1 files changed, 0 insertions, 126 deletions
diff --git a/emacs/guix-geiser.el b/emacs/guix-geiser.el
deleted file mode 100644
index 833f5bb2b3..0000000000
--- a/emacs/guix-geiser.el
+++ /dev/null
@@ -1,126 +0,0 @@
-;;; guix-geiser.el --- Interacting with Geiser -*- lexical-binding: t -*-
-
-;; Copyright © 2015 Alex Kost <alezost@gmail.com>
-
-;; This file is part of GNU Guix.
-
-;; GNU Guix 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 of the License, or
-;; (at your option) any later version.
-
-;; GNU Guix 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 this program. If not, see <http://www.gnu.org/licenses/>.
-
-;;; Commentary:
-
-;; This file provides functions to evaluate guile code using Geiser.
-
-;;; Code:
-
-(require 'geiser-mode)
-(require 'guix-guile)
-
-(defun guix-geiser-repl ()
- "Return the current Geiser REPL."
- (or geiser-repl--repl
- (geiser-repl--repl/impl 'guile)
- (error "Geiser REPL not found")))
-
-(defun guix-geiser-eval (str &optional repl)
- "Evaluate STR with guile expression using Geiser REPL.
-If REPL is nil, use the current Geiser REPL.
-Return a list of strings with result values of evaluation."
- (with-current-buffer (or repl (guix-geiser-repl))
- (let ((res (geiser-eval--send/wait `(:eval (:scm ,str)))))
- (if (geiser-eval--retort-error res)
- (error "Error in evaluating guile expression: %s"
- (geiser-eval--retort-output res))
- (cdr (assq 'result res))))))
-
-(defun guix-geiser-eval-read (str &optional repl)
- "Evaluate STR with guile expression using Geiser REPL.
-Return elisp expression of the first result value of evaluation."
- ;; The goal is to convert a string with scheme expression into elisp
- ;; expression.
- (let ((result (car (guix-geiser-eval str repl))))
- (cond
- ((or (string= result "#f")
- (string= result "#<unspecified>"))
- nil)
- ((string= result "#t")
- t)
- (t
- (read (replace-regexp-in-string
- "[ (]\\(#f\\)" "nil"
- (replace-regexp-in-string
- "[ (]\\(#t\\)" "t"
- result
- nil nil 1)
- nil nil 1))))))
-
-(defun guix-repl-send (cmd &optional save-history)
- "Send CMD input string to the current REPL buffer.
-This is the same as `geiser-repl--send', but with SAVE-HISTORY
-argument. If SAVE-HISTORY is non-nil, save CMD in the REPL
-history."
- (when (and cmd (eq major-mode 'geiser-repl-mode))
- (geiser-repl--prepare-send)
- (goto-char (point-max))
- (comint-kill-input)
- (insert cmd)
- (let ((comint-input-filter (if save-history
- comint-input-filter
- 'ignore)))
- (comint-send-input nil t))))
-
-(defun guix-geiser-eval-in-repl (str &optional repl no-history no-display)
- "Switch to Geiser REPL and evaluate STR with guile expression there.
-If NO-HISTORY is non-nil, do not save STR in the REPL history.
-If NO-DISPLAY is non-nil, do not switch to the REPL buffer."
- (let ((repl (or repl (guix-geiser-repl))))
- (with-current-buffer repl
- ;; XXX Since Geiser 0.8, `geiser-repl--send' has SAVE-HISTORY
- ;; argument, so use this function eventually and remove
- ;; `guix-repl-send'.
- (guix-repl-send str (not no-history)))
- (unless no-display
- (geiser-repl--switch-to-buffer repl))))
-
-(defun guix-geiser-eval-in-repl-synchronously (str &optional repl
- no-history no-display)
- "Evaluate STR in Geiser REPL synchronously, i.e. wait until the
-REPL operation will be finished.
-See `guix-geiser-eval-in-repl' for the meaning of arguments."
- (let* ((repl (if repl (get-buffer repl) (guix-geiser-repl)))
- (running? nil)
- (filter (lambda (output)
- (setq running?
- (and (get-buffer-process repl)
- (not (guix-guile-prompt? output))))))
- (comint-output-filter-functions
- (cons filter comint-output-filter-functions)))
- (guix-geiser-eval-in-repl str repl no-history no-display)
- (while running?
- (sleep-for 0.1))))
-
-(defun guix-geiser-call (proc &rest args)
- "Call (PROC ARGS ...) synchronously using the current Geiser REPL.
-PROC and ARGS should be strings."
- (guix-geiser-eval
- (apply #'guix-guile-make-call-expression proc args)))
-
-(defun guix-geiser-call-in-repl (proc &rest args)
- "Call (PROC ARGS ...) in the current Geiser REPL.
-PROC and ARGS should be strings."
- (guix-geiser-eval-in-repl
- (apply #'guix-guile-make-call-expression proc args)))
-
-(provide 'guix-geiser)
-
-;;; guix-geiser.el ends here