TakeV/spacemacs
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

Remove auto-close-parens extension.

Browse source
This commit is contained in:
syl20bnr 2013-05-06 21:02:09 -04:00
parent 3420ffde71
commit ddaf007bb3
4 changed files with 0 additions and 51 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

47
extensions/auto-close-parens/auto-close-parens.el
View file

@ -1,47 +0,0 @@
;; -*- coding:euc-jp-unix; -*-
;; close-open-paren.el : insert appropriate closing parenthesis.
;; Ref.: http://www.emacswiki.org/emacs/UniversialCloseParen
;; http://emacswiki.org/emacs/EmacsSyntaxTable
;; skk/skk-tankan.el
(defconst close-open-paren-syntax-table
(let ((table (make-syntax-table)))
(modify-syntax-entry ?{ "(}" table)
(modify-syntax-entry ?} "){" table)
(modify-syntax-entry ?\( "()" table)
(modify-syntax-entry ?\) ")(" table)
(modify-syntax-entry ?\[ "(]" table)
(modify-syntax-entry ?\] ")[" table)
(modify-syntax-entry ?< "(>" table)
(modify-syntax-entry ?> ")<" table)
(modify-syntax-entry ?（ "(）" table) ; 始め小括弧,始め丸括弧, LEFT PARENTHESIS
(modify-syntax-entry ?） ")（" table) ; 終わり小括弧,終わり丸括弧, RIGHT PARENTHESIS
(modify-syntax-entry ?〔 "(〕" table) ; 始めきっこう(亀甲)括弧, LEFT TORTOISE SHELL BRACKET
(modify-syntax-entry ?〕 ")〔" table) ; 終わりきっこう(亀甲)括弧, RIGHT TORTOISE SHELL BRACKET
(modify-syntax-entry ?［ "(］" table) ; 始め大括弧,始め角括弧, LEFT SQUARE BRACKET
(modify-syntax-entry ?］ ")［" table) ; 終わり大括弧,終わり角括弧, RIGHT SQUARE BRACKET
(modify-syntax-entry ?｛ "(｝" table) ; 始め中括弧,始め波括弧, LEFT CURLY BRACKET
(modify-syntax-entry ?｝ ")｛" table) ; 終わり中括弧,終わり波括弧, RIGHT CURLY BRACKET
(modify-syntax-entry ?〈 "(〉" table) ; 始め山括弧, LEFT ANGLE BRACKET
(modify-syntax-entry ?〉 ")〈" table) ; 終わり山括弧, RIGHT ANGLE BRACKET
(modify-syntax-entry ?《 "(》" table) ; 始め二重山括弧, LEFT DOUBLE ANGLE BRACKET
(modify-syntax-entry ?》 ")《" table) ; 終わり二重山括弧, RIGHT DOUBLE ANGLE BRACKET
(modify-syntax-entry ?「 "(」" table) ; 始めかぎ括弧, LEFT CORNER BRACKET
(modify-syntax-entry ?」 ")「" table) ; 終わりかぎ括弧, RIGHT CORNER BRACKET
(modify-syntax-entry ?『 "(』" table) ; 始め二重かぎ括弧, LEFT WHITE CORNER BRACKET
(modify-syntax-entry ?』 ")『" table) ; 終わり二重かぎ括弧, RIGHT WHITE CORNER BRACKET
(modify-syntax-entry ?【 "(】" table) ; 始めすみ付き括弧, LEFT BLACK LENTICULAR BRACKET
(modify-syntax-entry ?】 ")【" table) ; 終わりすみ付き括弧, RIGHT BLACK LENTICULAR BRACKET
(modify-syntax-entry ?\\ "'" table)
table)
"A syntax table for pairs of parentheses.")
(defun close-open-paren ()
(interactive)
(let (pos closing)
(with-syntax-table close-open-paren-syntax-table ; 検索には上の専用文法テーブルを利用
(setq pos (save-excursion (up-list -1) (point))) ; 開き括弧の位置をposへ代入
(setq closing (matching-paren (char-after pos)))) ; posの位置にある開き括弧対応する閉じ括弧をclosingへ
(insert closing))) ; 閉じ括弧を現在の位置へ挿入
(provide 'auto-close-parens)

1
init-extension/init-auto-close-parens.el
View file

@ -1 +0,0 @@
(require 'auto-close-parens)

2
my-keybindings.el
View file

@ -10,8 +10,6 @@
(define-key evil-normal-state-map (kbd "j") 'evil-next-visual-line)
(define-key evil-normal-state-map (kbd "k") 'evil-previous-visual-line)
(define-key evil-insert-state-map (kbd "ESC") 'evil-normal-state)
;; close parens ---------------------------------------------------------------
(global-set-key (kbd ")") 'close-open-paren)
;; mu4e -----------------------------------------------------------------------
(define-key mu4e-main-mode-map (kbd "q") 'mu4e-quit-session)

1
post-extensions.el
View file

@ -1,6 +1,5 @@
(defvar syl:post-extensions
'(
auto-close-parens
auto-highlight-symbol-mode
centered-cursor
dos