Changeset 289 for dotfiles/emacs/kentaro/.emacs.d/conf/init-languages.el

Timestamp:

09/27/07 19:27:24 (16 months ago)

Author:

kentaro

Message:

dotfiles/emacs/kentaro:

• added init-autosave-buffers.el
  
• added init-scheme.el
  
• added init-w3m.el
  
• added some utilities into init-perl.el
  

Files:

• dotfiles/emacs/kentaro/.emacs.d/conf/init-languages.el (modified) (1 diff)

dotfiles/emacs/kentaro/.emacs.d/conf/init-languages.el

@@ -17 +17 @@
 (global-set-key "\C-c\C-f" 'find-tag)
 (global-set-key "\C-c\C-b" 'pop-tag-mark)
+
+;; infoファイル置き場を追加
+(setq Info-default-directory-list
+      (cons "~/.emacs.d/info" Info-default-directory-list))
+
+;; リージョンを自動的に囲む
+;; http://sami.samhuri.net/2007/6/23/emacs-for-textmate-junkies
+(defun wrap-region (left right beg end)
+  "Wrap the region in arbitrary text, LEFT goes to the left and RIGHT goes to the right."
+  (interactive)
+  (save-excursion
+    (goto-char beg)
+    (insert left)
+    (goto-char (+ end (length left)))
+    (insert right)))
+
+(defmacro wrap-region-with-function (left right)
+  "Returns a function which, when called, will interactively `wrap-region-or-insert' using LEFT and RIGHT."
+  `(lambda () (interactive)
+     (wrap-region-or-insert ,left ,right)))
+
+(defun wrap-region-with-tag-or-insert ()
+  (interactive)
+  (if (and mark-active transient-mark-mode)
+      (call-interactively 'wrap-region-with-tag)
+    (insert "<")))
+
+(defun wrap-region-with-tag (tag beg end)
+  "Wrap the region in the given HTML/XML tag using `wrap-region'. If any
+attributes are specified then they are only included in the opening tag."
+  (interactive "*sTag (including attributes): \nr")
+  (let* ((elems    (split-string tag " "))
+         (tag-name (car elems))
+         (right    (concat "</" tag-name ">")))
+    (if (= 1 (length elems))
+        (wrap-region (concat "<" tag-name ">") right beg end)
+      (wrap-region (concat "<" tag ">") right beg end))))
+
+(defun wrap-region-or-insert (left right)
+  "Wrap the region with `wrap-region' if an active region is marked, otherwise insert LEFT at point."
+  (interactive)
+  (if (and mark-active transient-mark-mode)
+      (wrap-region left right (region-beginning) (region-end))
+    (insert left)))
+
+(global-set-key "'"  (wrap-region-with-function "'" "'"))
+(global-set-key "\"" (wrap-region-with-function "\"" "\""))
+(global-set-key "`"  (wrap-region-with-function "`" "`"))
+(global-set-key "("  (wrap-region-with-function "(" ")"))
+(global-set-key "["  (wrap-region-with-function "[" "]"))
+(global-set-key "{"  (wrap-region-with-function "{" "}"))
+(global-set-key "<"  'wrap-region-with-tag-or-insert)