[nongnu] elpa/geiser-chez dbebff9 31/37: preparing MELPA submission

[Philip Kaludercic]

branch: elpa/geiser-chez
commit dbebff9386747e30fa0904ff22460455c1c527be
Author: jao <jao@gnu.org>
Commit: jao <jao@gnu.org>

    preparing MELPA submission
---
 geiser-chez.el | 43 ++++++++++++++++++++++++++++++++-----------
 readme.org     |  4 +++-
 2 files changed, 35 insertions(+), 12 deletions(-)

diff --git a/geiser-chez.el b/geiser-chez.el
index 3c72cbf..0b10304 100644
--- a/geiser-chez.el
+++ b/geiser-chez.el
@@ -1,21 +1,22 @@
-;;; geiser-chez.el -- Chez Scheme's implementation of the geiser protocols
+;;; geiser-chez.el --- Chez Scheme's implementation of the geiser protocols  
-*- lexical-binding: t; -*-
 
 ;; Author: Peter <craven@gmx.net>
-;; Maintainer:
+;; Maintainer: Jose A Ortega Ruiz <jao@gnu.org>
 ;; Keywords: languages, chez, scheme, geiser
 ;; Homepage: https://gitlab.com/emacs-geiser/chez
-;; Package-Requires: ((emacs "24.4") (geiser-core "1.0"))
+;; Package-Requires: ((emacs "24.4") (geiser "0.12"))
 ;; SPDX-License-Identifier: BSD-3-Clause
-;; Version: 0.1
+;; Version: 0.13
 
-;; 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>.
+;;; Commentary:
+
+;; This package provides support for Chez scheme in geiser.
 
 
 ;;; Code:
 
+(require 'geiser)
+
 (require 'geiser-connection)
 (require 'geiser-syntax)
 (require 'geiser-custom)
@@ -23,7 +24,6 @@
 (require 'geiser-eval)
 (require 'geiser-edit)
 (require 'geiser-log)
-(require 'geiser)
 
 (require 'compile)
 (require 'info-look)
@@ -62,6 +62,7 @@
 ;;; REPL support:
 
 (defun geiser-chez--binary ()
+  "Return path to Chez scheme binary."
   (if (listp geiser-chez-binary)
       (car geiser-chez-binary)
     geiser-chez-binary))
@@ -85,6 +86,7 @@ This function uses `geiser-chez-init-file' if it exists."
 ;;; Evaluation support:
 
 (defun geiser-chez--geiser-procedure (proc &rest args)
+  "Transform PROC in string for a scheme procedure using ARGS."
   (cl-case proc
     ((eval compile)
      (let ((form (mapconcat 'identity (cdr args) " "))
@@ -104,6 +106,7 @@ This function uses `geiser-chez-init-file' if it exists."
        (format "(geiser:%s %s)" proc form)))))
 
 (defun geiser-chez--get-module (&optional module)
+  "Find current module, or normalize MODULE."
   (cond ((null module)
          :f)
         ((listp module) module)
@@ -114,24 +117,31 @@ This function uses `geiser-chez-init-file' if it exists."
         (t :f)))
 
 (defun geiser-chez--symbol-begin (module)
+  "Return beginning of current symbol while in MODULE."
   (if module
       (max (save-excursion (beginning-of-line) (point))
            (save-excursion (skip-syntax-backward "^(>") (1- (point))))
     (save-excursion (skip-syntax-backward "^'-()>") (point))))
 
 (defun geiser-chez--import-command (module)
+  "Return string representing an sexp importing MODULE."
   (format "(import %s)" module))
 
-(defun geiser-chez--exit-command () "(exit 0)")
+(defun geiser-chez--exit-command ()
+  "Retrun string representing a REPL exit sexp."
+  "(exit 0)")
+
 ;; 
 ;; ;;; REPL startup
 
 (defconst geiser-chez-minimum-version "9.4")
 
 (defun geiser-chez--version (binary)
+  "Use BINARY to find Chez scheme version."
   (car (process-lines binary "--version")))
 
-(defun geiser-chez--startup (remote)
+(defun geiser-chez--startup (_remote)
+  "Startup function."
   (let ((geiser-log-verbose-p t))
     (compilation-setup t)
     (geiser-eval--send/wait "(begin (import (geiser)) (write `((result ) 
(output . \"\"))) (newline))")))
@@ -140,6 +150,7 @@ This function uses `geiser-chez-init-file' if it exists."
 ;;; Error display:
 
 (defun geiser-chez--display-error (module key msg)
+  "Display an error found in MODULE with the given KEY and message MSG."
   (when (stringp msg)
     (save-excursion (insert msg))
     (geiser-edit--buttonize-files))
@@ -179,6 +190,7 @@ This function uses `geiser-chez-init-file' if it exists."
     "with-output-to-string"))
 
 (defun geiser-chez--keywords ()
+  "Return list of Chez-specific keywords."
   (append
    (geiser-syntax--simple-keywords geiser-chez-extra-keywords)
    (geiser-syntax--simple-keywords geiser-chez--builtin-keywords)))
@@ -240,5 +252,14 @@ This function uses `geiser-chez-init-file' if it exists."
 
 (geiser-impl--add-to-alist 'regexp "\\.ss$" 'chez t)
 (geiser-impl--add-to-alist 'regexp "\\.def$" 'chez t)
+
+;;;###autoload
+(autoload 'run-chez "geiser-chez" "Start a Geiser Chez REPL." t)
+
+;;;###autoload
+(autoload 'switch-to-chez "geiser-chez"
+  "Start a Geiser Chez REPL, or switch to a running one." t)
+
 
 (provide 'geiser-chez)
+;;; geiser-chez.el ends here
diff --git a/readme.org b/readme.org
index 294f665..4336740 100644
--- a/readme.org
+++ b/readme.org
@@ -3,6 +3,8 @@
 This package provides support for using 
[[https://cisco.github.io/ChezScheme/][Chez Scheme]] in Emacs with
 [[http://geiser.nongnu.org][Geiser]].
 
-Provided [[https://gitlab.com/emacs-geiser/core][geiser-core]] is installed in 
your system, if this package's
+Provided [[https://gitlab.com/emacs-geiser/geiser][geiser]] is installed in 
your system, if this package's
 directory is in your load path, just add ~(require 'geiser-chez)~ to
 your initialisation files and then ~M-x run-chez~ to start a REPL.
+
+The easiest way to install this package is from MELPA.