;;; BODYCODE.EL --- An emacs-mode to help bodycoders.

;; Copyright (C) 2003 Jerome BESNARD

;; Author: Jonh Doo bodycode@free.fr
;; Maintainer: Jonh Doo bodycode@free.fr
;; Created: 26 Sep 2003
;; Version: 1.0
;; Keywords:
 
;; This program 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 1, or (at your option)
;; any later version.

;; This program 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.

;; A copy of the GNU General Public License can be obtained from this
;; program's author (send electronic mail to jerome.besnard@m4x.org) or
;; from the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139,
;; USA.

;; LCD Archive Entry:
;; bodycode|Jonh Doo|bodycode@free.fr
;; |An emacs-mode to help bodycoders.
;; |$Date$|$Revision$|~/packages/bodycode.el

;;; Commentary:

;;; Change log:
;; $Log$

;;; Code:

(defconst bodycode-version (substring "$Revision: 1.0$" 11 -2)
  "$Id$

Report bugs to: Jonh Doo   bodycode@free.fr")

(require 'easymenu)

;;;###autoload
(defcustom bodycode-mode-line-string " BC"
  "Mode line indicator of Bodycode minor mode."
  :type 'string
  :group 'folding)

(defvar bodycode-mode-map nil)

(defvar bodycode-mode-menu nil)

(defvar bodycode-mode-menu-definition
	'("BC"
	  ["Start Bodycode" bodycoding-start t]
	  ["End Bodycoding" bodycoding-stop t]
	  "----"
	  ("Bodycoding modes"
	   ["Randomized keyboard" bodycoding-keyboard-randomized t]
	   ["Binary keyboard"  bodycoding-keyboard-binary t]
	   ["Old fashion keyboard" bodycoding-keyboard-oldfashion t]
	   ["Standard keyboard" bodycoding-keyboard-standard t])
	  ("Artistic bodycoding"
	   ["Artistic ruling" bodycoding-artistic-ruling t])
	  ))
(unless bodycode-mode-map
  (setq bodycode-mode-map (make-sparse-keymap)))

(easy-menu-define bodycode-mode-menu bodycode-mode-map
  "Menu for Bodycoders." bodycode-mode-menu-definition)

(define-minor-mode bodycode-mode
  "Emacs mode for bodycoders."
  nil
  " BC"
  bodycode-mode-map
  )

(defun bodycoding-start ()
  (interactive)
  (message "Start BodyCoding..."))
(defun bodycoding-stop ()
  (interactive)
  (message "Stop BodyCoding..."))
(defun bodycoding-keyboard-randomized ()
  (interactive)
  (message "Not implemented yet..."))
(defun bodycoding-keyboard-oldfashion ()
  (interactive)
  (message "Not implemented yet..."))
(defun bodycoding-keyboard-standard ()
  (interactive)
  (message "Not implemented yet..."))
(defun bodycoding-keyboard-binary ()
  (interactive)
  (message "Not implemented yet..."))
(defun bodycoding-artistic-ruling ()
  (interactive)
  (message "Not implemented yet..."))

(provide 'bodycode)

;;; BODYCODE.EL ends here
;;; Local Variables: ***
;;; mode:emacs-lisp ***
;;; auto-recompile:t ***
;;; comment-column:0 ***
;;; End: ***