;;;; lisp-mode-config.el -- John's Lisp setup, including elisp and inf-lisps
;;; Time-stamp: <2006-01-24 12:41:04 jcgs>

(require 'cl)
(require 'editing-behaviour-log)
(require 'sidebrain-setup)
(require 'auto-show-doc)

(progn
  (modify-syntax-entry ?{ "(}" lisp-mode-syntax-table)
  (modify-syntax-entry ?} "){" lisp-mode-syntax-table)
  (modify-syntax-entry 91 "(]" lisp-mode-syntax-table)
  (modify-syntax-entry ?] ")[" lisp-mode-syntax-table))

(defvar emacs-lisp-files-edited-this-session nil
  "Emacs-lisp Files edited this session - we can byte-compile them on exit.")

(defun jcgs-emacs-lisp-write-file-hook ()
  "My write-file hook for elisp."
  (pushnew (buffer-file-name)
	   emacs-lisp-files-edited-this-session
	   :test 'string=)
  nil)

(make-variable-buffer-local 'generated-autoload-file)

(defun jcgs-emacs-lisp-mode-hook ()
  "My emacs lisp mode setup."
  (editing-behaviour-log-mode 1)
  (add-hook 'local-write-file-hooks 'jcgs-emacs-lisp-write-file-hook)
  ;; (require 'auto-help) (add-hook 'post-command-hook 'auto-help t t)
  (make-local-variable 'require-final-newline)
  ;; (make-local-variable 'generated-autoload-file)
  ;; try suppressing these while investigating ``File mode specification error: (error "Quote not allowed here")''
  ;; (sidebrain-read-todo-from-comments)
  ;; (butterfly-note-file)
  (setq require-final-newline t
	generated-autoload-file (expand-file-name (concat (file-name-nondirectory
							   (substring default-directory 0 -1))
							  "-autoload.el")
						  (substitute-in-file-name
						   "$COMMON/emacs/autoload/")))
  (add-hook 'post-command-hook 'auto-show-doc t t)
  
  (if t
      ;; this is mystifying me; that variable doesn't seem to be set at all
      ;; could it be being cleared by normal-mode or kill-all-local-variables later?
      (message "In jcgs-emacs-lisp-mode-hook for %s, default-directory=%s, set generated-autoload-file to %s" 
	       (buffer-file-name) default-directory generated-autoload-file))
  )

(add-hook 'emacs-lisp-mode-hook 'jcgs-emacs-lisp-mode-hook)

(add-hook 'lisp-mode-hook
	  (function
	   (lambda ()
	     (progn
	       ;; (require 'inf-lisp-plus)
	       ;; (define-inf-lisp-plus-keys)
	       (make-variable-buffer-local 'shell-prompt-pattern)
	       (setq shell-prompt-pattern inferior-lisp-prompt)
	       (if (boundp 'inferior-lisp-mode-map)
		   (progn
		     (define-key inferior-lisp-mode-map "]" 'forward-sexp)
		     (define-key inferior-lisp-mode-map "[" 'backward-sexp)
		     (define-key inferior-lisp-mode-map "}" 'down-list)
		     (define-key inferior-lisp-mode-map "{" 'backward-up-list)))
	       (make-local-variable 'fill-prefix)
	       ;; (setq fill-prefix ";;; ")

	       ))))

(setq print-length nil
      eval-expression-print-length nil
      print-level nil
      eval-expression-print-level nil
      read-quoted-char-radix 16)

;;; end of lisp-mode-config.el