1. Using CHICKEN with emacs
    1. scheme-complete
    2. Dan's Emacs Extensions
    3. hen.el
    4. paredit
    5. Quack
    6. Cluck
    7. Builtin Scheme support
    8. Useful elisp snippets
      1. Tweaking stock scheme-mode indentation
      2. Auto-inserting portable shebang boilerplate on creating a scheme file

Using CHICKEN with emacs

Various packages exist for supporting Scheme programming with the emacs editor.

CHICKEN's git repository contains two emacs modes that can be helpful for writing CHICKEN code: chicken.el and flymake-chicken.el

scheme-complete

Particularly recommended is Alex Shinn's scheme-complete, which provides intelligent autocompletion:

http://synthcode.com/emacs/scheme-complete-0.8.7.el.gz http://synthcode.com/wiki/scheme-complete

Dan's Emacs Extensions

dans-custom-emacs provides a set of extensions that enable full offline auto-complete w/ chicken-doc integration, complete font-lock support including prefixed modules, and support for all presently installed chicken modules.

Recommended for those who find themselves coding without a reliable REPL.

hen.el

hen.el is an emacs mode specifically for CHICKEN, but is currently unmaintained:

http://www.call-with-current-continuation.org/hen.el

To use it, copy it somewhere into a location you normally use for emacs extensions and add this to your emacs initialization file:

 (require 'hen)

To enable it, do an M-x hen-mode or add the following to your emacs initialization file to use Hen for all CHICKEN files:

 (setq auto-mode-alist (append 
                      '(("\\.scm$" . hen-mode)
                        ("\\.meta$" . hen-mode)
                        ("\\.setup$" . hen-mode)) auto-mode-alist))

paredit

paredit provides structural editing for Scheme and Lisp code:

http://mumble.net/~campbell/emacs/paredit.el

Quack

Neil van Dyke's Quack enhances Emacs support for Scheme and can be used for editing CHICKEN code.

The screenshot above shows GNU Emacs using Quack to edit a "hello world" program and the CHICKEN REPL being executed from within Emacs.

Cluck

cluck is a clone of Quack but specialized for CHICKEN scheming.

Builtin Scheme support

Emacs has builtin support for syntax-highlighting of Scheme code and running a Scheme interpreter in an interactive buffer. To use it with CHICKEN, add this to your ~/.emacs file:

 (setq scheme-program-name "csi -:c")

The -:c is to force interactive mode, which is required on some platforms (most notably Windows).

This variable is customizable, which is the preferred way in GNU Emacs and XEmacs to set user preferences: menu Options -> Customize Emacs -> Specific Option, type in scheme-program-name. Emacs displays a form; fill in csi -:c for the program name, click "Set for Current Session", and then "Save for Future Sessions". This will update (or create if it does not already exist) the custom-set-variables section in your ~/.emacs file.

Useful elisp snippets

I have these definitions in my ~/.emacs file, which allow loading the current buffer, optionally by compiling it first to native code:

(define-key scheme-mode-map "\C-c\C-l" 'scheme-load-current-file)
(define-key scheme-mode-map "\C-c\C-k" 'scheme-compile-current-file)

(require 'cmuscheme)

(define-key scheme-mode-map "\C-c\C-l" 'scheme-load-current-file)
(define-key scheme-mode-map "\C-c\C-k" 'scheme-compile-current-file)

(defun scheme-load-current-file (&optional switch)
  (interactive "P")
  (let ((file-name (buffer-file-name)))
    (comint-check-source file-name)
    (setq scheme-prev-l/c-dir/file (cons (file-name-directory    file-name)
					 (file-name-nondirectory file-name)))
    (comint-send-string (scheme-proc) (concat "(load \""
					      file-name
					      "\"\)\n"))
    (if switch
      (switch-to-scheme t)
      (message "\"%s\" loaded." file-name) ) ) )

(defun scheme-compile-current-file (&optional switch)
  (interactive "P")
  (let ((file-name (buffer-file-name)))
    (comint-check-source file-name)
    (setq scheme-prev-l/c-dir/file (cons (file-name-directory    file-name)
					 (file-name-nondirectory file-name)))
    (message "compiling \"%s\" ..." file-name)
    (comint-send-string (scheme-proc) (concat "(compile-file \""
					      file-name
					      "\"\)\n"))
    (if switch
      (switch-to-scheme t)
      (message "\"%s\" compiled and loaded." file-name) ) ) )

Tweaking stock scheme-mode indentation

;; Indenting module body code at column 0
(defun scheme-module-indent (state indent-point normal-indent) 0)
(put 'module 'scheme-indent-function 'scheme-module-indent)

(put 'and-let* 'scheme-indent-function 1)
(put 'parameterize 'scheme-indent-function 1)
(put 'handle-exceptions 'scheme-indent-function 1)
(put 'when 'scheme-indent-function 1)
(put 'unless 'scheme-indent-function 1)
(put 'match 'scheme-indent-function 1)

Auto-inserting portable shebang boilerplate on creating a scheme file

See also the writing portable scripts page.

(require 'autoinsert)
(add-hook 'find-file-hooks 'auto-insert)

(setq auto-insert-alist 
      '(("\\.scm" . 
         (insert "#!/bin/sh\n#| -*- scheme -*-\nexec csi -s $0 \"$@\"\n|#\n"))))