216 Text scale adjust

id774 · Dec 2, 2015 · bc4b56f · bc4b56f
1 parent 913ae36
commit bc4b56f
Show file tree

Hide file tree

Showing 2 changed files with 10 additions and 1 deletion.
diff --git a/emacs.d/elisp/global-set-key.el b/emacs.d/elisp/global-set-key.el
@@ -14,7 +14,7 @@
 ;; No more bobcat, no more keyswap!
 (cond ((eq window-system 'x)
        (progn
-	 (global-set-key [delete] 'delete-char)))
+     (global-set-key [delete] 'delete-char)))
       ((eq window-system 'mac)
        t) ;; ok
       (t (keyboard-translate ?\C-h ?\C-?)))
@@ -86,6 +86,10 @@
 (define-key global-map "\C-c\C-c\C-i" 'switch-to-navi2ch)
 (define-key global-map "\C-c\C-c\ i" 'switch-to-navi2ch)
 
+;; C-x 5,6 で文字拡大縮小
+(define-key global-map "\C-x\ 5" 'text-scale-increase)
+(define-key global-map "\C-x\ 6" 'text-scale-decrease)
+
 ;; C-M-g でも keyboard-escape-quit する
 (global-set-key "\C-\M-g" 'keyboard-escape-quit)
 

diff --git a/emacs.d/elisp/lang-mode.el b/emacs.d/elisp/lang-mode.el
@@ -75,6 +75,11 @@
   (add-hook 'text-mode-hook 'zencoding-mode)
   (define-key zencoding-mode-keymap "\C-i" 'zencoding-expand-line))
 
+;; Large scale on text-mode
+(add-hook 'text-mode-hook
+  (lambda ()
+  (text-scale-set 1)))
+
 (load-p "python-mode-settings")
 
 ;; scss-mode