Changeset 16402 for dotfiles

Show
Ignore:
Timestamp:
07/25/08 13:52:51 (4 months ago)
Author:
junichiro
Message:

.emacs まわりをいろいろと整理した。(あとgit の練習も兼ねて)

Location:
dotfiles/emacs/junichiro
Files:
7 modified

Legend:

Unmodified
Added
Removed
  • dotfiles/emacs/junichiro/.emacs

    r7450 r16402  
    1616(load "init-twitter") 
    1717(load "init-myfunc") 
     18;;(load "init-git") 
     19;;(load "init-actionscript") 
    1820;;(load "init-w3m") 
    1921;;(load "migemo-w3m") 
  • dotfiles/emacs/junichiro/.emacs.d/conf/init-common.el

    r16400 r16402  
    2626; emacs-server 
    2727(server-start) 
     28(remove-hook 'kill-buffer-query-functions 'server-kill-buffer-query-function) 
    2829 
    2930; tramp 
     
    5758; elscreen 
    5859(require 'elscreen) 
     60 
     61; indent 
     62(setq-default indent-tabs-mode nil) 
     63 
     64; ack 
     65(defun ack () 
     66  (interactive) 
     67  (let ((grep-find-command "ack --nocolor --nogroup ")) 
     68    (call-interactively 'grep-find))) 
     69 
     70; タブや行末スペースを視覚化 
     71;----------------------------------------------------------- 
     72(defface my-face-b-1 '((t (:background "gray"))) nil) 
     73(defface my-face-b-2 '((t (:background "gray26"))) nil) 
     74(defface my-face-u-1 '((t (:foreground "SteelBlue" :underline t))) nil) 
     75(defvar my-face-b-1 'my-face-b-1) 
     76(defvar my-face-b-2 'my-face-b-2) 
     77(defvar my-face-u-1 'my-face-u-1) 
     78 
     79(defadvice font-lock-mode (before my-font-lock-mode ()) 
     80(font-lock-add-keywords 
     81major-mode 
     82'(("\t" 0 my-face-b-2 append) 
     83(" " 0 my-face-b-1 append) 
     84("[ \t]+$" 0 my-face-u-1 append) 
     85))) 
     86(ad-enable-advice 'font-lock-mode 'before 'my-font-lock-mode) 
     87(ad-activate 'font-lock-mode) 
     88;------------------------------------------------------------ 
  • dotfiles/emacs/junichiro/.emacs.d/conf/init-perl.el

    r16400 r16402  
    1313            (setq cperl-indent-parens-as-block t) 
    1414            (setq indent-tabs-mode nil) 
    15             (abbrev-mode 1) 
     15            (abbrev-mode 1) 
    1616            ;; (setq cperl-invalid-face nil) 
    1717            (setq cperl-highlight-variables-indiscriminately t))) 
  • dotfiles/emacs/junichiro/.emacs.d/conf/init-php.el

    r16400 r16402  
    1010             (setq indent-tabs-mode nil))) 
    1111 
     12(require 'flymake-php) 
     13(add-hook 'php-mode-user-hook 'flymake-php-load) 
    1214 
    1315;; (c-set-offset 'case-label '+) 
    1416;; (add-hook 'php-mode-user-hook 
    1517;;           '(lambda () 
    16 ;;           (progn 
    17 ;;             (setq tab-width 4) 
    18 ;;             (setq c-basic-offset 4) 
    19 ;;             (setq c-hanging-comment-ender-p nil) 
    20 ;;             (setq indent-tabs-mode nil)))) 
    21  
    22  
    23  
    24  
    25  
     18;;             (progn 
     19;;             (setq tab-width 4) 
     20;;             (setq c-basic-offset 4) 
     21;;             (setq c-hanging-comment-ender-p nil) 
     22;;             (setq indent-tabs-mode nil)))) 
  • dotfiles/emacs/junichiro/.emacs.d/conf/init-pukiwiki.el

    r7450 r16402  
    99(setq 
    1010 pukiwiki-site-list 
    11  '(("wiki.e-3.jp" 
    12     "http://wiki.e-3.jp/" 
    13     nil euc-jp-dos) 
    14    )) 
    15  
     11 '( 
     12   ("wiki.e-3.jp" "http://wiki.e-3.jp/" nil euc-jp-dos) 
     13   ("sanpowiki"   "http://sanpowiki.seikatsusanpo.jp/" nil euc-jp) 
     14   ) 
     15 ) 
  • dotfiles/emacs/junichiro/.emacs.d/conf/init-twitter.el

    r16401 r16402  
    22(require 'twittering-mode) 
    33(setq twittering-username "jun_ichiro") 
    4 (setq twittering-password "your-password") 
     4(setq twittering-password "p4ssw0rd") 
     5(twittering-scroll-mode t) 
    56; (twittering-icon-mode t) 
    67 
  • dotfiles/emacs/junichiro/.emacs.d/conf/init-window.el

    r7450 r16402  
    22(setq default-frame-alist 
    33      (append (list 
    4                '(foreground-color . "#eeeeee") 
    5                '(background-color . "#000033") 
    6                '(border-color . "red") 
    7                '(mouse-color . "#ffffff") 
    8                '(cursor-color . "#ffff00") 
    9                '(width . 130) 
    10                '(height . 40);small-fontset 
    11                '(top . 25) 
    12                '(left . 210) 
    13                '(vertical-scroll-bars . right)) 
    14               default-frame-alist)) 
     4               '(foreground-color . "#eeeeee") 
     5               '(background-color . "#000033") 
     6               '(border-color . "#ff0000") 
     7               '(mouse-color . "#ffffff") 
     8               '(cursor-color . "#ffff00") 
     9               '(width . 130) 
     10               '(height . 40);small-fontset 
     11               '(top . 25) 
     12               '(left . 210) 
     13               '(vertical-scroll-bars . right)) 
     14              default-frame-alist)) 
    1515(set-face-background 'modeline "#006600")