root/lang/elisp/shutter/shutter.el @ 27425

;; shutter.el --- anything shutter.

;; Copyright (C) 2008  Narihiro Nakamura

;; Author: Narihiro Nakamura <authorNari@gmail.com>
;; Keywords: convenience
;; Version: 0.1.0

;; This file 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 3, or (at your option)
;; any later version.

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

;; You should have received a copy of the GNU General Public License
;; along with GNU Emacs; see the file COPYING.  If not, write to
;; the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
;; Boston, MA 02110-1301, USA.

;;; Commentary:

;; In order to use this function, put this file into
;; a directory included in load-path,
;; and add following code to your .emacs.
;; +------------------------+
;; (require 'shutter)
;; (define-key global-map "\C-ct" 'shut_up)
;; +------------------------+

;;; Example:

;; "FooBar..  |"| insert when You use shutter.el
;; [FooBar..  |]| insert when You use shutter.el
;; 'FooBar..  |'| insert when You use shutter.el
;; `FooBar..  |`| insert when You use shutter.el
;; (FooBar..  |)| insert when You use shutter.el

;;; Code:
(defvar shut-matching-delimeter-alist
  '(("[" . "]")
    ("{" . "}")
    ("(" . ")")
    ("'" . "'")
    ("`" . "`")
    ("\"" . "\"")))

(defvar user-shut-matching-delimeter-alist nil)

(defun shut-matching-char (arg)
  (interactive "P")
  (insert (cdr (assoc arg
                      shut-matching-delimeter-alist))))

(defun set-shut-matching-delimeter-alist (alist)
  (interactive "P")
  (setq user-shut-matching-delimeter-alist alist))

(defun shut-up ()
  (interactive)
  (let ((delimeters (if user-shut-matching-delimeter-alist
                        user-shut-matching-delimeter-alist
                        shut-matching-delimeter-alist))
        (searched)
        (cursor))
    (progn
      (setq cursor (point))
      (while delimeters
        (progn
          (if (and (not-pair (car delimeters))
                   (search-backward (car (car delimeters)) nil t))
            (if (or (eq searched nil)
                     (< (car searched) (match-beginning 0)))
                (setq searched (cons (match-beginning 0) (car (car delimeters))))))
          (setq delimeters (cdr delimeters))
          (goto-char cursor)))
      (if searched
          (shut-matching-char (cdr searched))))
    ))

(defun not-pair (delimeters)
  (let ((cursor))
    (progn
      (setq cursor (point))
      (if (string-equal (car delimeters) (cdr delimeters))
          (let ((count 2))
            (progn
              (while (search-backward (car delimeters) nil t)
                (setq count (+ count 1)))
;;          (message "delimeters = %s : count = %s : return %s : same delimeters = %s"
;;                   (car delimeters) count (eq (% count 2) 1) (string-equal (car delimeters) (cdr delimeters)))
;;          (sit-for 1)
              (goto-char cursor)
              (eq (% count 2) 1)))
        (let ((open 0) (close 0))
          (progn
            (while (search-backward (car delimeters) nil t)
              (setq open (+ open 1)))
            (goto-char cursor)
            (while (search-backward (cdr delimeters) nil t)
              (setq close (+ close 1)))
;;          (message "delimeters = %s : open %s : close %s : return %s : same delimeters = %s"
;;                   cursor open close (eq open close) (string-equal (car delimeters) (cdr delimeters)))
;;          (sit-for 1)
        (goto-char cursor)
        (not (eq open close))))))))

(provide 'shutter)