Changeset 27187 for dotfiles/emacs

Show
Ignore:
Timestamp:
12/22/08 07:58:11 (4 years ago)
Author:
kozo-ni
Message:

moved tool adn scroll-bar setting to init-gui

Location:
dotfiles/emacs/kozo-ni/.emacs.d/conf
Files:
8 modified

Legend:

Unmodified
Added
Removed

  • dotfiles/emacs/kozo-ni/.emacs.d/conf/init-R.el

    r24719 r27187  
    11(require 'ess-site) 
     2 
    23(add-hook 'inferior-ess-mode-hook 
    3           (function 
    4            (lambda () 
    5              (local-set-key "\"" 'electric-pair) 
    6              (local-set-key "\'" 'electric-pair) 
    7              (local-set-key "(" 'electric-pair) 
    8              (local-set-key "[" 'electric-pair) 
    9              (local-set-key "{" 'electric-pair) 
    10              (local-set-key "\C-j" 'ess-smart-underscore) 
    11              (local-set-key (kbd ",") (my-chr '(", " ","))) 
    12              ))) 
     4          (function 
     5           (lambda () 
     6             (local-set-key "\"" 'electric-pair) 
     7             (local-set-key "\'" 'electric-pair) 
     8             (local-set-key "(" 'electric-pair) 
     9             (local-set-key "[" 'electric-pair) 
     10             (local-set-key "{" 'electric-pair) 
     11             (local-set-key "\C-j" 'ess-smart-underscore) 
     12             (local-set-key (kbd ",") (my-chr '(", " ","))) 
     13             ))) 
     14 
    1315(add-hook 'ess-mode-hook 
    14           (function 
    15            (lambda () 
    16              (local-set-key "\"" 'electric-pair) 
    17              (local-set-key "\'" 'electric-pair) 
    18              (local-set-key "(" 'electric-pair) 
    19              (local-set-key "[" 'electric-pair) 
    20              (local-set-key "{" 'electric-pair) 
    21              (local-set-key "\C-j" 'ess-smart-underscore) 
    22              (local-set-key (kbd ",") (my-chr '(", " ","))) 
    23              ))) 
     16          (function 
     17           (lambda () 
     18             (local-set-key "\"" 'electric-pair) 
     19             (local-set-key "\'" 'electric-pair) 
     20             (local-set-key "(" 'electric-pair) 
     21             (local-set-key "[" 'electric-pair) 
     22             (local-set-key "{" 'electric-pair) 
     23             (local-set-key "\C-j" 'ess-smart-underscore) 
     24             (local-set-key (kbd ",") (my-chr '(", " ","))) 
     25             ))) 

  • dotfiles/emacs/kozo-ni/.emacs.d/conf/init-apache.el

    r24719 r27187  
    77(add-to-list 'auto-mode-alist '("access\\.conf\\'" . apache-mode)) 
    88(add-to-list 'auto-mode-alist 
    9              '("sites-\\(available\\|enabled\\)/" . apache-mode)) 
     9             '("sites-\\(available\\|enabled\\)/" . apache-mode)) 

  • dotfiles/emacs/kozo-ni/.emacs.d/conf/init-dired.el

    r26985 r27187  
    1010;; http://www-aos.eps.s.u-tokyo.ac.jp/~takagi/SubversionMemo.html#sec41 
    1111(add-hook 'dired-mode-hook 
    12           (function 
    13            (lambda () 
    14              (local-set-key "V" 'svn-status) 
    15              (local-set-key "j" 'dired-next-line) 
    16              (local-set-key "k" 'dired-previous-line) 
    17              (local-set-key "q" 'kill-this-buffer) 
    18              ))) 
     12          (function 
     13           (lambda () 
     14             (local-set-key "V" 'svn-status) 
     15             (local-set-key "j" 'dired-next-line) 
     16             (local-set-key "k" 'dired-previous-line) 
     17             (local-set-key "q" 'kill-this-buffer) 
     18             ))) 
    1919(setq svn-status-hide-unmodified t) 

  • dotfiles/emacs/kozo-ni/.emacs.d/conf/init-elisp.el

    r26983 r27187  
    44 
    55(add-hook 'emacs-lisp-mode-hook 
    6           (function 
    7            (lambda () 
    8              (local-set-key "\"" 'electric-pair) 
    9              (local-set-key "(" 'electric-pair) 
    10              (local-set-key "{" 'electric-pair) 
    11              (local-set-key "\C-c\C-n" 'describe-function) 
    12              (local-set-key "\C-c\C-v" 'describe-variable) 
    13              ))) 
     6          (function 
     7           (lambda () 
     8             (local-set-key "\"" 'electric-pair) 
     9             (local-set-key "(" 'electric-pair) 
     10             (local-set-key "{" 'electric-pair) 
     11             (local-set-key "\C-c\C-n" 'describe-function) 
     12             (local-set-key "\C-c\C-v" 'describe-variable) 
     13             ))) 
    1414 
    1515(add-hook 'lisp-interaction-mode-hook 
    16           (function 
    17            (lambda () 
    18              (local-set-key "\"" 'electric-pair) 
    19              (local-set-key "(" 'electric-pair) 
    20              (local-set-key "{" 'electric-pair) 
    21              (local-set-key "\C-c\C-n" 'describe-function) 
    22              (local-set-key "\C-c\C-v" 'describe-variable) 
    23              ))) 
     16          (function 
     17           (lambda () 
     18             (local-set-key "\"" 'electric-pair) 
     19             (local-set-key "(" 'electric-pair) 
     20             (local-set-key "{" 'electric-pair) 
     21             (local-set-key "\C-c\C-n" 'describe-function) 
     22             (local-set-key "\C-c\C-v" 'describe-variable) 
     23             ))) 

  • dotfiles/emacs/kozo-ni/.emacs.d/conf/init-function.el

    r24719 r27187  
    1717(defun my-chr (list-of-string) 
    1818  (lexical-let ((los list-of-string) 
    19                 (last-word "") 
    20                 (count 0)) 
     19                (last-word "") 
     20                (count 0)) 
    2121    (lambda () 
    2222      (interactive) 
    2323      (if (eq this-command real-last-command) 
    24           (incf count) 
    25         (setq count 0)) 
     24          (incf count) 
     25        (setq count 0)) 
    2626      (when (>= count (length los)) 
    27         (setq count 0)) 
     27        (setq count 0)) 
    2828      (let ((word (nth count los))) 
    29         (when (eq this-command real-last-command) 
    30           (delete-backward-char (length last-word))) 
    31         (setq last-word word) 
    32         (insert word))))) 
     29        (when (eq this-command real-last-command) 
     30          (delete-backward-char (length last-word))) 
     31        (setq last-word word) 
     32        (insert word))))) 
    3333 
    3434;; (global-set-key (kbd "=") (my-chr '(" = " " == " " === "))) 

  • dotfiles/emacs/kozo-ni/.emacs.d/conf/init-gui.el

    r24719 r27187  
    44(color-theme-initialize) 
    55(color-theme-clarity) 
     6 
     7(tool-bar-mode nil) 
     8(scroll-bar-mode nil) 

  • dotfiles/emacs/kozo-ni/.emacs.d/conf/init-mac.el

    r24719 r27187  
    11(setq default-frame-alist 
    22      (append (list 
    3                '(line-spacing . 7) 
    4                ) 
    5               default-frame-alist)) 
     3               '(line-spacing . 7) 
     4               ) 
     5              default-frame-alist)) 
    66 
    77;; http://groups.google.com/group/carbon-emacs/browse_thread/thread/3e89e4c41ffc0c65?hl=en 

  • dotfiles/emacs/kozo-ni/.emacs.d/conf/init-misc.el

    r26987 r27187  
    33 
    44(menu-bar-mode nil) 
    5 (tool-bar-mode nil) 
    6 (scroll-bar-mode nil) 
    75 
    86(setq visible-bell t)