10sr
/
dotfiles-mirror
espelhamento de https://github.com/10sr/dotfiles.git
1
0
Fork 0
Código Issues 0 Versões 0 Wiki Atividade
Você não pode selecionar mais de 25 tópicos Os tópicos devem começar com uma letra ou um número, podem incluir traços ('-') e podem ter até 35 caracteres.
8 Commits
1 Branch
35 MiB
 
 
 
 
 
 
Tag: fe5ae7e4c2
Branches Tags
${ item.name }
Criar branch ${ searchTerm }
de fe5ae7e4c2
${ noResults }
dotfiles-mirror/.emacs

1826 linhas
71 KiB
Original Anotar Histórico 

  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. 

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

  220.            (lambda ()

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

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

  223. 

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

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

  226. 

  227. ;; fonts

  228. 

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

  230.      ;;   "set font for windows."

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

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

  233.                                 ;;            lfs)

  234.                             ;;        (while lists

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

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

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

  238.                                                                                 ;;            (setq lists nil)))))

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

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

  241. 

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

  243.      ;;   ""

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

  245.                      ;;         lfs)

  246.                  ;;     (while lists

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

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

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

  250.                                                          ;;         (setq lists nil)))))

  251. 

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

  253.   ""

  254.   (set-face-attribute 'default nil

  255.                        :family (nth 0 list)

  256.                         :height (nth 1 list))

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

  258.                     'japanese-jisx0208

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

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

  261.                     'katakana-jisx0201

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

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

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

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

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

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

  268. ;; あ

  269. 

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

  271.   ""

  272.   (set-face-attribute 'default nil

  273.                        :family (nth 0 list)

  274.                         :height (nth 1 list))

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

  276.                     'japanese-jisx0208

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

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

  279.                     'katakana-jisx0201

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

  281. 

  282. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

  283. ;; mode-line

  284. 

  285. (which-function-mode 0)

  286. 

  287. (line-number-mode 0)

  288. (column-number-mode 0)

  289. (size-indication-mode 0)

  290. (setq mode-line-position

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

  292.                       (count-lines (point-max)

  293.                                    (point-min)))))

  294. 

  295. 

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

  297. ;; display date

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

  299.            (lambda ()

  300.              (setq display-time-string-forms

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

  302.              (setq display-time-string-forms

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

  304.              (when display-time-mode

  305.                (display-time-update))

  306.              ))

  307. (setq display-time-interval 29)

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

  309. (if window-system

  310.     (display-time-mode 0)

  311.   (display-time-mode 1))

  312. 

  313. ;; current directory

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

  315.                    mode-line-format)))

  316.   (setcdr ls

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

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

  319.                                 ")"))

  320.                  (cdr ls))))

  321. 

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

  323.                    mode-line-format)))

  324.   (setcdr ls

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

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

  327.                  (cdr ls))))

  328. 

  329. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

  330. ;; back up and auto saving

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

  332. (setq make-backup-files t)

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

  334. (setq backup-directory-alist

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

  336.             backup-directory-alist))

  337. (setq version-control t)

  338. (setq delete-old-versions t)

  339. 

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

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

  342. 

  343. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

  344. ;; for emacsclient

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

  346. 

  347. 

  348. 

  349. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

  350. ;; global keys

  351. 

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

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

  354. 

  355. ;; moving around

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

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

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

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

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

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

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

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

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

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

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

  367. 

  368. ;; C-h and DEL

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

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

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

  372.                               (interactive)

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

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

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

  376. 

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

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

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

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

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

  382. 

  383. ;; compose window

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

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

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

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

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

  389. 

  390. ;; disable annoying keys

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

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

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

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

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

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

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

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

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

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

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

  402. 

  403. (mouse-avoidance-mode 'banish)

  404. 

  405. 

  406. 

  407. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

  408. ;; download library from web

  409. 

  410. ;; (require 'url)

  411. 

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

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

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

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

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

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

  418.                                  ;;              (condition-case nil

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

  420.                                                                                                ;;                                        lpath

  421.                                                                                                                                          ;;                                        t)

  422.                                                                                 ;;                         (and bite-compile-p

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

  424.                                                                                                                                                 ;;                              t))

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

  426.                                                                             ;;                       nil))

  427.                                ;;            t)

  428.                              ;;          callback

  429.                                          ;;          (funcall callback))))

  430. 

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

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

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

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

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

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

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

  438.         (progn (condition-case nil

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

  440.                           (url-copy-file url

  441.                                          lpath

  442.                                          t)

  443.                           (when bite-compile-p

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

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

  446.                         nil))

  447.                (locate-library lib))

  448.       locate-p)))

  449. 

  450. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

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

  452. 

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

  454. ;; share clipboard with x

  455. (when (or window-system

  456.           (getenv "DESKTOP_SESSION"))

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

  458. 

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

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

  461. 

  462. (and x-select-enable-clipboard

  463.      (executable-find "xclip")

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

  465.      (require 'xclip nil t)

  466.      (turn-on-xclip))

  467. 

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

  469. (when (require 'saveplace nil t)

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

  471. 

  472. ;; その他のhook

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

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

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

  476.            (lambda ()

  477.              (when buffer-read-only

  478.                (view-mode 1))))

  479. 

  480. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

  481. ;; mode関連

  482. 

  483. ;; (ffap-bindings)

  484. 

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

  486.            (lambda ()

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

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

  489. 

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

  491. 

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

  493. 

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

  495.            (lambda ()

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

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

  498. 

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

  500. 

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

  502.            (lambda ()

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

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

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

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

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

  508. 

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

  510.            (lambda ()

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

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

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

  514. 

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

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

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

  518.                         t)

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

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

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

  522.              (lambda ()

  523.                (outline-minor-mode 1)

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

  525. 

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

  527.               ;;           (lambda ()

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

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

  530. 

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

  532. ;; c-mode

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

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

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

  536.            (lambda ()

  537.              (setq c-basic-offset 2

  538.                    indent-tabs-mode nil)

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

  540.                 ))

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

  542.   ""

  543.   (interactive)

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

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

  546.                    buffer-file-name)))

  547. 

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

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

  550.                         t)

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

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

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

  554.               ;;           (lambda ()

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

  556.                                                        ;;                       'my-indent-buffer

  557.                                                                                  ;;                       nil

  558.                                                                                                           ;;                       t)))

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

  560.            (lambda ()

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

  562.                                                     (interactive)

  563.                                                     (js2-enter-key)

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

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

  566.                        'js2-before-save)))

  567. 

  568. (when (require 'zone nil t)

  569.   (zone-when-idle 180))

  570. 

  571. (when (require 'uniquify nil t)

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

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

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

  575. 

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

  577.            (lambda()

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

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

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

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

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

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

  584. 

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

  586.            (lambda ()

  587.              (view-mode 1)

  588.              (setq truncate-lines nil)))

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

  590.                             'newframe

  591.                           'pushy))

  592. 

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

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

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

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

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

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

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

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

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

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

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

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

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

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

  607. 

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

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

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

  611.                      ;;             'sgit-load))

  612. 

  613. (when (require 'gtkbm nil t)

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

  615. 

  616. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

  617. ;; gmail

  618. (setq mail-interactive t

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

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

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

  622.          smtpmail-smtp-service 587

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

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

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

  626. 

  627. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

  628. ;; buffer killing

  629. 

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

  631.               ;;           (lambda ()

  632.                              ;;             (when buffer-file-name

  633.                                               ;;               (dired "."))))

  634. 

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

  636.   "kill buffers.

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

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

  639.   (save-excursion

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

  641.           (cbf (current-buffer))

  642.           bf)

  643.       (while bflist

  644.         (setq bf (pop bflist))

  645.         (set-buffer bf)

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

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

  648.                            (eq bf cbf))))

  649.             (kill-buffer bf))))))

  650. 

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

  652.   ""

  653.   (interactive)

  654.   (let ((bf (or buffer

  655.                 (current-buffer))))

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

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

  658.       (kill-buffer bf))))

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

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

  661. 

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

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

  664.   ""

  665.   (when my-kill-previous-buffer

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

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

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

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

  670. 

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

  672.   ""

  673.   (interactive)

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

  675.       (kill-buffer (current-buffer))))

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

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

  678. 

  679. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

  680. ;; buffer switching

  681. 

  682. (when (require 'bs nil t)

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

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

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

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

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

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

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

  690.            (lambda ()

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

  692. 

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

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

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

  696.     (with-current-buffer bf

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

  698. 

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

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

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

  702.   (interactive)

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

  704.                             (concat (buffer-name bf)

  705.                                     "\t"

  706.                                     (with-current-buffer bf

  707.                                       (symbol-name major-mode))

  708.                                     "\t"

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

  710.                           (or blist

  711.                               (buffer-list))

  712.                           "\n")

  713.                "")))

  714. 

  715. (defun my-buffer-list ()

  716.   "return buffer list."

  717.   (delq nil

  718.         (mapcar (lambda (bf)

  719.                   (with-current-buffer bf

  720.                     (and buffer-file-name

  721.                          bf)))

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

  723. 

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

  725. 

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

  727.   ""

  728.   (interactive)

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

  730.     (when bl

  731.       (bury-buffer (car bl))

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

  733.                             (car bl)))

  734.       (or silent-p

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

  736. 

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

  738.   ""

  739.   (interactive)

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

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

  742.                      1)

  743.                   bl)))

  744.     (when bl

  745.       (switch-to-buffer bf)

  746.       (or silent-p

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

  748. 

  749. (iswitchb-mode 1)

  750. 

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

  752.   ""

  753.   (interactive)

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

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

  756. 

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

  758.   ""

  759.   (interactive)

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

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

  762. 

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

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

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

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

  767. 

  768. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

  769. ;; sdic

  770. 

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

  772.   ""

  773.   (interactive)

  774.   (save-window-excursion

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

  776.   (save-excursion

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

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

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

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

  781.                                                (progn (previous-line) t)

  782.                                                (point-at-eol))

  783.                                           (point-max)))))))

  784. 

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

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

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

  788. (setq sdic-window-height 7)

  789. (when (require 'sdic nil t)

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

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

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

  793. 

  794. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

  795. ;; vc

  796. ;; (require 'vc)

  797. 

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

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

  800. 

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

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

  803. 

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

  805.   ""

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

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

  808. 

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

  810.   ""

  811.   (save-buffer))

  812. 

  813. (setq vc-command-messages t)

  814. 

  815. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

  816. ;; gauche-mode

  817. 

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

  819. 

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

  821.   "Run gauche on other window"

  822.   (interactive)

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

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

  825.   (run-gauche))

  826. 

  827. (defun run-gauche ()

  828.   "run gauche"

  829.   (run-scheme "gosh"))

  830. 

  831. (defun scheme-send-buffer ()

  832.   ""

  833.   (interactive)

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

  835. 

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

  837.            (lambda ()

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

  839. 

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

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

  842. 

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

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

  845.                         t)

  846.   (setq auto-mode-alist

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

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

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

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

  851.              (lambda ()

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

  853. 

  854. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

  855. ;; recentf-mode

  856. 

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

  858.            'my-recentf-abbrev-list)

  859. 

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

  861.   ""

  862.   (interactive)

  863.   (let ((p (point)))

  864.     (setq recentf-list

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

  866.     (recentf-open-files)

  867.     (goto-char p)))

  868. 

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

  870.   ""

  871.   (setq recentf-list

  872.         (mapcar 'abbreviate-file-name

  873.                  recentf-list)))

  874. 

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

  876.   ""

  877.   (interactive)

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

  879. 

  880. (defun my-recentf-dired ()

  881.   ""

  882.   (interactive)

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

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

  885.         (dired file)

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

  887.                  ".")))))

  888. 

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

  890.   ""

  891.   (interactive)

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

  893. 

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

  895.   ""

  896.   (interactive)

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

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

  899. 

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

  901.   "get file name in recentf-mode"

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

  903.                             ""

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

  905.                                                             (point-at-eol))))

  906. 

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

  908.       recentf-max-menu-items 20

  909.       recentf-max-saved-items 30

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

  911. 

  912. (when (require 'recentf nil t)

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

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

  915.                 ;;           (lambda ()

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

  917.      (recentf-mode 1)

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

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

  920. 

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

  922.            (lambda ()

  923.              (recentf-save-list)

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

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

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

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

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

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

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

  931.                 (cd "~/")))

  932. 

  933. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

  934. ;; dired

  935. 

  936. (require 'dired)

  937. 

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

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

  940.   ""

  941.   (interactive)

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

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

  944.                            (length infiles))

  945.                        (car infiles))))

  946.     (if (and onefile

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

  948.                     my-compress-program-alist))

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

  950.           (my-uncompress onefile)

  951.           (revert-buffer))

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

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

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

  955.              (outfile (if (interactive-p)

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

  957.                                                   outfile-default)

  958.                                           dir-default

  959.                                           outfile-default)

  960.                         outfile-default)))

  961.         (apply 'my-compress

  962.                 outfile

  963.                 infiles)

  964.         (revert-buffer)))

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

  966. 

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

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

  969. otherwise, return extension normally."

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

  971.       (concat "tar."

  972.               (file-name-extension filename))

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

  974. 

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

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

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

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

  979.              my-compress-program-alist)

  980.       filename

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

  982. 

  983. (defvar my-7z-program

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

  985.       (executable-find "7za")

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

  987. 

  988. (defvar my-compress-default-extension

  989.   "7z")

  990. 

  991. (defvar my-compress-program-alist

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

  993.     ("tar" "tar" "cvf" "tar" "xvf")

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

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

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

  997. 

  998. (defun my-uncompress (file)

  999.   ""

  1000.   (interactive "fFile to extract: ")

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

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

  1003.          (lst (assoc ext

  1004.                      my-compress-program-alist))

  1005.          (com (nth 3 lst))

  1006.          (op (nth 4 lst))

  1007.          (args (if op

  1008.                    (list op efile)

  1009.                  (list efile))))

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

  1011.     (apply 'call-process

  1012.             com

  1013.             nil

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

  1015.             t

  1016.             args)

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

  1018. 

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

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

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

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

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

  1024.          (lst (assoc ext

  1025.                      my-compress-program-alist))

  1026.          (com (nth 1 lst))

  1027.          (op (nth 2 lst))

  1028.          (args (if op

  1029.                    (apply 'list

  1030.                            op

  1031.                            outfile-ext

  1032.                            infiles)

  1033.                  (apply 'list

  1034.                          outfile-ext

  1035.                          infiles))))

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

  1037.     (apply 'call-process

  1038.             com

  1039.             nil

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

  1041.             t

  1042.             args)

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

  1044. 

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

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

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

  1048.     (with-current-buffer bf

  1049.       (cd ".")

  1050.       (erase-buffer))

  1051.     (display-buffer bf)

  1052.     bf))

  1053. 

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

  1055.   ""

  1056.   (save-excursion

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

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

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

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

  1061. 

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

  1063.   "dired get disk usage"

  1064.   (interactive)

  1065.   (message "calculating du...")

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

  1067. 

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

  1069.   ""

  1070.   (interactive)

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

  1072. 

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

  1074.   ""

  1075.   (interactive)

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

  1077. 

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

  1079.   ""

  1080.   (interactive)

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

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

  1083. 

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

  1085.   ""

  1086.   (interactive)

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

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

  1089. 

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

  1091.   (message "%s  %s"

  1092.            default-directory

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

  1094.                                            (point-at-eol))))

  1095. 

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

  1097.   ""

  1098.   (interactive)

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

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

  1101.         (start-process file nil file)

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

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

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

  1105. 

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

  1107. 

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

  1109.   ""

  1110.   (interactive)

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

  1112. 

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

  1114.   ""

  1115.   (interactive)

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

  1117. 

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

  1119.   ""

  1120.   (interactive)

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

  1122.                                  (dired-get-filename))))

  1123.         (bf (current-buffer)))

  1124.     (find-file f)

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

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

  1127.       (kill-buffer bf))))

  1128. 

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

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

  1131.   ""

  1132.   :init-value nil

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

  1134.        (setq dired-actual-switches

  1135.              (concat "-A "

  1136.                      dired-actual-switches))

  1137.      (setq dired-actual-switches

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

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

  1140.      (revert-buffer)))

  1141. 

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

  1143. (require 'ls-lisp)

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

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

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

  1147. (setq dired-dwim-target t)

  1148. 

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

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

  1151. 

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

  1153.            (lambda ()

  1154.              (dired ".")))

  1155. 

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

  1157.            (lambda ()

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

  1179.                  (delete-file file)))))

  1180. 

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

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

  1183.               ;;           (lambda ()

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

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

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

  1187. 

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

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

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

  1191. 

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

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

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

  1195. 

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

  1197. 

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

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

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

  1201.     (delete-char 1)

  1202.     (insert cur)))

  1203. 

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

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

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

  1207. 

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

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

  1210. this subdir."

  1211. 

  1212.   (interactive "P")

  1213.   (if (dired-get-subdir)

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

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

  1216.       (dired-repeat-over-lines

  1217.        (prefix-numeric-value arg)

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

  1219. 

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

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

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

  1223.   (interactive "p")

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

  1225. 

  1226. (defun dired-mode-hooks()

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

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

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

  1230. 

  1231. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

  1232. ;; eshell

  1233. 

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

  1235.   (interactive)

  1236.   (when (< (save-excursion

  1237.              (eshell-bol)

  1238.              (point))

  1239.            (point))

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

  1241. 

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

  1243. 

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

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

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

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

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

  1249.          bf)))

  1250. 

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

  1252.            (lambda ()

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

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

  1255. 

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

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

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

  1259. 

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

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

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

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

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

  1265.           ;;   (if args

  1266.                    ;;       (while args

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

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

  1269.                                                                    ;;                    (file (pop args)))

  1270.                                                               ;;               (view-file file)

  1271.                                                                                ;;               (goto-line line))

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

  1273. 

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

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

  1276. 

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

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

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

  1280.           ;;   (while args

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

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

  1283.                                               ;;                (file (pop args)))

  1284.                                          ;;           (find-file file)

  1285.                                                       ;;           (goto-line line))

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

  1287. 

  1288. (defun eshell/clear ()

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

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

  1291.     (erase-buffer)))

  1292. 

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

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

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

  1296. 

  1297. (defun eshell/v ()

  1298.   (view-mode 1))

  1299. 

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

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

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

  1303. 

  1304. (defun eshell-goto-prompt ()

  1305.   ""

  1306.   (interactive)

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

  1308. 

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

  1310.   "open eshell and change wd

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

  1312.   (interactive)

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

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

  1315.                           (eshell t)))

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

  1317.       ;; (cd dir)

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

  1319.             ;; (eshell-emit-prompt)

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

  1321.                (eshell-kill-input)

  1322.                (insert "cd " dir)

  1323.                (eshell-send-input))))

  1324. 

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

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

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

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

  1329. (setq eshell-highlight-prompt nil)

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

  1331. (setq eshell-prompt-function

  1332.       (lambda ()

  1333.         (with-temp-buffer

  1334.           (let (p1 p2 p3 p4)

  1335.             (insert " [")

  1336.             (setq p1 (point))

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

  1338.             (setq p2 (point))

  1339.             (insert "]"

  1340.                     "\n")

  1341.             (setq p3 (point))

  1342.             (insert user-login-name

  1343.                     "@"

  1344.                     (or (getenv "HOSTNAME")

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

  1346.                                                                 ":"))

  1347.                                    0

  1348.                                    -1)))

  1349.             (setq p4 (point))

  1350.             (insert " "

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

  1352.                     " ESHELL\n"

  1353.                     "last:"

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

  1355.                     (if (= (user-uid)

  1356.                            0)

  1357.                         " # "

  1358.                       " $ "))

  1359.             (add-text-properties p1

  1360.                                  p2

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

  1362.             (add-text-properties p3

  1363.                                  p4

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

  1365.             (buffer-substring (point-min)

  1366.                               (point-max))))))

  1367. 

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

  1369.            (lambda ()

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

  1371.                                                               ;;                                               (interactive)

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

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

  1374.                                                           (interactive)

  1375.                                                           (eshell-goto-prompt)

  1376.                                                           (eshell-kill-input)))

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

  1378.                                                           (interactive)

  1379.                                                           (eshell-goto-prompt)

  1380.                                                           (my-keyboard-quit)))

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

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

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

  1384.                 (mapcar (lambda (alias)

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

  1386.                                         alias))

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

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

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

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

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

  1392.                           ("u" "uname")

  1393.                           ("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*\"))")))

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

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

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

  1397.                 (eshell/export "GIT_PAGER=")

  1398.                 (eshell/export "GIT_EDITOR=")

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

  1400.                 ))

  1401. 

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

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

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

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

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

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

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

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

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

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

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

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

  1414. 

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

  1416.                                         (interactive)

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

  1418.                                                                                       (eshell t))))))

  1419. 

  1420. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

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

  1422. 

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

  1424. 

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

  1426. 

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

  1428.   ""

  1429.   (nth 5

  1430.        (file-attributes file)))

  1431. 

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

  1433.   ""

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

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

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

  1437. 

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

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

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

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

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

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

  1444. 

  1445. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

  1446. ;; auto saving

  1447. 

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

  1449.   "save current buffer if can without asking"

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

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

  1452.               ""))

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

  1454.                                   'ignore

  1455.                                 'message))))

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

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

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

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

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

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

  1462.              (save-buffer)

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

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

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

  1466.                         ;;          (buffer-modified-p)

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

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

  1469. 

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

  1471. 

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

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

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

  1475.   (if secs

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

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

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

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

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

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

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

  1483. 

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

  1485. 

  1486. 

  1487. 

  1488. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

  1489. ;; misc funcs

  1490. 

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

  1492.   ""

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

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

  1495. 

  1496. (defvar my-filer nil)

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

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

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

  1500.   "open file."

  1501.   (interactive "FOpen File: ")

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

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

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

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

  1506.         ((eq system-type 'darwin)

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

  1508.         ((not (getenv "DESKTOP_SESSION"))

  1509.          (find-file file))

  1510.         (t

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

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

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

  1514.   (recentf-add-file file)

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

  1516. 

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

  1518.   '(emacs-lisp-mode

  1519.     sh-mode

  1520.     js-mode

  1521.     sgml-mode

  1522.     c-mode))

  1523. (defun my-indent-buffer ()

  1524.   ""

  1525.   (interactive)

  1526.   (indent-region (point-min)

  1527.                  (point-max))) 

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

  1529.            (lambda ()

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

  1531.                (my-indent-buffer))))

  1532. 

  1533. (defun my-keyboard-quit ()

  1534.   ""

  1535.   (interactive)

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

  1537.   (redisplay)

  1538.   (keyboard-quit)

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

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

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

  1542. 

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

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

  1545. this is test, does not rename files"

  1546.   (interactive)

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

  1548. 

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

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

  1551.   (interactive)

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

  1553. 

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

  1555.   ""

  1556.   (interactive)

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

  1558.                                       (point-at-eol))

  1559.                     "\n")))

  1560. 

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

  1562.   "get current filename"

  1563.   (interactive)

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

  1565.     (if file

  1566.         (progn (kill-new file)

  1567.                (message file))

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

  1569. 

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

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

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

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

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

  1575.                                                                 ;;                              "parsec47"

  1576.                                                                                                 ;;                              "chromium-browser"

  1577.                                                                                                                                 ;;                              "inkscape"

  1578.                                                                                                                                                                 ;;                              "audacious"

  1579.                                                                                                                                                                                                 ;;                              "gnome-terminal"

  1580.                                                                                                                                                                                                                                 ;;                              "zkaicd.py"

  1581.                                                                                                                                                                                                                                                                 ;;                              "glchess"))

  1582. 

  1583. ;; (defun my-execute-start-process-or-eval-sexp ()

  1584.      ;;   "execute something"

  1585.           ;;   (interactive)

  1586.                ;;   (let ((func (completing-read "command?: " my-execute-func-list nil nil "" my-execute-func-hist-list)))

  1587.                       ;;     (if (string= "(" (substring func 0 1))

  1588.                                  ;;         (with-temp-buffer (insert func)

  1589.                                                               ;;                           (eval-buffer))

  1590.                                ;;       (start-process "ps"

  1591.                                                        ;;                      nil

  1592.                                                                                ;;                      func))))

  1593. 

  1594. ;; delete-trailing-whitespace

  1595. ;; (defun my-delete-blanks-on-eol ()

  1596.      ;;   ""

  1597.           ;;   (interactive)

  1598.                ;;   (save-excursion

  1599.                       ;;     (goto-char (point-min))

  1600.                              ;;     (while (re-search-forward "[ \t]+$" nil t)

  1601.                                       ;;       (replace-match "" nil nil))))

  1602. 

  1603. (defun my-revert-buffer-if-needed ()

  1604.   ""

  1605.   (interactive)

  1606.   (unless (verify-visited-file-modtime (current-buffer))

  1607.     (revert-buffer t t)))

  1608. 

  1609. (add-hook 'window-configuration-change-hook

  1610.            (lambda ()

  1611.              (run-with-timer 0.5

  1612.                              nil

  1613.                              'my-revert-buffer-if-needed)))

  1614. 

  1615. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

  1616. ;; forked from http://d.hatena.ne.jp/khiker/20100119/window_resize

  1617. (define-key my-prefix-map (kbd "C-w") 'my-window-organizer)

  1618. (defun my-window-organizer ()

  1619.   "Control window size and position."

  1620.   (interactive)

  1621.   (save-selected-window

  1622.     (select-window (window-at 0 0))

  1623.     (let ( ;; (window-obj (selected-window))

  1624.               ;; (current-width (window-width))

  1625.                  ;; (current-height (window-height))

  1626.                     action

  1627.                     c)

  1628.       (catch 'end-flag

  1629.         (while t

  1630.           (setq action

  1631.                 (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."

  1632.                                                   (window-width)

  1633.                                                   (window-height))))

  1634.           (setq c (aref action 0))

  1635.           (cond ((= c ?l)

  1636.                  (unless (eq (window-width) (frame-width))

  1637.                    (enlarge-window-horizontally 1)))

  1638.                 ((= c ?h)

  1639.                  (unless (eq (window-width) (frame-width))

  1640.                    (shrink-window-horizontally 1)))

  1641.                 ((= c ?j)

  1642.                  (enlarge-window 1))

  1643.                 ((= c ?k)

  1644.                  (shrink-window 1))

  1645.                 ((= c ?o)

  1646.                  (other-window 1))

  1647.                 ((memq c '(?d ?0))

  1648.                  (unless (eq (selected-window) (next-window (selected-window) 0 1))

  1649.                    (delete-window (selected-window))))

  1650.                 ((= c ?1)

  1651.                  (delete-other-windows))

  1652.                 ((= c ?2)

  1653.                  (split-window-vertically))

  1654.                 ((= c ?3)

  1655.                  (split-window-horizontally))

  1656.                 ((memq c '(?q ?\C-g))

  1657.                  (message "Quit")

  1658.                  (throw 'end-flag t))

  1659.                 (t

  1660.                  (beep))))))))

  1661. ;; (aref (read-key-sequence-vector "aa") 0)

  1662. 

  1663. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

  1664. ;; save and restore frame size

  1665. ;;http://www.bookshelf.jp/soft/meadow_30.html#SEC416

  1666. (defun my-window-size-save ()

  1667.   (let* ((rlist (frame-parameters (selected-frame)))

  1668.          (ilist initial-frame-alist)

  1669.          (nCHeight (frame-height))

  1670.          (nCWidth (frame-width))

  1671.          (tMargin (if (integerp (cdr (assoc 'top rlist)))

  1672.                       (cdr (assoc 'top rlist)) 0))

  1673.          (lMargin (if (integerp (cdr (assoc 'left rlist)))

  1674.                       (cdr (assoc 'left rlist)) 0))

  1675.          buf

  1676.          (file "~/.emacs.d/.framesize.el")

  1677.          (recentf-exclude '("\\.emacs\\.d/\\.framesize\\.el$")))

  1678.     (if (get-file-buffer (expand-file-name file))

  1679.         (setq buf (get-file-buffer (expand-file-name file)))

  1680.       (setq buf (find-file-noselect file)))

  1681.     (set-buffer buf)

  1682.     (erase-buffer)

  1683.     (insert (concat

  1684.              ;; 初期値をいじるよりも modify-frame-parameters

  1685.                 ;; で変えるだけの方がいい?

  1686.                    "(delete 'width default-frame-alist)\n"

  1687.                    "(delete 'height default-frame-alist)\n"

  1688.                    "(delete 'top default-frame-alist)\n"

  1689.                    "(delete 'left default-frame-alist)\n"

  1690.                    "(setq default-frame-alist (append (list\n"

  1691.                    "'(width . " (int-to-string nCWidth) ")\n"

  1692.                    "'(height . " (int-to-string nCHeight) ")\n"

  1693.                    "'(top . " (int-to-string tMargin) ")\n"

  1694.                    "'(left . " (int-to-string lMargin) "))\n"

  1695.                    "default-frame-alist))\n"

  1696.                    ;;"(setq default-frame-alist default-frame-alist)"

  1697.                      ))

  1698.     (save-buffer)

  1699.     ))

  1700. (defun my-window-size-load ()

  1701.   (let* ((file "~/.emacs.d/.framesize.el"))

  1702.     (if (file-exists-p file)

  1703.         (load file))))

  1704. (when window-system

  1705.   (my-window-size-load)

  1706.   (add-hook 'after-init-hook      ;何かがframeの大きさ勝手に変えやがる

  1707.              (lambda ()

  1708.                (run-with-timer 1

  1709.                                nil

  1710.                                (lambda ()

  1711.                                  (modify-frame-parameters (selected-frame)

  1712.                                                           default-frame-alist))))

  1713.              t)

  1714.   ;; (add-hook 'make-frame-hook

  1715.                 ;;           (lambda ()

  1716.                                ;;             (run-with-timer 1

  1717.                                                               ;;                             nil

  1718.                                                                                              ;;                             (lambda ()

  1719.                                                                                                                               ;;                               (modify-frame-parameters (selected-frame)

  1720.                                                                                                                                                                                         ;;                                                        initial-frame-alist))))

  1721.                              ;;           t)

  1722.      (add-hook 'kill-emacs-hook

  1723.                 'my-window-size-save))

  1724. 

  1725. ;; windowサイズを固定

  1726. ;; setq default-frame-alist

  1727. ;;       (append (list '(width . 80)

  1728.                         ;; 		    '(height . 35)

  1729.                                      ;; 	      )

  1730.                  ;; 	      default-frame-alist)

  1731. ;; ) ;;デフォルトのフレーム設定

  1732. 

  1733. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

  1734. ;; 現在行をハイライト

  1735. ;; http://wiki.riywo.com/index.php?Meadow

  1736. (defface hlline-face

  1737.   '((((type x w32)

  1738.       (class color)

  1739.       (background dark))

  1740.      (:background "midnightblue")) ; :foreground "white")) ;; ハイライトの文字色は変えない方がいいかも

  1741. (((type x w32)

  1742.   (class color)

  1743.   (background light))

  1744.  (:background "gainsboro"))

  1745. (t

  1746.  ()))

  1747. "*Face used by hl-line.")

  1748. (defface hlline-ul-face

  1749.   '((t (:underline "yellow")))

  1750.    "underline yellow")

  1751. (setq hl-line-face 'hlline-face)

  1752. (global-hl-line-mode 1)

  1753. 

  1754. ;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

  1755. ;; ;; emacsを殺伐とさせる

  1756. ;; ;; 補完させるとき失敗するからなし

  1757. ;; ;; http://e-arrows.sakura.ne.jp/2010/05/emacs-should-be-more-savage.html

  1758. ;; (defadvice message (before message-for-stupid (arg &rest arg2) activate)

  1759.      ;;   (setq arg

  1760.                 ;;         (concat arg

  1761.                                    ;;                 (if (eq nil (string-match "\\. *$" arg)) ".")

  1762.                                                       ;;                 " And You are a Coward!")))

  1763. 

  1764. 

  1765. 

  1766. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

  1767. ;; ubuntu

  1768. 

  1769. (defun my-load-scim ()

  1770.   "use scim-bridge.el as japanese im."

  1771.   ;; Load scim-bridge.

  1772.      (require 'scim-bridge)

  1773.      ;; Turn on scim-mode automatically after loading .emacs

  1774.         (add-hook 'after-init-hook 'scim-mode-on)

  1775.         (setq scim-cursor-color "red")

  1776.         (scim-define-preedit-key ?\^h t)

  1777.         (scim-define-common-key ?\* nil)

  1778.         (scim-define-common-key ?\^/ nil))

  1779. 

  1780. 

  1781. 

  1782. (defun my-load-anthy ()

  1783.   "use anthy.el as japanese im."

  1784.   ;; anthy

  1785.      (require 'anthy)

  1786.      (global-set-key [muhenkan] (lambda () (interactive) (anthy-mode-off)))

  1787.      (global-set-key [henkan] (lambda () (interactive) (anthy-mode-on)))

  1788.      (when (>= emacs-major-version 23)

  1789.        (setq anthy-accept-timeout 1)))

  1790. 

  1791. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

  1792. ;; windows用設定

  1793. 

  1794. ;; (add-to-list 'exec-path "c:/Program Files/Gauche/bin/")

  1795. 

  1796. (defun start-ckw-bash ()

  1797.   ""

  1798.   (interactive)

  1799.   (start-process "ckw_bash"

  1800.                  nil

  1801.                  "C:/Documents and Settings/sr/Application Data/dbx/apps/ckw/ckw.exe")) ; cじゃないといけないらしい

  1802. 

  1803. (defun my-w32-add-export-path (&rest args)

  1804.   ""

  1805.   (mapcar (lambda (path)

  1806.             (add-to-list 'exec-path (expand-file-name path)))

  1807.           args)

  1808.   (setenv "PATH"

  1809.           (mapconcat 'convert-standard-filename

  1810.                       exec-path

  1811.                       ";")))

  1812. 

  1813. (when (eq system-type 'windows-nt)

  1814.   ;; (setq scheme-program-name "\"c:/Program Files/Gauche/bin/gosh.exe\" -i")

  1815.      ;; (setq python-python-command "c:/Python26/python.exe")

  1816. 

  1817.         (define-key my-prefix-map (kbd "C-c") 'start-ckw-bash)

  1818.         (my-w32-add-export-path "c:/WINDOWS"

  1819.                                 (expand-file-name "~/bin")

  1820.                                 (expand-file-name "~/dbx/apps/bin"))

  1821. 

  1822.         (when window-system

  1823.           (setq w32-enable-synthesized-fonts t))

  1824.         (setq file-name-coding-system 'sjis))