forked from technomancy/emacs-starter-kit
-
Notifications
You must be signed in to change notification settings - Fork 0
/
textmate-ext.el
31 lines (23 loc) · 1.07 KB
/
textmate-ext.el
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
;;;###autoload
(defun tf-textmate-ext-bind-keys ()
(cond ((featurep 'aquamacs) (tf-textmate-ext-bind-aquamacs-keys))
((featurep 'mac-carbon) (tf-textmate-ext-bind-carbon-keys))
((featurep 'ns) (tf-textmate-ext-bind-ns-keys))))
(defun tf-textmate-ext-bind-carbon-keys ()
(define-key *textmate-mode-map* [(meta /)] 'comment-or-uncomment-region-or-line)
(define-key *textmate-mode-map* [C-return] 'tf-textmate-ext-previous-line)
(define-key *textmate-mode-map* (kbd "M-[") 'align))
(defun tf-textmate-ext-bind-ns-keys ()
(define-key *textmate-mode-map* [(meta /)] 'comment-or-uncomment-region-or-line)
(define-key *textmate-mode-map* [C-return] 'tf-textmate-ext-previous-line)
(define-key *textmate-mode-map* (kbd "M-[") 'align))
(defun tf-textmate-ext-previous-line ()
"Insert a blank line above the cursor and move the cursor up one line."
(interactive)
(beginning-of-line)
(newline-and-indent)
(previous-line)
(indent-according-to-mode))
;;;###autoload
(add-hook 'textmate-mode-hook 'tf-textmate-ext-bind-keys)
(provide 'topfunky/textmate-ext)