10sr
/
dotfiles-mirror
mirror of https://github.com/10sr/dotfiles.git
1
0
Fork 0
Code Issues 0 Releases 0 Wiki Activity
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
19 Commits
1 Branch
70 MiB
 
 
 
 
 
 
Tree: 1d2f80b4d3
Branches Tags
${ item.name }
Create branch ${ searchTerm }
from '1d2f80b4d3'
${ noResults }
dotfiles-mirror/.emacs

1846 lines
65 KiB
Raw Blame History 

  1. ;; 外部ファイル読み込み

  2. ;; (load-file "~/filepath")

  3. 

  4. ;; (thing-at-point 'word)

  5. ;; (define-generic-mode)

  6. 

  7. (unless (file-directory-p (expand-file-name "~/.emacs.d"))

  8.   (make-directory (expand-file-name "~/.emacs.d")))

  9. (unless (file-directory-p (expand-file-name "~/.emacs.d/lisp"))

  10.   (make-directory (expand-file-name "~/.emacs.d/lisp")))

  11. (add-to-list 'load-path "~/.emacs.d/lisp")

  12. (add-to-list 'load-path "~/dbx/Public/myelisp")

  13. 

  14. (require 'cl)

  15. 

  16. (defvar my-prefix-map

  17.   (make-sparse-keymap))

  18. (global-set-key (kbd "C-z") my-prefix-map)

  19. (define-key my-prefix-map (kbd "C-z") 'suspend-frame)

  20. 

  21. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

  22. ;; start and quit

  23. 

  24. (setq inhibit-startup-message t)

  25. (setq frame-title-format (list '(:eval (my-format-time-string))

  26.                                " | %b "

  27.                                '(:eval (number-to-string (length (buffer-list-not-start-with-space))))

  28.                                " buffers ["

  29.                                invocation-name

  30.                                " "

  31.                                emacs-version

  32.                                " "

  33.                                (symbol-name system-type)

  34.                                "] "

  35.                                '(:eval (symbol-name last-command))))

  36. (defun buffer-list-not-start-with-space ()

  37.   (let ((bl (buffer-list))

  38.         b nbl)

  39.     (while bl

  40.       (setq b (pop bl))

  41.       (unless (string-equal " "

  42.                             (substring (buffer-name b)

  43.                                        0

  44.                                        1))

  45.         (add-to-list 'nbl b)))

  46.     nbl))

  47. (setq confirm-kill-emacs 'y-or-n-p)

  48. (setq gc-cons-threshold (* 1024 1024 4))

  49. (when window-system

  50.   (add-to-list 'default-frame-alist '(cursor-type . box))

  51.   (add-to-list 'default-frame-alist '(background-color . "white"))

  52.   (add-to-list 'default-frame-alist '(foreground-color . "gray10"))

  53.   (add-to-list 'default-frame-alist '(alpha . (80 100 100 100)))) ;聞いてないみたい

  54. (if window-system (menu-bar-mode 1) (menu-bar-mode 0))

  55. (tool-bar-mode 0)

  56. (set-scroll-bar-mode nil)

  57. (add-hook 'kill-emacs-hook      ; 終了時に読み込んで壊れてないか調べる

  58.           (lambda ()

  59.             (when (file-readable-p "~/.emacs")

  60.               (load-file "~/.emacs"))))

  61. 

  62. (when (eq system-type 'Darwin)

  63.   (mac-set-input-method-parameter ’japanese ’cursor-color ”red”)

  64.   (mac-set-input-method-parameter ’roman ’cursor-color ”black”))

  65. 

  66. (when (and (boundp 'input-method-activate-hook) ;ちょっと正しいかわかんない

  67.            (boundp 'input-method-inactivate-hook))

  68.   (add-hook 'input-method-activate-hook

  69.             (lambda () (set-cursor-color "red")))

  70.   (add-hook 'input-method-inactivate-hook

  71.             (lambda () (set-cursor-color "black"))))

  72. 

  73. (cd ".")  ; when using windows use / instead of \ in default-directory

  74. 

  75. ;; locale

  76. (set-language-environment "Japanese")

  77. (set-default-coding-systems 'utf-8)

  78. (prefer-coding-system 'utf-8)

  79. (setq system-time-locale "C")

  80. 

  81. ;; display

  82. (setq redisplay-dont-pause t)

  83. (setq visible-bell t)

  84. (setq ring-bell-function 'ignore)

  85. 

  86. ;; (comint-show-maximum-output)

  87. 

  88. ;; change color for border

  89. (set-face-foreground (make-face 'vertical-border-face) "red")

  90. (set-display-table-slot standard-display-table 'vertical-border

  91.                         (make-glyph-code #x3a 'vertical-border-face))

  92. 

  93. ;; kill scratch

  94. (add-hook 'after-init-hook

  95.           (lambda ()

  96.             (kill-buffer "*scratch*")))

  97. 

  98. (defun my-delete-frame-or-kill-emacs ()

  99.   "delete frame when opening multiple frame, kill emacs when only one."

  100.   (interactive)

  101.   (if (eq 1

  102.           (length (frame-list)))

  103.       (save-buffers-kill-emacs)

  104.     (delete-frame)))

  105. (global-set-key (kbd "C-x C-c") 'my-delete-frame-or-kill-emacs)

  106. (define-key my-prefix-map (kbd "C-x C-c") 'save-buffers-kill-emacs)

  107. 

  108. ;; modifier keys

  109. (setq mac-option-modifier 'control)

  110. (setq w32-apps-modifier 'meta)

  111. 

  112. ;; http://www.emacswiki.org/emacs/ChangingCursorDynamically

  113. ;; bufferの保存はなんで必要なんだろう？

  114. ;; Change cursor color according to mode

  115. (defvar hcz-set-cursor-color-color "")

  116. (defvar hcz-set-cursor-color-buffer "")

  117. (defun hcz-set-cursor-color-according-to-mode ()

  118.   "change cursor color according to some minor modes."

  119.   ;; set-cursor-color is somewhat costly, so we only call it when needed:

  120.   (let ((color

  121.          (if buffer-read-only "blue"

  122.            (if overwrite-mode "yellow"

  123.              "black"))))

  124.     (unless (and

  125.              (string= color hcz-set-cursor-color-color)

  126.              (string= (buffer-name) hcz-set-cursor-color-buffer))

  127.       (set-cursor-color (setq hcz-set-cursor-color-color color))

  128.       (setq hcz-set-cursor-color-buffer (buffer-name)))))

  129. (add-hook 'post-command-hook 'hcz-set-cursor-color-according-to-mode)

  130. 

  131. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

  132. ;; minibuffer

  133. 

  134. (setq insert-default-directory t)

  135. (setq completion-ignore-case t

  136.       read-file-name-completion-ignore-case t

  137.       read-buffer-completion-ignore-case t)

  138. (setq resize-mini-window t)

  139. (temp-buffer-resize-mode 1)

  140. 

  141. (fset 'yes-or-no-p 'y-or-n-p)

  142. 

  143. (define-key read-expression-map (kbd "TAB") 'lisp-complete-symbol) ; complete symbol when `eval'

  144. 

  145. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

  146. ;; editting

  147. (setq require-final-newline t)

  148. (setq kill-whole-line t)

  149. (setq scroll-conservatively 35

  150.       scroll-margin 2

  151.       scroll-step 0)                    ;4行ずつスクロール?

  152. (setq default-major-mode 'text-mode)

  153. (setq next-line-add-newlines nil)

  154. (setq kill-read-only-ok t)

  155. (setq truncate-partial-width-windows nil) ; when splitted horizontally

  156. ;; (setq-default line-spacing 0.2)

  157. (setq-default indicate-empty-lines t)   ; なんだろうこれ

  158. (setq-default tab-width 4)

  159. (setq-default indent-tabs-mode nil)

  160. (pc-selection-mode 1)

  161. (delete-selection-mode 1)

  162. 

  163. ;; key bindings

  164. (global-set-key (kbd "C-m") 'newline-and-indent)

  165. (global-set-key (kbd "C-o") (lambda ()

  166.                               (interactive)

  167.                               (goto-char (point-at-eol))

  168.                               (newline-and-indent)))

  169. (global-set-key (kbd "C-k") 'kill-whole-line)

  170. (global-set-key (kbd "M-k") 'my-copy-whole-line)

  171. ;; (global-set-key "\C-z" 'undo) ; undo is C-/

  172. ;; (global-set-key (kbd "C-<return>") (lambda () (interactive) (insert "\f\n")))

  173. (global-set-key (kbd "M-u") 'undo)

  174. (global-set-key (kbd "C-r") 'query-replace-regexp)

  175. (global-set-key (kbd "C-s") 'isearch-forward-regexp)

  176. (global-set-key (kbd "M-i") (lambda ()

  177.                               (interactive)

  178.                               (call-interactively (key-binding (kbd "M-TAB")))))

  179. 

  180. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

  181. ;; letters and font-lock-mode

  182. 

  183. (show-paren-mode 1)

  184. (setq show-paren-style 'mixed)

  185. 

  186. (transient-mark-mode 1)

  187. (global-font-lock-mode 1)

  188. 

  189. (standard-display-ascii ?\n "$\n")

  190. (defface my-eol-face

  191.   '((t (:foreground "gray")))

  192.   "eol.")

  193. 

  194. (standard-display-ascii ?\f "---------------------------------------------------------------------------------------^L")

  195. (defface my-pagebreak-face

  196.   '((t (:foreground "gray")))

  197.   "pagebreak.")

  198. 

  199. (defvar my-eol-face

  200.   '(("\n" . '(0 my-eol-face t nil))))

  201. (defvar my-pagebreak-face

  202.   '(("\f" . 'my-pagebreak-face)))

  203. (defvar my-highlight-face

  204.   '(("\t" . '(0 highlight t nil))

  205.     ("　" . '(0 highlight t nil))))

  206. 

  207. ;; (defvar my-face

  208. ;;   '(("\t" . 'highlight)

  209. ;;     ("　" . 'highlight)

  210. ;;     ("\n" . '(0 my-eol-face t nil))

  211. ;;     ("\f" . 'my-pagebreak-face)))

  212. 

  213. (setq font-lock-global-modes

  214.       '(not

  215.         help-mode

  216.         eshell-mode

  217.         term-mode

  218.         Man-mode))

  219. 

  220. (add-hook 'font-lock-mode-hook

  221.           (lambda ()

  222.             (font-lock-add-keywords nil my-eol-face)

  223.             (font-lock-add-keywords nil my-highlight-face)))

  224. 

  225. (set-face-foreground 'font-lock-regexp-grouping-backslash "#666")

  226. (set-face-foreground 'font-lock-regexp-grouping-construct "#f60")

  227. 

  228. ;; fonts

  229. 

  230. ;; (defun my-w32-set-font ()

  231. ;;   "set font for windows."

  232. ;;   ((lambda (&rest lists)

  233. ;;      (let ((dir "c:/WINDOWS/Fonts")

  234. ;;            lfs)

  235. ;;        (while lists

  236. ;;          (setq lfs (pop lists))

  237. ;;          (when (directory-files dir nil (car lfs))

  238. ;;            (my-set-ascii-and-jp-font-with-size (cdr lfs))

  239. ;;            (setq lists nil)))))

  240. ;;    '("^DejaVuSansMono" "dejavu sans mono" 80 "ms gothic" 12)

  241. ;;    '("^inconsolata" "inconsolata" 100 "ms gothic" 12)))

  242. 

  243. ;; (defun my-w32-set-available-ascii-and-jp-font-with-size (&rest lists)

  244. ;;   ""

  245. ;;   (let ((dir "c:/WINDOWS/Fonts")

  246. ;;         lfs)

  247. ;;     (while lists

  248. ;;       (setq lfs (pop lists))

  249. ;;       (when (directory-files dir nil (car lfs))

  250. ;;         (my-set-ascii-and-jp-font-with-size (cdr lfs))

  251. ;;         (setq lists nil)))))

  252. 

  253. (defun my-set-ascii-and-jp-font-with-size (list)

  254.   ""

  255.   (set-face-attribute 'default nil

  256.                       :family (nth 0 list)

  257.                       :height (nth 1 list))

  258.   (set-fontset-font "fontset-default"

  259.                     'japanese-jisx0208

  260.                     (font-spec :family (nth 2 list) :size (nth 3 list)))

  261.   (set-fontset-font "fontset-default"

  262.                     'katakana-jisx0201

  263.                     (font-spec :family (nth 2 list) :size (nth 3 list)))) ; font spec is available in emacs23 and later, cannot used in emacs22

  264. ;; (my-set-ascii-and-jp-font-with-size '("dejavu sans mono" 90 "takaogothic" 13))

  265. ;; (my-set-ascii-and-jp-font-with-size '("dejavu sans mono" 100 "takaogothic" 14))

  266. ;; (my-set-ascii-and-jp-font-with-size '("monaco" 75 "takaogothic" 11))

  267. ;; (my-set-ascii-and-jp-font-with-size '("monaco" 90 "takaogothic" 13))

  268. ;; (my-set-ascii-and-jp-font-with-size '("ProggyCleanTTSZ" 120 "takaogothic" 11))

  269. ;; あ

  270. 

  271. (defun my-22-set-ascii-and-jp-font-with-size (list)

  272.   ""

  273.   (set-face-attribute 'default nil

  274.                       :family (nth 0 list)

  275.                       :height (nth 1 list))

  276.   (set-fontset-font "fontset-default"

  277.                     'japanese-jisx0208

  278.                     (cons (nth 2 list) "jisx0208.*"))

  279.   (set-fontset-font "fontset-default"

  280.                     'katakana-jisx0201

  281.                     (cons (nth 2 list) "jisx0201.*")))

  282. 

  283. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

  284. ;; mode-line

  285. 

  286. (which-function-mode 0)

  287. 

  288. (line-number-mode 0)

  289. (column-number-mode 0)

  290. (size-indication-mode 0)

  291. (setq mode-line-position

  292.       '(:eval (format "L%%l/%d,C%%c"

  293.                       (count-lines (point-max)

  294.                                    (point-min)))))

  295. 

  296. 

  297. ;; http://www.geocities.jp/simizu_daisuke/bunkei-meadow.html#frame-title

  298. ;; display date

  299. (add-hook 'after-init-hook

  300.           (lambda ()

  301.             (setq display-time-string-forms

  302.                   '(dayname ", " day " " monthname " " year " " 24-hours ":"minutes ":" seconds))

  303.             (setq display-time-string-forms

  304.                   '((my-format-time-string)))

  305.             (when display-time-mode

  306.               (display-time-update))

  307.             ))

  308. (setq display-time-interval 29)

  309. (setq display-time-day-and-date t)

  310. (if window-system

  311.     (display-time-mode 0)

  312.   (display-time-mode 1))

  313. 

  314. ;; current directory

  315. (let ((ls (member 'mode-line-buffer-identification

  316.                   mode-line-format)))

  317.   (setcdr ls

  318.           (cons '(:eval (concat " ("

  319.                                 (abbreviate-file-name default-directory)

  320.                                 ")"))

  321.                 (cdr ls))))

  322. 

  323. (let ((ls (member 'mode-line-buffer-identification

  324.                   mode-line-format)))

  325.   (setcdr ls

  326.           (cons '(:eval (concat " "

  327.                                 my-buffer-file-last-modified-time))

  328.                 (cdr ls))))

  329. 

  330. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

  331. ;; back up and auto saving

  332. ;; http://www.bookshelf.jp/soft/meadow_24.html#SEC260

  333. (setq make-backup-files t)

  334. ;; (make-directory (expand-file-name "~/.emacsbackup"))

  335. (setq backup-directory-alist

  336.       (cons (cons "\\.*$" (expand-file-name "~/.emacs.d/backup"))

  337.             backup-directory-alist))

  338. (setq version-control t)

  339. (setq delete-old-versions t)

  340. 

  341. (setq auto-save-list-file-prefix (expand-file-name "~/.emacs.d/autosave/"))

  342. (setq delete-auto-save-files t)

  343. 

  344. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

  345. ;; for emacsclient

  346. ;; (if window-system (server-start))

  347. 

  348. 

  349. 

  350. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

  351. ;; global keys

  352. 

  353. (define-key my-prefix-map (kbd "C-f") 'make-frame-command)

  354. (define-key my-prefix-map (kbd "C-o") 'occur)

  355. 

  356. ;; moving around

  357. ;; (global-set-key (kbd "M-j") 'next-line)

  358. ;; (global-set-key (kbd "M-k") 'previous-line)

  359. ;; (global-set-key (kbd "M-h") 'backward-char)

  360. ;; (global-set-key (kbd "M-l") 'forward-char)

  361. ;;(keyboard-translate ?\M-j ?\C-j)

  362. (global-set-key (kbd "M-p") 'backward-paragraph)

  363. (global-set-key (kbd "M-n") 'forward-paragraph)

  364. (global-set-key (kbd "C-<up>") (lambda () (interactive)(scroll-down 1)))

  365. (global-set-key (kbd "C-<down>") (lambda () (interactive)(scroll-up 1)))

  366. (global-set-key (kbd "C-<left>") 'scroll-down)

  367. (global-set-key (kbd "C-<right>") 'scroll-up)

  368. (global-set-key (kbd "C-x M-x") 'execute-extended-command)

  369. (global-set-key (kbd "C-x M-:") 'eval-expression)

  370. 

  371. ;; C-h and DEL

  372. ;; (global-set-key (kbd "C-h") 'backward-delete-char-untabify)

  373. ;; (global-set-key (kbd "DEL") help-map)

  374. (global-set-key (kbd "C-h") (lambda ()

  375.                               (interactive)

  376.                               (call-interactively (key-binding (kbd "DEL")))))

  377. ;; (keyboard-translate ?\^h ?\^?) ; scimにはC-hを送りたい

  378. ;; (keyboard-translate ?\b ?\^h)          ; dont translate backspace

  379. 

  380. ;; (define-key my-prefix-map (kbd "C-h") help-map)

  381. (global-set-key (kbd "C-\\") help-map)

  382. (global-set-key (kbd "C-x DEL") help-map)

  383. (global-set-key (kbd "C-x C-h") help-map)

  384. (define-key help-map "a" 'apropos)

  385. 

  386. ;; compose window

  387. (global-set-key [?\C--] 'other-window)

  388. (global-set-key [?\C-0] 'delete-window)

  389. (global-set-key [?\C-1] 'delete-other-windows)

  390. (global-set-key [?\C-2] 'split-window-vertically)

  391. (global-set-key [?\C-3] 'split-window-horizontally)

  392. 

  393. ;; disable annoying keys

  394. (global-set-key [prior] 'ignore)

  395. (global-set-key (kbd "<next>") 'ignore)

  396. (global-set-key [menu] 'ignore)

  397. (global-set-key [down-mouse-1] 'ignore)

  398. (global-set-key [down-mouse-2] 'ignore)

  399. (global-set-key [down-mouse-3] 'ignore)

  400. (global-set-key [mouse-1] 'ignore)

  401. (global-set-key [mouse-2] 'ignore)

  402. (global-set-key [mouse-3] 'ignore)

  403. (global-set-key (kbd "<eisu-toggle>") 'ignore)

  404. (global-set-key (kbd "C-<eisu-toggle>") 'ignore)

  405. 

  406. (mouse-avoidance-mode 'banish)

  407. 

  408. 

  409. 

  410. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

  411. ;; download library from web

  412. 

  413. ;; (require 'url)

  414. 

  415. ;; (defun dllib-if-needed (lib url &optional callback bite-compile-p force-download-p) ; dont use it

  416. ;;   "if LIB does not exist, download it from URL and rename to \"~/emacs.d/lisp/LIB.el\".

  417. ;; after download LIB successfully call CALLBACK. if LIB already exist, call CALLBACK immediately."

  418. ;;   (let* ((dir (expand-file-name "~/.emacs.d/lisp/"))

  419. ;;          (lpath (concat dir lib ".el")))

  420. ;;     (and (if (or force-download-p (not (locate-library lib)))

  421. ;;              (condition-case nil

  422. ;;                  (progn (url-copy-file url

  423. ;;                                        lpath

  424. ;;                                        t)

  425. ;;                         (and bite-compile-p

  426. ;;                              (byte-compile-file lpath)

  427. ;;                              t))

  428. ;;                (error (message "downloading %s...something wrong happened!" url)

  429. ;;                       nil))

  430. ;;            t)

  431. ;;          callback

  432. ;;          (funcall callback))))

  433. 

  434. (defun dllib-if-unfound (lib url &optional bite-compile-p force-download-p) ; new version

  435.   "if LIB does not exist, download it from URL and locate it to \"~/emacs.d/lisp/LIB.el\".

  436. return nil if LIB unfound and downloading failed, otherwise the path of LIB."

  437.   (let* ((dir (expand-file-name "~/.emacs.d/lisp/"))

  438.          (lpath (concat dir lib ".el"))

  439.          (locate-p (locate-library lib)))

  440.     (if (or force-download-p (not locate-p))

  441.         (progn (condition-case nil

  442.                    (progn (message "downloading %s..." url)

  443.                           (url-copy-file url

  444.                                          lpath

  445.                                          t)

  446.                           (when bite-compile-p

  447.                             (byte-compile-file lpath)))

  448.                  (error (message "downloading %s...something wrong happened!" url)

  449.                         nil))

  450.                (locate-library lib))

  451.       locate-p)))

  452. 

  453. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

  454. ;;requireが必要なelispおよびhook

  455. 

  456. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

  457. ;; share clipboard with x

  458. (when (or window-system

  459.           (getenv "DESKTOP_SESSION"))

  460.   (setq x-select-enable-clipboard t))

  461. 

  462. ;; urlに細かい説明あり。でも設定は上記だけでよさそう

  463. ;; http://garin.jp/doc/Linux/xwindow_clipboard

  464. 

  465. (and x-select-enable-clipboard

  466.      (executable-find "xclip")

  467.      (dllib-if-unfound "xclip" "http://www.emacswiki.org/emacs/download/xclip.el" t)

  468.      (require 'xclip nil t)

  469.      (turn-on-xclip))

  470. 

  471. ;; カーソルの場所を保存する

  472. (when (require 'saveplace nil t)

  473.   (setq-default save-place t))

  474. 

  475. ;; その他のhook

  476. (add-hook 'after-save-hook

  477.           'executable-make-buffer-file-executable-if-script-p)

  478. (add-hook 'find-file-hook

  479.           (lambda ()

  480.             (when buffer-read-only

  481.               (view-mode 1))))

  482. 

  483. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

  484. ;; mode関連

  485. 

  486. ;; (ffap-bindings)

  487. 

  488. (add-hook 'inferior-python-mode-hook

  489.           (lambda ()

  490.             (define-key inferior-python-mode-map (kbd "<up>") 'comint-previous-input)

  491.             (define-key inferior-python-mode-map (kbd "<down>") 'comint-next-input)))

  492. 

  493. (add-to-list 'Info-default-directory-list (expand-file-name "~/.info/emacs-ja"))

  494. 

  495. (setq bookmark-default-file "~/.emacs.d/bmk")

  496. 

  497. (add-hook 'apropos-mode-hook

  498.           (lambda ()

  499.             (define-key apropos-mode-map "j" 'next-line)

  500.             (define-key apropos-mode-map "k" 'previous-line)))

  501. 

  502. (define-key minibuffer-local-map (kbd "C-u") (lambda () (interactive) (delete-region (point-at-bol) (point-at-eol))))

  503. 

  504. (add-hook 'isearch-mode-hook

  505.           (lambda ()

  506.             ;; (define-key isearch-mode-map (kbd "C-j") 'isearch-other-control-char)

  507.             ;; (define-key isearch-mode-map (kbd "C-k") 'isearch-other-control-char)

  508.             ;; (define-key isearch-mode-map (kbd "C-h") 'isearch-other-control-char)

  509.             (define-key isearch-mode-map (kbd "C-h") 'isearch-delete-char)

  510.             (define-key isearch-mode-map (kbd "M-r") 'isearch-query-replace-regexp)))

  511. 

  512. (add-hook 'outline-mode-hook

  513.           (lambda ()

  514.             (if (string-match "\\.md$" buffer-file-name)

  515.                 (set (make-local-variable 'outline-regexp) "#+ "))))

  516. (add-to-list 'auto-mode-alist (cons "\\.ol$" 'outline-mode))

  517. 

  518. (add-to-list 'auto-mode-alist (cons "\\.md$" 'outline-mode))

  519. (when (dllib-if-unfound "markdown-mode"

  520.                         "http://jblevins.org/projects/markdown-mode/markdown-mode.el"

  521.                         t)

  522.   (add-to-list 'auto-mode-alist (cons "\\.md$" 'markdown-mode))

  523.   (autoload 'markdown-mode "markdown-mode" "Major mode for editing Markdown files." nil)

  524.   (add-hook 'markdown-mode-hook

  525.             (lambda ()

  526.               (outline-minor-mode 1)

  527.               (set (make-local-variable 'comment-start) ";"))))

  528. 

  529. ;; (add-hook 'c-mode-hook

  530. ;;           (lambda ()

  531. ;;             (set (make-local-variable 'comment-start) "//")

  532. ;;             (set (make-local-variable 'comment-end) "")))

  533. 

  534. ;; http://d.hatena.ne.jp/emergent/20070203/1170512717

  535. ;; c-mode

  536. ;; (setq c-default-style "bsd")

  537. ;; BackSpace キーを「賢く」し，インデント幅は2桁，タブはスペースに展開

  538. (add-hook 'c-mode-common-hook

  539.           (lambda ()

  540.             (setq c-basic-offset 2

  541.                   indent-tabs-mode nil)

  542.             ;; (set-face-foreground 'font-lock-keyword-face "blue")

  543.             ))

  544. (defun my-compile-c-this-file ()

  545.   ""

  546.   (interactive)

  547.   (compile (format "gcc -Wall -g -o %s %s"

  548.                    (file-name-sans-extension buffer-file-name)

  549.                    buffer-file-name)))

  550. 

  551. (when (dllib-if-unfound "js2-mode"

  552.                         "https://github.com/mooz/js2-mode/raw/master/js2-mode.el"

  553.                         t)

  554.   (autoload 'js2-mode "js2-mode" nil t)

  555.   (add-to-list 'auto-mode-alist '("\\.js$" . js2-mode)))

  556. ;; (add-hook 'js2-mode-hook

  557. ;;           (lambda ()

  558. ;;             (add-hook 'before-save-hook

  559. ;;                       'my-indent-buffer

  560. ;;                       nil

  561. ;;                       t)))

  562. (add-hook 'js2-mode-hook

  563.           (lambda ()

  564.             (define-key js2-mode-map (kbd "C-m") (lambda ()

  565.                                                    (interactive)

  566.                                                    (js2-enter-key)

  567.                                                    (indent-for-tab-command)))

  568.             (add-hook (kill-local-variable 'before-save-hook)

  569.                       'js2-before-save)))

  570. 

  571. (when (require 'zone nil t)

  572.   ;; (zone-when-idle 180)

  573.   (run-with-idle-timer 180 t (lambda ()

  574.                                (unless (memq major-mode

  575.                                              '(term-mode))

  576.                                  (zone))))

  577.   )

  578. 

  579. (when (require 'uniquify nil t)

  580.   (setq uniquify-buffer-name-style 'post-forward-angle-brackets)

  581.   (setq uniquify-ignore-buffers-re "*[^*]+*")

  582.   (setq uniquify-min-dir-content 1))

  583. 

  584. (add-hook 'view-mode-hook

  585.           (lambda()

  586.             (define-key view-mode-map "j" (lambda() (interactive) (scroll-up 1)))

  587.             (define-key view-mode-map "k" (lambda() (interactive) (scroll-down 1)))

  588.             (define-key view-mode-map "/" 'isearch-forward)

  589.             (define-key view-mode-map "v" 'toggle-read-only)

  590.             (define-key view-mode-map "q" 'kill-this-buffer)))

  591. (global-set-key "\M-r" 'view-mode)

  592. 

  593. (add-hook 'Man-mode-hook

  594.           (lambda ()

  595.             (view-mode 1)

  596.             (setq truncate-lines nil)))

  597. (setq Man-notify-method (if window-system

  598.                             'newframe

  599.                           'pushy))

  600. 

  601. (setq multi-term-program shell-file-name)

  602. (and (dllib-if-unfound "multi-term"

  603.                        "http://www.emacswiki.org/emacs/download/multi-term.el"

  604.                        t)

  605.      (require 'multi-term nil t))

  606. 

  607. ;; http://d.hatena.ne.jp/goinger/20100416/1271399150

  608. (setq term-ansi-default-program shell-file-name)

  609. (and (require 'term nil t)

  610.      (setq term-display-table (make-display-table)))

  611. (add-hook 'term-mode-hook (lambda ()

  612.                             (define-key term-raw-map "\C-y" 'term-paste)

  613.                             ;; (define-key term-raw-map "\C-q" 'move-beginning-of-line)

  614.                             ;; (define-key term-raw-map "\C-r" 'term-send-raw)

  615.                             ;; (define-key term-raw-map "\C-s" 'term-send-raw)

  616.                             ;; (define-key term-raw-map "\C-f" 'forward-char)

  617.                             ;; (define-key term-raw-map "\C-b" 'backward-char)

  618.                             ;; (define-key term-raw-map "\C-t" 'set-mark-command)

  619.                             (define-key term-raw-map (kbd "ESC") 'term-send-raw)

  620.                             (define-key term-raw-map [delete] 'term-send-raw)

  621.                             (define-key term-raw-map "\C-c" 'term-send-raw)

  622.                             (define-key term-raw-map "\C-x" (lookup-key (current-global-map) "\C-x"))

  623.                             (define-key term-raw-map "\C-z" (lookup-key (current-global-map) "\C-z"))

  624.                             (set (make-variable-buffer-local 'scroll-margin) 0)))

  625. 

  626. ;; (when (and (executable-find "git")

  627. ;;            (require 'sgit-mode nil t))

  628. ;;   (add-hook 'find-file-hook

  629. ;;             'sgit-load))

  630. 

  631. (when (require 'gtkbm nil t)

  632.   (global-set-key (kbd "C-x C-d") 'gtkbm))

  633. 

  634. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

  635. ;; gmail

  636. 

  637. (setq mail-interactive t

  638.       send-mail-function 'smtpmail-send-it

  639.       ;; message-send-mail-function 'smtpmail-send-it

  640.       smtpmail-smtp-server "smtp.gmail.com"

  641.       smtpmail-smtp-service 587

  642.       smtpmail-starttls-credentials '(("smtp.gmail.com" 587 "8.slashes@gmail.com" nil))

  643.       smtpmail-auth-credentials '(("smtp.gmail.com" 587 "8.slashes@gmail.com" nil))

  644.       user-mail-address "8.slashes@gmail.com")

  645. 

  646. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

  647. ;; buffer killing

  648. 

  649. ;; (add-hook 'kill-buffer-hook

  650. ;;           (lambda ()

  651. ;;             (when buffer-file-name

  652. ;;               (dired "."))))

  653. 

  654. (defun kill-buffer-by-major-mode (mode &optional exclude-current-buffer-p) ;mapcarとかつかって全部書き換える

  655.   "kill buffers.

  656. if EXCLUDE-CURRENT-BUFFER-P is non-nil, never kill current buffer"

  657.   (interactive "xmajor mode of buffer to kill: ")

  658.   (save-excursion

  659.     (let ((bflist (buffer-list))

  660.           (cbf (current-buffer))

  661.           bf)

  662.       (while bflist

  663.         (setq bf (pop bflist))

  664.         (set-buffer bf)

  665.         (if (and (eq mode major-mode)   ;メジャーモードが一致し、かつ

  666.                  (not (and exclude-current-buffer-p ;今のバッファを除外、今のバッファと一致 がともには満たされない

  667.                            (eq bf cbf))))

  668.             (kill-buffer bf))))))

  669. 

  670. (defun my-kill-this-buffer-when-hide (&optional buffer all-frames)

  671.   ""

  672.   (interactive)

  673.   (let ((bf (or buffer

  674.                 (current-buffer))))

  675.     (if (or (not buffer) (get-buffer-window bf all-frames))

  676.         (run-with-timer 3 nil 'my-kill-this-buffer-when-hide bf all-frames)

  677.       (kill-buffer bf))))

  678. ;; (add-hook 'dired-mode-hook

  679. ;;           'my-kill-this-buffer-when-hide)

  680. 

  681. (defvar my-kill-previous-buffer nil)

  682. (defun my-kill-previous-buffer ()

  683.   ""

  684.   (when my-kill-previous-buffer

  685.     (kill-buffer my-kill-previous-buffer))

  686.   (setq my-kill-previous-buffer (current-buffer)))

  687. ;; (add-hook 'dired-mode-hook

  688. ;;           'my-kill-previous-buffer)

  689. 

  690. (defun my-query-kill-this-buffer ()

  691.   ""

  692.   (interactive)

  693.   (if (y-or-n-p (concat "kill this buffer? :"))

  694.       (kill-buffer (current-buffer))))

  695. (substitute-key-definition 'kill-buffer 'my-query-kill-this-buffer global-map)

  696. ;;(global-set-key "\C-xk" 'my-query-kill-this-buffer)

  697. 

  698. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

  699. ;; buffer switching

  700. 

  701. (when (require 'bs nil t)

  702.   (global-set-key "\C-x\C-b" 'bs-show))

  703. ;; (add-to-list 'bs-configurations '("processes" nil get-buffer-process ".*" nil nil))

  704. (add-to-list 'bs-configurations '("same-dir" nil buffer-same-dir-p ".*" nil nil))

  705. ;; (setq bs-configurations (list '("processes" nil get-buffer-process ".*" nil nil)

  706. ;;                               '("files-and-scratch" "^\\*scratch\\*$" nil nil bs-visits-non-file bs-sort-buffer-interns-are-last)))

  707. (setq bs-default-configuration "all")

  708. (add-hook 'bs-mode-hook

  709.           (lambda ()

  710.             (setq bs-default-configuration "all")))

  711. 

  712. (defun buffer-same-dir-p (bf)

  713.   "return t if BF's dir is same as current dir, otherwise nil."

  714.   (let ((cdir (expand-file-name default-directory)))

  715.     (with-current-buffer bf

  716.       (equal (expand-file-name default-directory) cdir))))

  717. 

  718. (defun echo-buffer-list (&optional blist)

  719.   "echo buffer list as string. BLIST is list with buffer objects as elements.

  720. if arg is omitted use value of `buffer-list'."

  721.   (interactive)

  722.   (message (or (mapconcat (lambda (bf)

  723.                             (concat (buffer-name bf)

  724.                                     "\t"

  725.                                     (with-current-buffer bf

  726.                                       (symbol-name major-mode))

  727.                                     "\t"

  728.                                     (abbreviate-file-name (buffer-file-name bf))))

  729.                           (or blist

  730.                               (buffer-list))

  731.                           "\n")

  732.                "")))

  733. 

  734. (defun my-buffer-list ()

  735.   "return buffer list."

  736.   (delq nil

  737.         (mapcar (lambda (bf)

  738.                   (with-current-buffer bf

  739.                     (and buffer-file-name

  740.                          bf)))

  741.                 (buffer-list (selected-frame)))))

  742. 

  743. (defvar buffer-switch-list-function 'my-buffer-list)

  744. 

  745. (defun switch-to-previous-buffer-cycle (&optional silent-p)

  746.   ""

  747.   (interactive)

  748.   (let ((bl (funcall buffer-switch-list-function)))

  749.     (when bl

  750.       (bury-buffer (car bl))

  751.       (switch-to-buffer (or (nth 1 bl)

  752.                             (car bl)))

  753.       (or silent-p

  754.           (echo-buffer-list (funcall buffer-switch-list-function))))))

  755. 

  756. (defun switch-to-next-buffer-cycle (&optional silent-p)

  757.   ""

  758.   (interactive)

  759.   (let* ((bl (funcall buffer-switch-list-function))

  760.          (bf (nth (- (length bl)

  761.                      1)

  762.                   bl)))

  763.     (when bl

  764.       (switch-to-buffer bf)

  765.       (or silent-p

  766.           (echo-buffer-list (funcall buffer-switch-list-function))))))

  767. 

  768. (iswitchb-mode 1)

  769. 

  770. (defun iswitchb-buffer-display-other-window ()

  771.   ""

  772.   (interactive)

  773.   (let ((iswitchb-default-method 'display))

  774.     (call-interactively 'iswitchb-buffer)))

  775. 

  776. (defun switch-to-other-buffer ()

  777.   ""

  778.   (interactive)

  779.   (let ((buffer-switch-list-function 'buffer-list))

  780.     (switch-to-previous-buffer-cycle t)))

  781. 

  782. (global-set-key (kbd "C-.") 'switch-to-previous-buffer-cycle)

  783. (global-set-key (kbd "C-,") 'switch-to-next-buffer-cycle)

  784. ;; (global-set-key (kbd "C-\\") 'switch-to-other-buffer)

  785. ;; (global-set-key (kbd "C-\\") 'bury-buffer)

  786. 

  787. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

  788. ;; sdic

  789. 

  790. (defun sdic-describe-word-echo ()

  791.   ""

  792.   (interactive)

  793.   (save-window-excursion

  794.     (sdic-describe-word-at-point))

  795.   (save-excursion

  796.     (set-buffer sdic-buffer-name)

  797.     (message (buffer-substring (point-min)

  798.                                (progn (goto-char (point-min))

  799.                                       (or (and (re-search-forward "^\\w" nil t 4)

  800.                                                (progn (previous-line) t)

  801.                                                (point-at-eol))

  802.                                           (point-max)))))))

  803. 

  804. (setq sdic-eiwa-dictionary-list '((sdicf-client "/usr/share/dict/gene.sdic")))

  805. (setq sdic-waei-dictionary-list '((sdicf-client "/usr/share/dict/jedict.sdic" (add-keys-to-headword t))))

  806. (setq sdic-disable-select-window t)

  807. (setq sdic-window-height 7)

  808. (when (require 'sdic nil t)

  809.   (global-set-key "\C-cw" 'sdic-describe-word)

  810.   (global-set-key "\C-ct" 'sdic-describe-word-at-point)

  811.   (global-set-key "\C-t" 'sdic-describe-word-echo))

  812. 

  813. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

  814. ;; vc

  815. ;; (require 'vc)

  816. 

  817. (unless (executable-find "rcs")

  818.   (setq vc-handled-backends (delq 'RCS vc-handled-backends)))

  819. 

  820. (unless (executable-find "git")

  821.   (setq vc-handled-backends (delq 'Git vc-handled-backends)))

  822. 

  823. (defadvice vc-rcs-register (after rcs-register-non-strict-locking activate)

  824.   ""

  825.   (when (eq (vc-backend (buffer-file-name)) 'RCS)

  826.     (vc-rcs-set-non-strict-locking (buffer-file-name))))

  827. 

  828. (defadvice vc-next-action (before rcs-save-before-next-action activate)

  829.   ""

  830.   (save-buffer))

  831. 

  832. (setq vc-command-messages t)

  833. 

  834. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

  835. ;; gauche-mode

  836. 

  837. (setq scheme-program-name "gosh")

  838. 

  839. (defun run-gauche-other-window ()

  840.   "Run gauche on other window"

  841.   (interactive)

  842.   (switch-to-buffer-other-window

  843.    (get-buffer-create "*scheme*"))

  844.   (run-gauche))

  845. 

  846. (defun run-gauche ()

  847.   "run gauche"

  848.   (run-scheme "gosh"))

  849. 

  850. (defun scheme-send-buffer ()

  851.   ""

  852.   (interactive)

  853.   (scheme-send-region (point-min) (point-max)))

  854. 

  855. (add-hook 'scheme-mode-hook

  856.           (lambda ()

  857.             (define-key scheme-mode-map "\C-c\C-b" 'scheme-send-buffer)))

  858. 

  859. ;; http://d.hatena.ne.jp/kobapan/20090305/1236261804

  860. ;; http://www.katch.ne.jp/~leque/software/repos/gauche-mode/gauche-mode.el

  861. 

  862. (when (dllib-if-unfound "gauche-mode"

  863.                         "http://www.katch.ne.jp/~leque/software/repos/gauche-mode/gauche-mode.el"

  864.                         t)

  865.   (setq auto-mode-alist

  866.         (cons '("\.scm$" . gauche-mode) auto-mode-alist))

  867.   (autoload 'gauche-mode "gauche-mode" "Major mode for Scheme." t)

  868.   (autoload 'run-scheme "gauche-mode" "Run an inferior Scheme process." t)

  869.   (add-hook 'gauche-mode-hook

  870.             (lambda ()

  871.               (define-key scheme-mode-map "\C-c\C-z" 'run-gauche-other-window))))

  872. 

  873. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

  874. ;; recentf-mode

  875. 

  876. (add-hook 'recentf-dialog-mode-hook

  877.           'my-recentf-abbrev-list)

  878. 

  879. (defun my-recentf-delete-entry ()

  880.   ""

  881.   (interactive)

  882.   (let ((p (point)))

  883.     (setq recentf-list

  884.           (delete (my-recentf-get-filename) recentf-list))

  885.     (recentf-open-files)

  886.     (goto-char p)))

  887. 

  888. (defun my-recentf-abbrev-list ()

  889.   ""

  890.   (setq recentf-list

  891.         (mapcar 'abbreviate-file-name

  892.                 recentf-list)))

  893. 

  894. (defun my-recentf-view-file ()

  895.   ""

  896.   (interactive)

  897.   (view-file (my-recentf-get-filename)))

  898. 

  899. (defun my-recentf-dired ()

  900.   ""

  901.   (interactive)

  902.   (let ((file (my-recentf-get-filename)))

  903.     (if (file-directory-p file)

  904.         (dired file)

  905.       (dired (or (file-name-directory file)

  906.                  ".")))))

  907. 

  908. (defun my-recentf-x-open ()

  909.   ""

  910.   (interactive)

  911.   (my-x-open (my-recentf-get-filename)))

  912. 

  913. (defun my-recentf-cd-and-find-file ()

  914.   ""

  915.   (interactive)

  916.   (cd (file-name-directory (my-recentf-get-filename)))

  917.   (call-interactively 'find-file))

  918. 

  919. (defun my-recentf-get-filename ()

  920.   "get file name in recentf-mode"

  921.   (replace-regexp-in-string "  \\(\\[.+?\\] \\)?" ; "  " or "  [\\d] "

  922.                             ""

  923.                             (buffer-substring-no-properties (point-at-bol)

  924.                                                             (point-at-eol))))

  925. 

  926. (setq recentf-save-file (expand-file-name "~/.emacs.d/.recentf")

  927.       recentf-max-menu-items 20

  928.       recentf-max-saved-items 30

  929.       recentf-show-file-shortcuts-flag nil)

  930. 

  931. (when (require 'recentf nil t)

  932.   (global-set-key "\C-x\C-r" 'recentf-open-files)

  933.   ;; (add-hook 'find-file-hook

  934.   ;;           (lambda ()

  935.   ;;             (recentf-add-file default-directory)))

  936.   (recentf-mode 1)

  937.   (add-to-list 'recentf-filename-handlers 'abbreviate-file-name)

  938.   (add-to-list 'recentf-exclude "\\.emacs\\.d/\\.recentf"))

  939. 

  940. (add-hook 'recentf-dialog-mode-hook

  941.           (lambda ()

  942.             (recentf-save-list)

  943.             ;; (define-key recentf-dialog-mode-map (kbd "C-x C-f") 'my-recentf-cd-and-find-file)

  944.             (define-key recentf-dialog-mode-map (kbd "<up>") 'previous-line)

  945.             (define-key recentf-dialog-mode-map (kbd "<down>") 'next-line)

  946.             (define-key recentf-dialog-mode-map "o" 'my-recentf-x-open)

  947.             (define-key recentf-dialog-mode-map "d" 'my-recentf-delete-entry)

  948.             (define-key recentf-dialog-mode-map "@" 'my-recentf-dired)

  949.             (define-key recentf-dialog-mode-map "v" 'my-recentf-view-file)

  950.             (cd "~/")))

  951. 

  952. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

  953. ;; dired

  954. 

  955. (require 'dired)

  956. 

  957. (require 'dired-aux) ;; needed to use dired-dwim-target-directory

  958. (defun my-dired-do-compress-or-uncompress ()

  959.   ""

  960.   (interactive)

  961.   (let* ((infiles (dired-get-marked-files t))

  962.          (onefile (and (eq 1 ; filename if only one file targeted, otherwise nil.

  963.                            (length infiles))

  964.                        (car infiles))))

  965.     (if (and onefile

  966.              (assoc (file-name-extension onefile)

  967.                     my-compress-program-alist))

  968.         (when (y-or-n-p (format "uncompress %s? " onefile))

  969.           (my-uncompress onefile)

  970.           (revert-buffer))

  971.       (let* ((dir-default (dired-dwim-target-directory))

  972.              (outfile-default (my-compress-file-extension (concat dir-default

  973.                                                                   (file-name-nondirectory (car infiles)))))

  974.              (outfile (if (interactive-p)

  975.                           (read-file-name (format "Output file to compress (default for %s) : "

  976.                                                   outfile-default)

  977.                                           dir-default

  978.                                           outfile-default)

  979.                         outfile-default)))

  980.         (apply 'my-compress

  981.                outfile

  982.                infiles)

  983.         (revert-buffer)))

  984.     (dired-unmark-all-marks)))

  985. 

  986. (defun my-file-name-extension-with-tar (filename)

  987.   "if FILENAME has extension with tar, like \"tar.gz\", return that.

  988. otherwise, return extension normally."

  989.   (if (string-equal "tar" (file-name-extension (file-name-sans-extension filename)))

  990.       (concat "tar."

  991.               (file-name-extension filename))

  992.     (file-name-extension filename)))

  993. 

  994. (defun my-compress-file-extension (filename)

  995.   "if FILENAME has extension and it can be used for compress, return FILENAME.

  996. otherwise, return FILENAME with `my-compress-default-extension'"

  997.   (if (assoc (file-name-extension filename)

  998.              my-compress-program-alist)

  999.       filename

  1000.     (concat filename "." my-compress-default-extension)))

  1001. 

  1002. (defvar my-7z-program

  1003.   (or (executable-find "7z")

  1004.       (executable-find "7za")

  1005.       (executable-find "7zr")))

  1006. 

  1007. (defvar my-compress-default-extension

  1008.   "7z")

  1009. 

  1010. (defvar my-compress-program-alist

  1011.   `(("7z" ,my-7z-program "a" ,my-7z-program "x")

  1012.     ("tar" "tar" "cvf" "tar" "xvf")

  1013.     ("tgz" "tar" "czf" "tar" "xzf")

  1014.     ("txz" "tar" "cJf" "tar" "xJf")

  1015.     ("zip" "zip" "-r" "unzip" nil)))

  1016. 

  1017. (defun my-uncompress (file)

  1018.   ""

  1019.   (interactive "fFile to extract: ")

  1020.   (let* ((efile (expand-file-name file))

  1021.          (ext (file-name-extension efile))

  1022.          (lst (assoc ext

  1023.                      my-compress-program-alist))

  1024.          (com (nth 3 lst))

  1025.          (op (nth 4 lst))

  1026.          (args (if op

  1027.                    (list op efile)

  1028.                  (list efile))))

  1029.     (message "uncompressing %s..." file)

  1030.     (apply 'call-process

  1031.            com

  1032.            nil

  1033.            (my-pop-to-buffer-erase-noselect "*compressing output*")

  1034.            t

  1035.            args)

  1036.     (message "uncompressing %s...done." file)))

  1037. 

  1038. (defun my-compress (outfile &rest infiles)

  1039.   "if outfile have extension for compress, use it.

  1040. otherwise, use `my-compress-default-extension'. for compress."

  1041.   (let* ((outfile-ext (my-compress-file-extension (expand-file-name outfile)))

  1042.          (ext (file-name-extension outfile-ext))

  1043.          (lst (assoc ext

  1044.                      my-compress-program-alist))

  1045.          (com (nth 1 lst))

  1046.          (op (nth 2 lst))

  1047.          (args (if op

  1048.                    (apply 'list

  1049.                           op

  1050.                           outfile-ext

  1051.                           infiles)

  1052.                  (apply 'list

  1053.                         outfile-ext

  1054.                         infiles))))

  1055.     (message "compressing to %s..." outfile)

  1056.     (apply 'call-process

  1057.            com

  1058.            nil

  1059.            (my-pop-to-buffer-erase-noselect "*compressing output*")

  1060.            t

  1061.            args)

  1062.     (message "compressing to %s...done." outfile)))

  1063. 

  1064. (defun my-pop-to-buffer-erase-noselect (buffer-or-name)

  1065.   "pop up buffer using `display-buffer' and return that buffer."

  1066.   (let ((bf (get-buffer-create buffer-or-name))) 

  1067.     (with-current-buffer bf

  1068.       (cd ".")

  1069.       (erase-buffer))

  1070.     (display-buffer bf)

  1071.     bf))

  1072. 

  1073. (defun my-replace-nasi-none ()

  1074.   ""

  1075.   (save-excursion

  1076.     (let ((buffer-read-only nil))

  1077.       (goto-char (point-min))

  1078.       (while (search-forward "なし" nil t)

  1079.         (replace-match "none")))))

  1080. 

  1081. (defun dired-get-du ()                  ;em-unix.el使えるかも

  1082.   "dired get disk usage"

  1083.   (interactive)

  1084.   (message "calculating du...")

  1085.   (dired-do-shell-command "du -hs * " nil (dired-get-marked-files)))

  1086. 

  1087. (defun my-dired-scroll-up ()

  1088.   ""

  1089.   (interactive)

  1090.   (my-dired-previous-line (- (window-height) 1)))

  1091. 

  1092. (defun my-dired-scroll-down ()

  1093.   ""

  1094.   (interactive)

  1095.   (my-dired-next-line (- (window-height) 1)))

  1096. 

  1097. (defun my-dired-previous-line (&optional arg)

  1098.   ""

  1099.   (interactive)

  1100.   (dired-previous-line (or arg 1))

  1101.   (my-dired-print-current-dir-and-file))

  1102. 

  1103. (defun my-dired-next-line (&optional arg)

  1104.   ""

  1105.   (interactive)

  1106.   (dired-next-line (or arg 1))

  1107.   (my-dired-print-current-dir-and-file))

  1108. 

  1109. (defun my-dired-print-current-dir-and-file ()

  1110.   (message "%s  %s"

  1111.            default-directory

  1112.            (buffer-substring-no-properties (point-at-bol)

  1113.                                            (point-at-eol))))

  1114. 

  1115. (defun dired-do-execute-as-command ()

  1116.   ""

  1117.   (interactive)

  1118.   (let ((file (dired-get-filename t)))

  1119.     (if (file-executable-p file)

  1120.         (start-process file nil file)

  1121.       (when (y-or-n-p "this file cant be executed. mark as executable and go? : ")

  1122.         (set-file-modes file (file-modes-symbolic-to-number "u+x" (file-modes file)))

  1123.         (start-process file nil file)))))

  1124. 

  1125. ;;http://bach.istc.kobe-u.ac.jp/lect/tamlab/ubuntu/emacs.html

  1126. 

  1127. (defun my-dired-x-open ()

  1128.   ""

  1129.   (interactive)

  1130.   (my-x-open (dired-get-filename t t)))

  1131. 

  1132. (defun my-dired-up-directory ()

  1133.   ""

  1134.   (interactive)

  1135.   (my-dired-find-file ".."))

  1136. 

  1137. (defun my-dired-find-file (&optional filename)

  1138.   ""

  1139.   (interactive)

  1140.   (let ((f (expand-file-name (or filename

  1141.                                  (dired-get-filename))))

  1142.         (bf (current-buffer)))

  1143.     (find-file f)

  1144.     (when (and (file-directory-p f)

  1145.                (not (get-buffer-window bf)))

  1146.       (kill-buffer bf))))

  1147. 

  1148. (setq dired-listing-switches "-lhFG --time-style=long-iso")

  1149. (define-minor-mode my-dired-display-all-mode

  1150.   ""

  1151.   :init-value nil

  1152.   (if my-dired-display-all-mode

  1153.       (setq dired-actual-switches

  1154.             (concat "-A "

  1155.                     dired-actual-switches))

  1156.     (setq dired-actual-switches

  1157.           (replace-regexp-in-string "-A " "" dired-actual-switches)))

  1158.   (when (eq major-mode 'dired-mode)

  1159.     (revert-buffer)))

  1160. 

  1161. (put 'dired-find-alternate-file 'disabled nil)

  1162. (require 'ls-lisp)

  1163. ;; (setq ls-lisp-use-insert-directory-program nil)

  1164. (setq ls-lisp-dirs-first t)

  1165. (setq dired-ls-F-marks-symlinks t)

  1166. (setq dired-dwim-target t)

  1167. 

  1168. ;; (add-hook 'dired-after-readin-hook

  1169. ;;           'my-replace-nasi-none)

  1170. 

  1171. (add-hook 'after-init-hook

  1172.           (lambda ()

  1173.             (dired ".")))

  1174. 

  1175. (add-hook 'dired-mode-hook

  1176.           (lambda ()

  1177.             (define-key dired-mode-map "o" 'my-dired-x-open)

  1178.             (define-key dired-mode-map "i" 'dired-get-du)

  1179.             (define-key dired-mode-map "!" 'shell-command)

  1180.             (define-key dired-mode-map "&" 'async-shell-command)

  1181.             (define-key dired-mode-map "X" 'dired-do-async-shell-command)

  1182.             (define-key dired-mode-map "B" 'gtkbm-add-current-dir)

  1183.             (define-key dired-mode-map "b" 'gtkbm)

  1184.             (define-key dired-mode-map "@" (lambda () (interactive) (my-x-open ".")))

  1185.             (define-key dired-mode-map (kbd "TAB") 'other-window)

  1186.             (define-key dired-mode-map "Z" 'my-dired-do-compress-or-uncompress)

  1187.             (define-key dired-mode-map "a" 'my-dired-display-all-mode)

  1188.             (define-key dired-mode-map "h" 'my-dired-display-all-mode)

  1189.             (substitute-key-definition 'dired-advertised-find-file 'my-dired-find-file dired-mode-map)

  1190.             (substitute-key-definition 'dired-up-directory 'my-dired-up-directory dired-mode-map)

  1191.             (define-key dired-mode-map (kbd "DEL") 'my-dired-up-directory)

  1192.             (substitute-key-definition 'dired-next-line 'my-dired-next-line dired-mode-map)

  1193.             (substitute-key-definition 'dired-previous-line 'my-dired-previous-line dired-mode-map)

  1194.             (define-key dired-mode-map (kbd "<left>") 'my-dired-scroll-up)

  1195.             (define-key dired-mode-map (kbd "<right>") 'my-dired-scroll-down)

  1196.             (let ((file "._Icon\015"))

  1197.               (when (file-readable-p file)

  1198.                 (delete-file file)))))

  1199. 

  1200. ;; http://homepage1.nifty.com/blankspace/emacs/dired.html

  1201. ;; (add-hook 'dired-load-hook

  1202. ;;           (lambda ()

  1203. ;;             (load-library "ls-lisp")

  1204. ;;             (setq ls-lisp-dirs-first t)

  1205. ;;             (setq dired-listing-switches "-alhF"))) ;これ書く場所間違えてね？

  1206. 

  1207. ;; (defadvice dired-next-line (after dired-next-line-print-directory activate)

  1208. ;;   "print current directory when go down line"

  1209. ;;   (dired-print-current-dir-and-file))

  1210. 

  1211. ;; (defadvice dired-previous-line (after dired-previous-line-print-directory activate)

  1212. ;;   "print current directory when go up line"

  1213. ;;   (dired-print-current-dir-and-file))

  1214. 

  1215. ;; http://blog.livedoor.jp/tek_nishi/archives/4693204.html

  1216. 

  1217. (defun my-dired-toggle-mark()

  1218.   (let ((cur (cond ((eq (following-char) dired-marker-char) ?\040)

  1219.                    (t dired-marker-char))))

  1220.     (delete-char 1)

  1221.     (insert cur)))

  1222. 

  1223. (defun my-dired-mark (arg)

  1224.   "toggle mark the current (or next ARG) files.

  1225. If on a subdir headerline, mark all its files except `.' and `..'.

  1226. 

  1227. Use \\[dired-unmark-all-files] to remove all marks

  1228. and \\[dired-unmark] on a subdir to remove the marks in

  1229. this subdir."

  1230. 

  1231.   (interactive "P")

  1232.   (if (dired-get-subdir)

  1233.       (save-excursion (dired-mark-subdir-files))

  1234.     (let ((inhibit-read-only t))

  1235.       (dired-repeat-over-lines

  1236.        (prefix-numeric-value arg)

  1237.        'my-dired-toggle-mark))))

  1238. 

  1239. (defun my-dired-mark-backward (arg)

  1240.   "In Dired, move up lines and toggle mark there.

  1241. Optional prefix ARG says how many lines to unflag; default is one line."

  1242.   (interactive "p")

  1243.   (my-dired-mark (- arg)))

  1244. 

  1245. (defun dired-mode-hooks()

  1246.   (local-set-key (kbd "SPC") 'my-dired-mark)

  1247.   (local-set-key (kbd "S-SPC") 'my-dired-mark-backward))

  1248. (add-hook 'dired-mode-hook 'dired-mode-hooks)

  1249. 

  1250. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

  1251. ;; eshell

  1252. 

  1253. (defun my-eshell-backward-delete-char ()

  1254.   (interactive)

  1255.   (when (< (save-excursion

  1256.              (eshell-bol)

  1257.              (point))

  1258.            (point))

  1259.     (backward-delete-char 1)))

  1260. 

  1261. (defvar my-eshell-frame-buffer-alist nil)

  1262. 

  1263. (defun my-eshell-frame-buffer (frame)

  1264.   "get buffer associated with FRAME. if buffer doesnt exist or killed, return nil."

  1265.   (let ((bf (cdr (assq frame my-eshell-frame-buffer-alist))))

  1266.     (and bf                            ;関連付けられたバッファが存在し

  1267.          (buffer-name bf)              ;かつkillされてない

  1268.          bf)))

  1269. 

  1270. (add-hook 'eshell-mode-hook

  1271.           (lambda ()

  1272.             (add-to-list 'my-eshell-frame-buffer-alist

  1273.                          (cons (selected-frame) (current-buffer)))))

  1274. 

  1275. (defun my-file-owner-p (file)

  1276.   "t if FILE is owned by me."

  1277.   (eq (user-uid) (nth 2 (file-attributes file))))

  1278. 

  1279. ;; ;; http://www.bookshelf.jp/pukiwiki/pukiwiki.php?Eshell%A4%F2%BB%C8%A4%A4%A4%B3%A4%CA%A4%B9

  1280. ;; ;; written by Stefan Reichoer <reichoer@web.de>

  1281. ;; (defun eshell/less (&rest args)

  1282. ;;   "Invoke `view-file' on the file.

  1283. ;; \"less +42 foo\" also goes to line 42 in the buffer."

  1284. ;;   (if args

  1285. ;;       (while args

  1286. ;;         (if (string-match "\\`\\+\\([0-9]+\\)\\'" (car args))

  1287. ;;             (let* ((line (string-to-number (match-string 1 (pop args))))

  1288. ;;                    (file (pop args)))

  1289. ;;               (view-file file)

  1290. ;;               (goto-line line))

  1291. ;;           (view-file (pop args))))))

  1292. 

  1293. (defun eshell/o (&optional file)

  1294.   (my-x-open (or file ".")))

  1295. 

  1296. ;; (defun eshell/vi (&rest args)

  1297. ;;   "Invoke `find-file' on the file.

  1298. ;; \"vi +42 foo\" also goes to line 42 in the buffer."

  1299. ;;   (while args

  1300. ;;     (if (string-match "\\`\\+\\([0-9]+\\)\\'" (car args))

  1301. ;;         (let* ((line (string-to-number (match-string 1 (pop args))))

  1302. ;;                (file (pop args)))

  1303. ;;           (find-file file)

  1304. ;;           (goto-line line))

  1305. ;;       (find-file (pop args)))))

  1306. 

  1307. (defun eshell/clear ()

  1308.   "Clear the current buffer, leaving one prompt at the top."

  1309.   (let ((inhibit-read-only t))

  1310.     (erase-buffer)))

  1311. 

  1312. (defun eshell/d (&optional dirname switches)

  1313.   "if first arg is omitted open current directory."

  1314.   (dired (or dirname ".") switches))

  1315. 

  1316. (defun eshell/v ()

  1317.   (view-mode 1))

  1318. 

  1319. (defalias 'eshell/: 'ignore)

  1320. (defalias 'eshell/type 'eshell/which)

  1321. ;; (defalias 'eshell/vim 'eshell/vi)

  1322. (defalias 'eshell/ff 'find-file)

  1323. 

  1324. (defun eshell-goto-prompt ()

  1325.   ""

  1326.   (interactive)

  1327.   (goto-char (point-max)))

  1328. 

  1329. (defun eshell-cd-default-directory (&optional eshell-buffer-or-name)

  1330.   "open eshell and change wd

  1331. if arg given, use that eshell buffer, otherwise make new eshell buffer."

  1332.   (interactive)

  1333.   (let ((dir (expand-file-name default-directory)))

  1334.     (switch-to-buffer (or eshell-buffer-or-name

  1335.                           (eshell t)))

  1336.     (unless (equal dir (expand-file-name default-directory))

  1337.       ;; (cd dir)

  1338.       ;; (eshell-interactive-print (concat "cd " dir "\n"))

  1339.       ;; (eshell-emit-prompt)

  1340.       (goto-char (point-max))

  1341.       (eshell-kill-input)

  1342.       (insert "cd " dir)

  1343.       (eshell-send-input))))

  1344. 

  1345. (setq eshell-directory-name "~/.emacs.d/eshell/")

  1346. (setq eshell-scroll-to-bottom-on-input t)

  1347. (setq eshell-cmpl-ignore-case t)

  1348. (setq eshell-cmpl-cycle-completions nil)

  1349. (setq eshell-highlight-prompt nil)

  1350. (setq eshell-ls-initial-args "-FG")     ; "-hF")

  1351. (setq eshell-prompt-function

  1352.       (lambda ()

  1353.         (with-temp-buffer

  1354.           (let (p1 p2 p3 p4)

  1355.             (insert " [")

  1356.             (setq p1 (point))

  1357.             (insert (abbreviate-file-name default-directory))

  1358.             (setq p2 (point))

  1359.             (insert "]"

  1360.                     "\n")

  1361.             (setq p3 (point))

  1362.             (insert user-login-name

  1363.                     "@"

  1364.                     (or (getenv "HOSTNAME")

  1365.                         (substring (shell-command-to-string (or (executable-find "hostname")

  1366.                                                                 ":"))

  1367.                                    0

  1368.                                    -1)))

  1369.             (setq p4 (point))

  1370.             (insert " "

  1371.                     (format-time-string "%a, %d %b %Y %T %z")

  1372.                     " ESHELL\n"

  1373.                     "last:"

  1374.                     (number-to-string eshell-last-command-status)

  1375.                     (if (= (user-uid)

  1376.                            0)

  1377.                         " # "

  1378.                       " $ "))

  1379.             (add-text-properties p1

  1380.                                  p2

  1381.                                  '(face ((foreground-color . "red"))))

  1382.             (add-text-properties p3

  1383.                                  p4

  1384.                                  '(face ((foreground-color . "blue"))))

  1385.             (buffer-substring (point-min)

  1386.                               (point-max))))))

  1387. 

  1388. (add-hook 'eshell-mode-hook

  1389.           (lambda ()

  1390.             ;; (define-key eshell-mode-map (kbd "C-x C-x") (lambda ()

  1391.             ;;                                               (interactive)

  1392.             ;;                                               (switch-to-buffer (other-buffer))))

  1393.             (define-key eshell-mode-map (kbd "C-u") (lambda ()

  1394.                                                       (interactive)

  1395.                                                       (eshell-goto-prompt)

  1396.                                                       (eshell-kill-input)))

  1397.             (define-key eshell-mode-map (kbd "C-g") (lambda ()

  1398.                                                       (interactive)

  1399.                                                       (eshell-goto-prompt)

  1400.                                                       (my-keyboard-quit)))

  1401.             (define-key eshell-mode-map (kbd "DEL") 'my-eshell-backward-delete-char)

  1402.             (define-key eshell-mode-map (kbd "C-p") 'eshell-previous-matching-input-from-input)

  1403.             (define-key eshell-mode-map (kbd "C-n") 'eshell-next-matching-input-from-input)

  1404.             (mapcar (lambda (alias)

  1405.                       (add-to-list 'eshell-command-aliases-list

  1406.                                    alias))

  1407.                     '(("ll" "ls -l")

  1408.                       ("la" "ls -a")

  1409.                       ("lla" "ls -al")

  1410.                       ("ut" "slogin 03110414@un001.ecc.u-tokyo.ac.jp")

  1411.                       ("aptin" "sudo apt-get install")

  1412.                       ("u" "uname")

  1413.                       ("eless" "cat >>> (with-current-buffer (get-buffer-create \"*eshell output\") (erase-buffer) (setq buffer-read-only nil) (current-buffer)); (view-buffer (get-buffer \"*eshell output*\"))")))

  1414.             (add-to-list 'eshell-output-filter-functions 'eshell-truncate-buffer)

  1415.             (apply 'eshell/addpath exec-path)

  1416.             (set (make-variable-buffer-local 'scroll-margin) 0)

  1417.             (eshell/export "GIT_PAGER=")

  1418.             (eshell/export "GIT_EDITOR=")

  1419.             (eshell/export "LC_MESSAGES=C")

  1420.             ))

  1421. 

  1422. ;; (eval-after-load "em-alias"

  1423. ;;   '(progn ;; (eshell/alias "ll" "ls -l")

  1424. ;;      ;; (eshell/alias "la" "ls -a")

  1425. ;;      ;; (eshell/alias "lla" "ls -al")

  1426. ;;      (eshell/alias "sgcc" (if (eq system-type 'windows-nt)

  1427. ;;                               "gcc -o win.$1.exe $1"

  1428. ;;                             "gcc -o ${uname}.$1.out $1"))

  1429. ;;      (eshell/alias "slmgcc" (if (eq system-type 'windows-nt)

  1430. ;;                                 "gcc -lm -o win.$1.exe $1"

  1431. ;;                               "gcc -lm -o ${uname}.$1.out $1"))

  1432. ;;      ;; (eshell/alias "ut" "ssh g841105@un001.ecc.u-tokyo.ac.jp")

  1433. ;;      (add-to-list 'recentf-exclude (concat eshell-directory-name "alias"))))

  1434. 

  1435. (define-key my-prefix-map (kbd "C-s") (lambda ()

  1436.                                         (interactive)

  1437.                                         (eshell-cd-default-directory (buffer-name (or (my-eshell-frame-buffer (selected-frame))

  1438.                                                                                       (eshell t))))))

  1439. 

  1440. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

  1441. ;; 最終更新日時を得る

  1442. 

  1443. (defvar my-buffer-file-last-modified-time nil "")

  1444. 

  1445. (make-variable-buffer-local 'my-buffer-file-last-modified-time)

  1446. 

  1447. (defun my-get-file-last-modified-time (file)

  1448.   ""

  1449.   (nth 5

  1450.        (file-attributes file)))

  1451. 

  1452. (defun my-set-buffer-file-last-modified-time ()

  1453.   ""

  1454.   (make-local-variable 'my-buffer-file-last-modified-time)

  1455.   (setq my-buffer-file-last-modified-time

  1456.         (format-time-string "%Y/%m/%d %H:%M" (my-get-file-last-modified-time buffer-file-name))))

  1457. 

  1458. (add-hook 'find-file-hook

  1459.           'my-set-buffer-file-last-modified-time)

  1460. (add-hook 'after-save-hook

  1461.           'my-set-buffer-file-last-modified-time)

  1462. (add-hook 'after-revert-hook

  1463.           'my-set-buffer-file-last-modified-time)

  1464. 

  1465. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

  1466. ;; auto saving

  1467. 

  1468. (defun my-save-this-buffer (silent-p)

  1469.   "save current buffer if can without asking"

  1470.   (let ((cm (if (current-message)

  1471.                 (format "%s\n" (current-message))

  1472.               ""))

  1473.         (fun (symbol-function (if silent-p

  1474.                                   'ignore

  1475.                                 'message))))

  1476.     (cond ((active-minibuffer-window) nil)

  1477.           ((not buffer-file-name) (funcall fun "%ssaving... this buffer doesn't visit any file." cm) nil)

  1478.           (buffer-read-only (funcall fun "%ssaving... this buffer is read-only." cm) nil)

  1479.           ((not (buffer-modified-p)) (funcal fun "%ssaving... not modified yet." cm) nil)

  1480.           ((not (file-writable-p buffer-file-name)) (funcall fun "%ssaving... you cannot change this file." cm) nil)

  1481.           (t (funcall fun "%ssaving..." cm)

  1482.              (save-buffer)

  1483.              (funcall fun "%ssaving... done." cm)))))

  1484. ;; (if (and buffer-file-name

  1485. ;;          (not buffer-read-only)

  1486. ;;          (buffer-modified-p)

  1487. ;;          (file-writable-p buffer-file-name))

  1488. ;;     (save-buffer))) ; 静かな方

  1489. 

  1490. (defvar my-auto-save-this-buffer nil "auto save timer object")

  1491. 

  1492. (defun my-auto-save-this-buffer (secs &optional silent-p)

  1493.   "auto save current buffer if idle for SEC.

  1494. when SEC is nil, stop auto save if enabled."

  1495.   (if secs

  1496.       (progn (when my-auto-save-this-buffer

  1497.                (cancel-timer my-auto-save-this-buffer)

  1498.                (setq my-auto-save-this-buffer nil))

  1499.              (setq my-auto-save-this-buffer (run-with-idle-timer secs t 'my-save-this-buffer silent-p)))

  1500.     (when my-auto-save-this-buffer

  1501.       (cancel-timer my-auto-save-this-buffer)

  1502.       (setq my-auto-save-this-buffer nil))))

  1503. 

  1504. (my-auto-save-this-buffer 2 t)

  1505. 

  1506. 

  1507. 

  1508. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

  1509. ;; misc funcs

  1510. 

  1511. (defun my-format-time-string (&optional time)

  1512.   ""

  1513.   (let ((system-time-locale "C"))

  1514.     (format-time-string "%a, %d %b %Y %T" time)))

  1515. 

  1516. (defvar my-filer nil)

  1517. (setq my-filer (or (executable-find "pcmanfm")

  1518.                    (executable-find "nautilus")))

  1519. (defun my-x-open (file)

  1520.   "open file."

  1521.   (interactive "FOpen File: ")

  1522.   (setq file (expand-file-name file))

  1523.   (message "Opening %s..." file)

  1524.   (cond ((eq system-type 'windows-nt)

  1525.          (call-process "cmd.exe" nil 0 nil "/c" "start" "" (convert-standard-filename file)))

  1526.         ((eq system-type 'darwin)

  1527.          (call-process "open" nil 0 nil file))

  1528.         ((not (getenv "DESKTOP_SESSION"))

  1529.          (find-file file))

  1530.         (t

  1531.          (if (file-directory-p file)

  1532.              (call-process my-filer nil 0 nil file)

  1533.            (call-process "xdg-open" nil 0 nil file))))

  1534.   (recentf-add-file file)

  1535.   (message "Opening %s...done" file))

  1536. 

  1537. (defvar my-indent-buffer-mode-list

  1538.   '(emacs-lisp-mode

  1539.     sh-mode

  1540.     js-mode

  1541.     sgml-mode

  1542.     c-mode))

  1543. (defun my-indent-buffer ()

  1544.   ""

  1545.   (interactive)

  1546.   (indent-region (point-min)

  1547.                  (point-max))) 

  1548. (add-hook 'before-save-hook

  1549.           (lambda ()

  1550.             (when (memq major-mode my-indent-buffer-mode-list)

  1551.               (my-indent-buffer))))

  1552. 

  1553. (defun my-keyboard-quit ()

  1554.   ""

  1555.   (interactive)

  1556.   (run-hooks 'before-keyboard-quit-hook)

  1557.   (redisplay)

  1558.   (keyboard-quit)

  1559.   (run-hooks 'after-keyboard-quit-hook))

  1560. (substitute-key-definition 'keyboard-quit 'my-keyboard-quit global-map)

  1561. ;; (global-set-key (kbd "C-g") 'my-keyboard-quit)

  1562. 

  1563. (defun my-convmv-sjis2utf8-test ()

  1564.   "run `convmv -r -f sjis -t utf8 *'

  1565. this is test, does not rename files"

  1566.   (interactive)

  1567.   (shell-command "convmv -r -f sjis -t utf8 *"))

  1568. 

  1569. (defun my-convmv-sjis2utf8-notest ()

  1570.   "run `convmv -r -f sjis -t utf8 * --notest'"

  1571.   (interactive)

  1572.   (shell-command "convmv -r -f sjis -t utf8 * --notest"))

  1573. 

  1574. (defun my-copy-whole-line ()

  1575.   ""

  1576.   (interactive)

  1577.   (kill-new (concat (buffer-substring (point-at-bol)

  1578.                                       (point-at-eol))

  1579.                     "\n")))

  1580. 

  1581. (defun kill-ring-save-buffer-file-name ()

  1582.   "get current filename"

  1583.   (interactive)

  1584.   (let ((file buffer-file-name))

  1585.     (if file

  1586.         (progn (kill-new file)

  1587.                (message file))

  1588.       (message "not visiting file."))))

  1589. 

  1590. ;; ;; コマンド的な

  1591. ;; (defvar my-execute-func-list nil "func list")

  1592. ;; (defvar my-execute-func-hist-list nil "func hist list")

  1593. ;; (setq my-execute-func-list '("(call-interactively 'my-francaiscd-b)"

  1594. ;;                              "(call-interactively 'my-francaiscd-a)"

  1595. ;;                              "parsec47"

  1596. ;;                              "chromium-browser"

  1597. ;;                              "inkscape"

  1598. ;;                              "audacious"

  1599. ;;                              "gnome-terminal"

  1600. ;;                              "zkaicd.py"

  1601. ;;                              "glchess"))

  1602. 

  1603. ;; (defun my-execute-start-process-or-eval-sexp ()

  1604. ;;   "execute something"

  1605. ;;   (interactive)

  1606. ;;   (let ((func (completing-read "command?: " my-execute-func-list nil nil "" my-execute-func-hist-list)))

  1607. ;;     (if (string= "(" (substring func 0 1))

  1608. ;;         (with-temp-buffer (insert func)

  1609. ;;                           (eval-buffer))

  1610. ;;       (start-process "ps"

  1611. ;;                      nil

  1612. ;;                      func))))

  1613. 

  1614. ;; delete-trailing-whitespace

  1615. ;; (defun my-delete-blanks-on-eol ()

  1616. ;;   ""

  1617. ;;   (interactive)

  1618. ;;   (save-excursion

  1619. ;;     (goto-char (point-min))

  1620. ;;     (while (re-search-forward "[ \t]+$" nil t)

  1621. ;;       (replace-match "" nil nil))))

  1622. 

  1623. (defun my-revert-buffer-if-needed ()

  1624.   ""

  1625.   (interactive)

  1626.   (unless (verify-visited-file-modtime (current-buffer))

  1627.     (revert-buffer t t)))

  1628. 

  1629. (add-hook 'window-configuration-change-hook

  1630.           (lambda ()

  1631.             (run-with-timer 0.5

  1632.                             nil

  1633.                             'my-revert-buffer-if-needed)))

  1634. 

  1635. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

  1636. ;; forked from http://d.hatena.ne.jp/khiker/20100119/window_resize

  1637. (define-key my-prefix-map (kbd "C-w") 'my-window-organizer)

  1638. (defun my-window-organizer ()

  1639.   "Control window size and position."

  1640.   (interactive)

  1641.   (save-selected-window

  1642.     (select-window (window-at 0 0))

  1643.     (let ( ;; (window-obj (selected-window))

  1644.           ;; (current-width (window-width))

  1645.           ;; (current-height (window-height))

  1646.           action

  1647.           c)

  1648.       (catch 'end-flag

  1649.         (while t

  1650.           (setq action

  1651.                 (read-key-sequence-vector (format "size[%dx%d] 1 to maximize; 2, 3 to split; 0 to delete; o to select other; j, l to enlarge; h, k to shrink; q to quit."

  1652.                                                   (window-width)

  1653.                                                   (window-height))))

  1654.           (setq c (aref action 0))

  1655.           (cond ((= c ?l)

  1656.                  (unless (eq (window-width) (frame-width))

  1657.                    (enlarge-window-horizontally 1)))

  1658.                 ((= c ?h)

  1659.                  (unless (eq (window-width) (frame-width))

  1660.                    (shrink-window-horizontally 1)))

  1661.                 ((= c ?j)

  1662.                  (enlarge-window 1))

  1663.                 ((= c ?k)

  1664.                  (shrink-window 1))

  1665.                 ((= c ?o)

  1666.                  (other-window 1))

  1667.                 ((memq c '(?d ?0))

  1668.                  (unless (eq (selected-window) (next-window (selected-window) 0 1))

  1669.                    (delete-window (selected-window))))

  1670.                 ((= c ?1)

  1671.                  (delete-other-windows))

  1672.                 ((= c ?2)

  1673.                  (split-window-vertically))

  1674.                 ((= c ?3)

  1675.                  (split-window-horizontally))

  1676.                 ((memq c '(?q ?\C-g))

  1677.                  (message "Quit")

  1678.                  (throw 'end-flag t))

  1679.                 (t

  1680.                  (beep))))))))

  1681. ;; (aref (read-key-sequence-vector "aa") 0)

  1682. 

  1683. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

  1684. ;; save and restore frame size

  1685. ;;http://www.bookshelf.jp/soft/meadow_30.html#SEC416

  1686. (defun my-window-size-save ()

  1687.   (let* ((rlist (frame-parameters (selected-frame)))

  1688.          (ilist initial-frame-alist)

  1689.          (nCHeight (frame-height))

  1690.          (nCWidth (frame-width))

  1691.          (tMargin (if (integerp (cdr (assoc 'top rlist)))

  1692.                       (cdr (assoc 'top rlist)) 0))

  1693.          (lMargin (if (integerp (cdr (assoc 'left rlist)))

  1694.                       (cdr (assoc 'left rlist)) 0))

  1695.          buf

  1696.          (file "~/.emacs.d/.framesize.el")

  1697.          (recentf-exclude '("\\.emacs\\.d/\\.framesize\\.el$")))

  1698.     (if (get-file-buffer (expand-file-name file))

  1699.         (setq buf (get-file-buffer (expand-file-name file)))

  1700.       (setq buf (find-file-noselect file)))

  1701.     (set-buffer buf)

  1702.     (erase-buffer)

  1703.     (insert (concat

  1704.              ;; 初期値をいじるよりも modify-frame-parameters

  1705.              ;; で変えるだけの方がいい?

  1706.              "(delete 'width default-frame-alist)\n"

  1707.              "(delete 'height default-frame-alist)\n"

  1708.              "(delete 'top default-frame-alist)\n"

  1709.              "(delete 'left default-frame-alist)\n"

  1710.              "(setq default-frame-alist (append (list\n"

  1711.              "'(width . " (int-to-string nCWidth) ")\n"

  1712.              "'(height . " (int-to-string nCHeight) ")\n"

  1713.              "'(top . " (int-to-string tMargin) ")\n"

  1714.              "'(left . " (int-to-string lMargin) "))\n"

  1715.              "default-frame-alist))\n"

  1716.              ;;"(setq default-frame-alist default-frame-alist)"

  1717.              ))

  1718.     (save-buffer)

  1719.     ))

  1720. (defun my-window-size-load ()

  1721.   (let* ((file "~/.emacs.d/.framesize.el"))

  1722.     (if (file-exists-p file)

  1723.         (load file))))

  1724. (when window-system

  1725.   (my-window-size-load)

  1726.   (add-hook 'after-init-hook      ;何かがframeの大きさ勝手に変えやがる

  1727.             (lambda ()

  1728.               (run-with-timer 1

  1729.                               nil

  1730.                               (lambda ()

  1731.                                 (modify-frame-parameters (selected-frame)

  1732.                                                          default-frame-alist))))

  1733.             t)

  1734.   ;; (add-hook 'make-frame-hook

  1735.   ;;           (lambda ()

  1736.   ;;             (run-with-timer 1

  1737.   ;;                             nil

  1738.   ;;                             (lambda ()

  1739.   ;;                               (modify-frame-parameters (selected-frame)

  1740.   ;;                                                        initial-frame-alist))))

  1741.   ;;           t)

  1742.   (add-hook 'kill-emacs-hook

  1743.             'my-window-size-save))

  1744. 

  1745. ;; windowサイズを固定

  1746. ;; setq default-frame-alist

  1747. ;;       (append (list '(width . 80)

  1748. ;; 		    '(height . 35)

  1749. ;; 	      )

  1750. ;; 	      default-frame-alist)

  1751. ;; ) ;;デフォルトのフレーム設定

  1752. 

  1753. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

  1754. ;; 現在行をハイライト

  1755. ;; http://wiki.riywo.com/index.php?Meadow

  1756. (defface hlline-face

  1757.   '((((type x w32)

  1758.       (class color)

  1759.       (background dark))

  1760.      (:background "midnightblue")) ; :foreground "white")) ;; ハイライトの文字色は変えない方がいいかも

  1761.     (((type x w32)

  1762.       (class color)

  1763.       (background light))

  1764.      (:background "gainsboro"))

  1765.     (t

  1766.      (:underline "yellow")))

  1767.   "*Face used by hl-line.")

  1768. (defface hlline-ul-face

  1769.   '((t (:underline "yellow")))

  1770.   "underline yellow")

  1771. (setq hl-line-face 'hlline-face)

  1772. (global-hl-line-mode 1)

  1773. 

  1774. ;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

  1775. ;; ;; emacsを殺伐とさせる

  1776. ;; ;; 補完させるとき失敗するからなし

  1777. ;; ;; http://e-arrows.sakura.ne.jp/2010/05/emacs-should-be-more-savage.html

  1778. ;; (defadvice message (before message-for-stupid (arg &rest arg2) activate)

  1779. ;;   (setq arg

  1780. ;;         (concat arg

  1781. ;;                 (if (eq nil (string-match "\\. *$" arg)) ".")

  1782. ;;                 " And You are a Coward!")))

  1783. 

  1784. 

  1785. 

  1786. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

  1787. ;; ubuntu

  1788. 

  1789. (defun my-load-scim ()

  1790.   "use scim-bridge.el as japanese im."

  1791.   ;; Load scim-bridge.

  1792.   (require 'scim-bridge)

  1793.   ;; Turn on scim-mode automatically after loading .emacs

  1794.   (add-hook 'after-init-hook 'scim-mode-on)

  1795.   (setq scim-cursor-color "red")

  1796.   (scim-define-preedit-key ?\^h t)

  1797.   (scim-define-common-key ?\* nil)

  1798.   (scim-define-common-key ?\^/ nil))

  1799. 

  1800. 

  1801. 

  1802. (defun my-load-anthy ()

  1803.   "use anthy.el as japanese im."

  1804.   ;; anthy

  1805.   (require 'anthy)

  1806.   (global-set-key [muhenkan] (lambda () (interactive) (anthy-mode-off)))

  1807.   (global-set-key [henkan] (lambda () (interactive) (anthy-mode-on)))

  1808.   (when (>= emacs-major-version 23)

  1809.     (setq anthy-accept-timeout 1)))

  1810. 

  1811. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

  1812. ;; windows用設定

  1813. 

  1814. ;; (add-to-list 'exec-path "c:/Program Files/Gauche/bin/")

  1815. 

  1816. (defun start-ckw-bash ()

  1817.   ""

  1818.   (interactive)

  1819.   (start-process "ckw_bash"

  1820.                  nil

  1821.                  "C:/Documents and Settings/sr/Application Data/dbx/apps/ckw/ckw.exe")) ; cじゃないといけないらしい

  1822. 

  1823. (defun my-w32-add-export-path (&rest args)

  1824.   ""

  1825.   (mapcar (lambda (path)

  1826.             (add-to-list 'exec-path (expand-file-name path)))

  1827.           args)

  1828.   (setenv "PATH"

  1829.           (mapconcat 'convert-standard-filename

  1830.                      exec-path

  1831.                      ";")))

  1832. 

  1833. (when (eq system-type 'windows-nt)

  1834.   ;; (setq scheme-program-name "\"c:/Program Files/Gauche/bin/gosh.exe\" -i")

  1835.   ;; (setq python-python-command "c:/Python26/python.exe")

  1836. 

  1837.   (define-key my-prefix-map (kbd "C-c") 'start-ckw-bash)

  1838.   (my-w32-add-export-path "c:/WINDOWS"

  1839.                           (expand-file-name "~/bin")

  1840.                           (expand-file-name "~/dbx/apps/bin"))

  1841. 

  1842.   (when window-system

  1843.     (setq w32-enable-synthesized-fonts t))

  1844.   (setq file-name-coding-system 'sjis))