Members/kokubo/emacs: .emacs.d/haskell-mode/haskell-mode.el annotate

author	Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp>
date	Mon, 21 Apr 2014 04:30:59 +0900
parents
children

rev	line source
0 2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	1 ;;; haskell-mode.el --- A Haskell editing mode -- coding: utf-8 --
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	2
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	3 ;; Copyright (C) 2003, 2004, 2005, 2006, 2007, 2008 Free Software Foundation, Inc
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	4 ;; Copyright (C) 1992, 1997-1998 Simon Marlow, Graeme E Moss, and Tommy Thorn
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	5
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	6 ;; Author: 1992 Simon Marlow
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	7 ;; 1997-1998 Graeme E Moss <gem@cs.york.ac.uk> and
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	8 ;; Tommy Thorn <thorn@irisa.fr>,
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	9 ;; 2001-2002 Reuben Thomas (>=v1.4)
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	10 ;; 2003 Dave Love <fx@gnu.org>
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	11 ;; Keywords: faces files Haskell
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	12 ;; URL: https://github.com/haskell/haskell-mode
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	13
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	14 ;; This file is not part of GNU Emacs.
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	15
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	16 ;; This file is free software; you can redistribute it and/or modify
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	17 ;; it under the terms of the GNU General Public License as published by
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	18 ;; the Free Software Foundation; either version 3, or (at your option)
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	19 ;; any later version.
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	20
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	21 ;; This file is distributed in the hope that it will be useful,
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	22 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	23 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	24 ;; GNU General Public License for more details.
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	25
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	26 ;; You should have received a copy of the GNU General Public License
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	27 ;; along with this program. If not, see <http://www.gnu.org/licenses/>.
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	28
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	29 ;;; Commentary:
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	30
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	31 ;; A major mode for editing Haskell (the functional programming
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	32 ;; language, see URL `http://www.haskell.org') in Emacs.
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	33 ;;
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	34 ;; Some of its major features include:
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	35 ;;
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	36 ;; - syntax highlighting (font lock),
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	37 ;;
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	38 ;; - automatic indentation,
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	39 ;;
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	40 ;; - on-the-fly documentation,
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	41 ;;
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	42 ;; - interaction with inferior GHCi/Hugs instance,
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	43 ;;
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	44 ;; - scans declarations and places them in a menu.
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	45 ;;
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	46 ;; See URL `https://github.com/haskell/haskell-mode' and/or
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	47 ;; Info node `(haskell-mode)Introduction' for more information.
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	48 ;;
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	49 ;; Use `M-x haskell-mode-view-news` (after Haskell Mode is installed)
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	50 ;; to show information on recent changes in Haskell Mode.
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	51
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	52 ;;; Change Log:
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	53
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	54 ;; This mode is based on an editing mode by Simon Marlow 11/1/92
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	55 ;; and heavily modified by Graeme E Moss and Tommy Thorn 7/11/98.
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	56 ;;
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	57 ;; Version 1.5:
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	58 ;; Added autoload for haskell-indentation
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	59 ;;
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	60 ;; Version 1.43:
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	61 ;; Various tweaks to doc strings and customization support from
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	62 ;; Ville Skyttä <scop@xemacs.org>.
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	63 ;;
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	64 ;; Version 1.42:
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	65 ;; Added autoload for GHCi inferior mode (thanks to Scott
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	66 ;; Williams for the bug report and fix).
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	67 ;;
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	68 ;; Version 1.41:
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	69 ;; Improved packaging, and made a couple more variables
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	70 ;; interactively settable.
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	71 ;;
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	72 ;; Version 1.4:
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	73 ;; Added GHCi mode from Chris Webb, and tidied up a little.
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	74 ;;
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	75 ;; Version 1.3:
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	76 ;; The literate or non-literate style of a buffer is now indicated
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	77 ;; by just the variable haskell-literate: nil, `bird', or `tex'.
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	78 ;; For literate buffers with ambiguous style, the value of
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	79 ;; haskell-literate-default is used.
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	80 ;;
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	81 ;; Version 1.2:
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	82 ;; Separated off font locking, declaration scanning and simple
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	83 ;; indentation, and made them separate modules. Modules can be
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	84 ;; added easily now. Support for modules haskell-doc,
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	85 ;; haskell-indent, and haskell-hugs. Literate and non-literate
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	86 ;; modes integrated into one mode, and literate buffer indicated by
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	87 ;; value of haskell-literate(-bird-style).
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	88 ;;
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	89 ;; Version 1.1:
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	90 ;; Added support for declaration scanning under XEmacs via
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	91 ;; func-menu. Moved operators to level two fontification.
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	92 ;;
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	93 ;; Version 1.0:
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	94 ;; Added a nice indention support from Heribert Schuetz
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	95 ;; <Heribert.Schuetz@informatik.uni-muenchen.de>:
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	96 ;;
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	97 ;; I have just hacked an Emacs Lisp function which you might prefer
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	98 ;; to `indent-relative' in haskell-mode.el. See below. It is not
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	99 ;; really Haskell-specific because it does not take into account
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	100 ;; keywords like `do', `of', and `let' (where the layout rule
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	101 ;; applies), but I already find it useful.
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	102 ;;
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	103 ;; Cleaned up the imenu support. Added support for literate scripts.
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	104 ;;
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	105 ;; Version 0.103 [HWL]:
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	106 ;; From Hans Wolfgang Loidl <hwloidl@dcs.gla.ac.uk>:
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	107 ;;
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	108 ;; I (HWL) added imenu support by copying the appropriate functions
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	109 ;; from hugs-mode. A menu-bar item "Declarations" is now added in
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	110 ;; haskell mode. The new code, however, needs some clean-up.
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	111 ;;
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	112 ;; Version 0.102:
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	113 ;;
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	114 ;; Moved C-c C-c key binding to comment-region. Leave M-g M-g to do
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	115 ;; the work. comment-start-skip is changed to comply with comment-start.
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	116 ;;
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	117 ;; Version 0.101:
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	118 ;;
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	119 ;; Altered indent-line-function to indent-relative.
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	120 ;;
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	121 ;; Version 0.100:
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	122 ;;
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	123 ;; First official release.
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	124
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	125 ;;; Code:
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	126
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	127 (require 'dabbrev)
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	128 (require 'compile)
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	129 (require 'flymake)
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	130 (require 'outline)
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	131 (require 'haskell-align-imports)
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	132 (require 'haskell-sort-imports)
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	133 (require 'haskell-string)
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	134 (with-no-warnings (require 'cl))
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	135
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	136 ;; FIXME: code-smell: too many forward decls for haskell-session are required here
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	137 (defvar haskell-session)
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	138 (declare-function haskell-process-do-try-info "haskell-process" (sym))
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	139 (declare-function haskell-process-generate-tags "haskell-process" (&optional and-then-find-this-tag))
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	140 (declare-function haskell-session "haskell-session" ())
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	141 (declare-function haskell-session-all-modules "haskell-session" (&optional DONTCREATE))
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	142 (declare-function haskell-session-cabal-dir "haskell-session" (session))
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	143 (declare-function haskell-session-maybe "haskell-session" ())
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	144 (declare-function haskell-session-tags-filename "haskell-session" (session))
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	145 (declare-function haskell-session-current-dir "haskell-session" (session))
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	146
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	147 ;; All functions/variables start with `(literate-)haskell-'.
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	148
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	149 ;; Version of mode.
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	150 (defconst haskell-version "@VERSION@"
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	151 "The release version of `haskell-mode'.")
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	152
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	153 (defconst haskell-git-version "@GIT_VERSION@"
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	154 "The Git version of `haskell-mode'.")
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	155
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	156 (defvar haskell-mode-pkg-base-dir (file-name-directory load-file-name)
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	157 "Package base directory of installed `haskell-mode'.
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	158 Used for locating additional package data files.")
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	159
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	160 ;;;###autoload
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	161 (defun haskell-version (&optional here)
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	162 "Show the `haskell-mode` version in the echo area.
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	163 With prefix argument HERE, insert it at point.
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	164 When FULL is non-nil, use a verbose version string.
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	165 When MESSAGE is non-nil, display a message with the version."
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	166 (interactive "P")
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	167 (let* ((haskell-mode-dir (ignore-errors
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	168 (file-name-directory (or (locate-library "haskell-mode") ""))))
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	169 (_version (format "haskell-mode version %s (%s @ %s)"
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	170 haskell-version
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	171 haskell-git-version
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	172 haskell-mode-dir)))
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	173 (if here
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	174 (insert _version)
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	175 (message "%s" _version))))
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	176
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	177 ;;;###autoload
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	178 (defun haskell-mode-view-news ()
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	179 "Display information on recent changes to haskell-mode."
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	180 (interactive)
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	181 (with-current-buffer (find-file-read-only (expand-file-name "NEWS" haskell-mode-pkg-base-dir))
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	182 (goto-char (point-min))
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	183 (hide-sublevels 1)
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	184 (outline-next-visible-heading 1)
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	185 (show-subtree)))
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	186
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	187 (defgroup haskell nil
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	188 "Major mode for editing Haskell programs."
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	189 :link '(custom-manual "(haskell-mode)")
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	190 :group 'languages
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	191 :prefix "haskell-")
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	192
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	193 ;;;###autoload
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	194 (defun haskell-customize ()
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	195 "Browse the haskell customize sub-tree.
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	196 This calls 'customize-browse' with haskell as argument and makes
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	197 sure all haskell customize definitions have been loaded."
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	198 (interactive)
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	199 ;; make sure all modules with (defcustom ...)s are loaded
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	200 (mapc 'require
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	201 '(haskell-checkers haskell-compile haskell-doc haskell-font-lock haskell-indentation haskell-indent haskell-interactive-mode haskell-menu haskell-process haskell-yas inf-haskell))
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	202 (customize-browse 'haskell))
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	203
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	204 ;; Are we looking at a literate script?
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	205 (defvar haskell-literate nil
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	206 "*If not nil, the current buffer contains a literate Haskell script.
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	207 Possible values are: `bird' and `tex', for Bird-style and LaTeX-style
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	208 literate scripts respectively. Set by `haskell-mode' and
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	209 `literate-haskell-mode'. For an ambiguous literate buffer -- i.e. does
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	210 not contain either \"\\begin{code}\" or \"\\end{code}\" on a line on
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	211 its own, nor does it contain \">\" at the start of a line -- the value
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	212 of `haskell-literate-default' is used.")
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	213 (make-variable-buffer-local 'haskell-literate)
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	214 (put 'haskell-literate 'safe-local-variable 'symbolp)
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	215 ;; Default literate style for ambiguous literate buffers.
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	216 (defcustom haskell-literate-default 'bird
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	217 "Default value for `haskell-literate'.
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	218 Used if the style of a literate buffer is ambiguous. This variable should
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	219 be set to the preferred literate style."
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	220 :group 'haskell
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	221 :type '(choice (const bird) (const tex) (const nil)))
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	222
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	223 ;;;###autoload
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	224 (defvar haskell-mode-map
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	225 (let ((map (make-sparse-keymap)))
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	226 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	227 ;; For inferior haskell mode, use the below bindings
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	228 ;; (define-key map [?\M-C-x] 'inferior-haskell-send-defun)
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	229 ;; (define-key map [?\C-x ?\C-e] 'inferior-haskell-send-last-sexp)
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	230 ;; (define-key map [?\C-c ?\C-r] 'inferior-haskell-send-region)
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	231 (define-key map [?\C-x ?\C-d] 'inferior-haskell-send-decl)
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	232 (define-key map [?\C-c ?\C-z] 'switch-to-haskell)
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	233 (define-key map [?\C-c ?\C-l] 'inferior-haskell-load-file)
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	234 ;; I think it makes sense to bind inferior-haskell-load-and-run to C-c
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	235 ;; C-r, but since it used to be bound to `reload' until June 2007, I'm
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	236 ;; going to leave it out for now.
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	237 ;; (define-key map [?\C-c ?\C-r] 'inferior-haskell-load-and-run)
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	238 (define-key map [?\C-c ?\C-b] 'switch-to-haskell)
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	239 ;; (define-key map [?\C-c ?\C-s] 'inferior-haskell-start-process)
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	240 ;; That's what M-; is for.
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	241 ;; (define-key map "\C-c\C-c" 'comment-region)
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	242 (define-key map (kbd "C-c C-t") 'inferior-haskell-type)
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	243 (define-key map (kbd "C-c C-i") 'inferior-haskell-info)
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	244 (define-key map (kbd "C-c M-.") 'inferior-haskell-find-definition)
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	245 (define-key map (kbd "C-c C-d") 'inferior-haskell-find-haddock)
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	246 (define-key map [?\C-c ?\C-v] 'haskell-check)
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	247
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	248 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	249 ;; Editing-specific commands
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	250 (define-key map (kbd "C-c C-.") 'haskell-mode-format-imports)
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	251 (define-key map [remap delete-indentation] 'haskell-delete-indentation)
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	252
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	253 map)
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	254 "Keymap used in Haskell mode.")
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	255
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	256 (easy-menu-define haskell-mode-menu haskell-mode-map
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	257 "Menu for the Haskell major mode."
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	258 ;; Suggestions from Pupeno <pupeno@pupeno.com>:
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	259 ;; - choose the underlying interpreter
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	260 ;; - look up docs
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	261 `("Haskell"
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	262 ["Indent line" indent-according-to-mode]
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	263 ["Indent region" indent-region mark-active]
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	264 ["(Un)Comment region" comment-region mark-active]
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	265 "---"
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	266 ["Start interpreter" switch-to-haskell]
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	267 ["Load file" inferior-haskell-load-file]
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	268 "---"
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	269 ["Load tidy core" ghc-core-create-core]
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	270 "---"
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	271 ,(if (default-boundp 'eldoc-documentation-function)
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	272 ["Doc mode" eldoc-mode
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	273 :style toggle :selected (bound-and-true-p eldoc-mode)]
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	274 ["Doc mode" haskell-doc-mode
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	275 :style toggle :selected (and (boundp 'haskell-doc-mode) haskell-doc-mode)])
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	276 ["Customize" (customize-group 'haskell)]
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	277 ))
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	278
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	279 ;; Syntax table.
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	280 (defvar haskell-mode-syntax-table
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	281 (let ((table (make-syntax-table)))
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	282 (modify-syntax-entry ?\ " " table)
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	283 (modify-syntax-entry ?\t " " table)
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	284 (modify-syntax-entry ?\" "\"" table)
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	285 (modify-syntax-entry ?\' "\'" table)
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	286 (modify-syntax-entry ?_ "w" table)
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	287 (modify-syntax-entry ?\( "()" table)
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	288 (modify-syntax-entry ?\) ")(" table)
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	289 (modify-syntax-entry ?\[ "(]" table)
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	290 (modify-syntax-entry ?\] ")[" table)
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	291
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	292 (cond ((featurep 'xemacs)
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	293 ;; I don't know whether this is equivalent to the below
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	294 ;; (modulo nesting). -- fx
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	295 (modify-syntax-entry ?{ "(}5" table)
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	296 (modify-syntax-entry ?} "){8" table)
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	297 (modify-syntax-entry ?- "_ 1267" table))
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	298 (t
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	299 ;; In Emacs 21, the `n' indicates that they nest.
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	300 ;; The `b' annotation is actually ignored because it's only
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	301 ;; meaningful on the second char of a comment-starter, so
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	302 ;; on Emacs 20 and before we get wrong results. --Stef
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	303 (modify-syntax-entry ?\{ "(}1nb" table)
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	304 (modify-syntax-entry ?\} "){4nb" table)
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	305 (modify-syntax-entry ?- "_ 123" table)))
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	306 (modify-syntax-entry ?\n ">" table)
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	307
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	308 (let (i lim)
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	309 (map-char-table
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	310 (lambda (k v)
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	311 (when (equal v '(1))
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	312 ;; The current Emacs 22 codebase can pass either a char
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	313 ;; or a char range.
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	314 (if (consp k)
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	315 (setq i (car k)
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	316 lim (cdr k))
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	317 (setq i k
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	318 lim k))
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	319 (while (<= i lim)
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	320 (when (> i 127)
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	321 (modify-syntax-entry i "_" table))
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	322 (setq i (1+ i)))))
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	323 (standard-syntax-table)))
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	324
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	325 (modify-syntax-entry ?\` "$`" table)
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	326 (modify-syntax-entry ?\\ "\\" table)
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	327 (mapc (lambda (x)
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	328 (modify-syntax-entry x "_" table))
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	329 ;; Some of these are actually OK by default.
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	330 "!#$%&*+./:<=>?@^\|~")
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	331 (unless (featurep 'mule)
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	332 ;; Non-ASCII syntax should be OK, at least in Emacs.
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	333 (mapc (lambda (x)
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	334 (modify-syntax-entry x "_" table))
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	335 (concat "¡¢£¤¥¦§¨©ª«¬®¯°±²³´µ¶·¸¹º»¼½¾¿"
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	336 "×÷"))
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	337 (mapc (lambda (x)
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	338 (modify-syntax-entry x "w" table))
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	339 (concat "ÀÁÂÃÄÅÆÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖ"
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	340 "ØÙÚÛÜÝÞß"
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	341 "àáâãäåæçèéêëìíîïðñòóôõö"
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	342 "øùúûüýþÿ")))
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	343 table)
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	344 "Syntax table used in Haskell mode.")
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	345
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	346 (defun haskell-ident-at-point ()
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	347 "Return the identifier under point, or nil if none found.
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	348 May return a qualified name."
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	349 (let ((reg (haskell-ident-pos-at-point)))
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	350 (when reg
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	351 (buffer-substring-no-properties (car reg) (cdr reg)))))
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	352
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	353 (defun haskell-ident-pos-at-point ()
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	354 "Return the span of the identifier under point, or nil if none found.
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	355 May return a qualified name."
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	356 (save-excursion
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	357 ;; Skip whitespace if we're on it. That way, if we're at "map ", we'll
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	358 ;; see the word "map".
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	359 (if (and (not (eobp))
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	360 (eq ? (char-syntax (char-after))))
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	361 (skip-chars-backward " \t"))
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	362
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	363 (let ((case-fold-search nil))
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	364 (multiple-value-bind (start end)
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	365 (if (looking-at "\\s_")
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	366 (list (progn (skip-syntax-backward "_") (point))
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	367 (progn (skip-syntax-forward "_") (point)))
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	368 (list
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	369 (progn (skip-syntax-backward "w'")
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	370 (skip-syntax-forward "'") (point))
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	371 (progn (skip-syntax-forward "w'") (point))))
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	372 ;; If we're looking at a module ID that qualifies further IDs, add
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	373 ;; those IDs.
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	374 (goto-char start)
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	375 (while (and (looking-at "[[:upper:]]") (eq (char-after end) ?.)
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	376 ;; It's a module ID that qualifies further IDs.
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	377 (goto-char (1+ end))
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	378 (save-excursion
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	379 (when (not (zerop (skip-syntax-forward
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	380 (if (looking-at "\\s_") "_" "w'"))))
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	381 (setq end (point))))))
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	382 ;; If we're looking at an ID that's itself qualified by previous
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	383 ;; module IDs, add those too.
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	384 (goto-char start)
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	385 (if (eq (char-after) ?.) (forward-char 1)) ;Special case for "."
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	386 (while (and (eq (char-before) ?.)
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	387 (progn (forward-char -1)
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	388 (not (zerop (skip-syntax-backward "w'"))))
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	389 (skip-syntax-forward "'")
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	390 (looking-at "[[:upper:]]"))
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	391 (setq start (point)))
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	392 ;; This is it.
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	393 (cons start end)))))
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	394
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	395 (defun haskell-delete-indentation (&optional arg)
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	396 "Like `delete-indentation' but ignoring Bird-style \">\"."
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	397 (interactive "*P")
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	398 (let ((fill-prefix (or fill-prefix (if (eq haskell-literate 'bird) ">"))))
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	399 (delete-indentation arg)))
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	400
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	401 ;; Various mode variables.
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	402
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	403 (defcustom haskell-mode-hook nil
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	404 "Hook run after entering `haskell-mode'.
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	405
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	406 Some of the supported modules that can be activated via this hook:
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	407
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	408 `haskell-decl-scan', Graeme E Moss
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	409 Scans top-level declarations, and places them in a menu.
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	410
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	411 `haskell-doc', Hans-Wolfgang Loidl
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	412 Echoes types of functions or syntax of keywords when the cursor is idle.
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	413
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	414 `haskell-indentation', Kristof Bastiaensen
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	415 Intelligent semi-automatic indentation Mk2
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	416
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	417 `haskell-indent', Guy Lapalme
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	418 Intelligent semi-automatic indentation.
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	419
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	420 `haskell-simple-indent', Graeme E Moss and Heribert Schuetz
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	421 Simple indentation.
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	422
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	423 Module X is activated using the command `turn-on-X'. For example,
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	424 `haskell-doc' is activated using `turn-on-haskell-doc'.
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	425 For more information on a specific module, see the help for its `X-mode'
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	426 function. Some modules can be deactivated using `turn-off-X'.
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	427
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	428 See Info node `(haskell-mode)haskell-mode-hook' for more details.
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	429
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	430 Warning: do not enable more than one of the three indentation
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	431 modes. See Info node `(haskell-mode)indentation' for more
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	432 details."
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	433 :type 'hook
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	434 :group 'haskell
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	435 :link '(info-link "(haskell-mode)haskell-mode-hook")
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	436 :link '(function-link haskell-mode)
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	437 :options `(capitalized-words-mode
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	438 imenu-add-menubar-index
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	439 turn-on-eldoc-mode
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	440 turn-on-haskell-decl-scan
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	441 turn-on-haskell-doc
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	442 turn-on-haskell-indent
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	443 turn-on-haskell-indentation
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	444 turn-on-haskell-simple-indent
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	445 turn-on-haskell-unicode-input-method))
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	446
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	447 (defvar eldoc-print-current-symbol-info-function)
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	448
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	449 ;; For compatibility with Emacs < 24, derive conditionally
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	450 (defalias 'haskell-parent-mode
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	451 (if (fboundp 'prog-mode) 'prog-mode 'fundamental-mode))
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	452
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	453 ;; The main mode functions
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	454 ;;;###autoload
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	455 (define-derived-mode haskell-mode haskell-parent-mode "Haskell"
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	456 "Major mode for editing Haskell programs.
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	457
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	458 See also Info node `(haskell-mode)Getting Started' for more
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	459 information about this mode.
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	460
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	461 \\<haskell-mode-map>
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	462 Literate scripts are supported via `literate-haskell-mode'.
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	463 The variable `haskell-literate' indicates the style of the script in the
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	464 current buffer. See the documentation on this variable for more details.
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	465
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	466 Use `haskell-version' to find out what version of Haskell mode you are
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	467 currently using.
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	468
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	469 Additional Haskell mode modules can be hooked in via `haskell-mode-hook';
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	470 see documentation for that variable for more details."
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	471 :group 'haskell
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	472 (set (make-local-variable 'paragraph-start) (concat "^$\\\|" page-delimiter))
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	473 (set (make-local-variable 'paragraph-separate) paragraph-start)
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	474 (set (make-local-variable 'fill-paragraph-function) 'haskell-fill-paragraph)
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	475 ;; (set (make-local-variable 'adaptive-fill-function) 'haskell-adaptive-fill)
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	476 (set (make-local-variable 'adaptive-fill-mode) nil)
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	477 (set (make-local-variable 'comment-start) "-- ")
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	478 (set (make-local-variable 'comment-padding) 0)
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	479 (set (make-local-variable 'comment-start-skip) "[-{]-[ \t]*")
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	480 (set (make-local-variable 'comment-end) "")
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	481 (set (make-local-variable 'comment-end-skip) "[ \t]*\\(-}\\\|\\s>\\)")
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	482 (set (make-local-variable 'parse-sexp-ignore-comments) nil)
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	483 (set (make-local-variable 'indent-line-function) 'haskell-mode-suggest-indent-choice)
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	484 ;; Set things up for eldoc-mode.
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	485 (set (make-local-variable 'eldoc-documentation-function)
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	486 'haskell-doc-current-info)
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	487 ;; Set things up for imenu.
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	488 (set (make-local-variable 'imenu-create-index-function)
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	489 'haskell-ds-create-imenu-index)
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	490 ;; Set things up for font-lock.
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	491 (set (make-local-variable 'font-lock-defaults)
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	492 '(haskell-font-lock-choose-keywords
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	493 nil nil ((?\' . "w") (?_ . "w")) nil
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	494 (font-lock-syntactic-keywords
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	495 . haskell-font-lock-choose-syntactic-keywords)
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	496 (font-lock-syntactic-face-function
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	497 . haskell-syntactic-face-function)
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	498 ;; Get help from font-lock-syntactic-keywords.
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	499 (parse-sexp-lookup-properties . t)))
2764b4f45f9f 1st commit Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> parents: diff changeset	500 ;; Haskell's layout rules mean that TABs have to be handled with extra care.

0

2764b4f45f9f 1st commit