;; TextMate behaviour on Emacs

;; Copyright (C) 2008  Orestis Markou

;; 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 2

;; of the License, 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.

;; You should have received a copy of the GNU General Public License

;; along with this program; if not, write to the Free Software

;; Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA  02110-1301, USA.

;;

;; You can file issues, send comments and get the latest version at:

;; http://code.google.com/p/emacs-textmate/

;;

;; Contributions welcome!

;;

;;

;;

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(provide 'textmate-mode)

(define-minor-mode textmate-mode

       "Toggle Textmate mode.

     With no argument, this command toggles the mode.

     Non-null prefix argument turns on the mode.

     Null prefix argument turns off the mode.

"     

      ;; The initial value.

      nil

      ;; The indicator for the mode line.

      " TM"

      ;; The minor mode bindings.

      '(

	([backspace] . textmate-backspace2)

        ("\"" . move-over-dbl-quote)

        ("\'" . move-over-quote)

        (")" . move-over-bracket)

        ("]" . move-over-square)

        ("}" . move-over-curly)

        ("[" . skeleton-pair-insert-maybe)

        ("(" . skeleton-pair-insert-maybe)

        ("{" . skeleton-pair-insert-maybe)

	;; Duplicate TextMate's auto-indent

	([return] . newline-and-indent)

	;; Duplicate TextMate's command-return

	("\M-\r" . open-next-line)

	;; Duplicate TextMate's goto line

	("\M-l" . goto-line)

        )       

      :group 'textmate

      (progn

        (setq skeleton-pair t))

      )

;;implementation stuff

;; Function to open and goto indented next line

(defun open-next-line()

  (interactive)

  (move-end-of-line nil)

  (newline-and-indent))

(setq textmate-pairs '( ( ?\( . ?\) )

  (  ?\' . ?\' )

  (  ?\" . ?\" )

  (  ?[ . ?] )

  (  ?{ . ?} )

  )

      )

(defun is-empty-pair ()

  (interactive)

  (eq (cdr (assoc (char-before)  textmate-pairs)) (char-after)  )

  )

(defun textmate-backspace2 ()

 (interactive)

 (if (eq (char-after) nil)

  nil   ;; if char-after is nil, just backspace

 (if (is-empty-pair)

     (delete-char 1)

   )

 )

(delete-backward-char 1)

)

(setq pushovers

      '(

        (?\" . (lambda () (forward-char 1) ))

        (?\' . (lambda () (forward-char 1) ))

        (?\) . (lambda () (up-list 1) ))

        (?\] . (lambda () (up-list 1) ))

        (?\} . (lambda () (up-list 1) ))

        ))

(setq defaults

      '(

        (?\" . (lambda () (skeleton-pair-insert-maybe nil) ))

        (?\' . (lambda () (skeleton-pair-insert-maybe nil) ))

        (?\) . (lambda () (insert-char ?\) 1) ))

        (?\] . (lambda () (insert-char ?\] 1) ))

        (?\} . (lambda () (insert-char ?\} 1) ))

        ))

(defun move-over (char)

(if (eq (char-after) char)

    (funcall (cdr (assoc char pushovers)))

    (funcall (cdr (assoc char defaults)))

  )

)

(defun move-over-bracket ()  (interactive)(move-over ?\) ))

(defun move-over-curly ()  (interactive)(move-over ?\} ))

(defun move-over-square ()  (interactive)(move-over ?\] ))

(defun move-over-quote ()  (interactive)(move-over ?\' ))

(defun move-over-dbl-quote ()  (interactive)(move-over ?\" ))