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.
4 Commits
1 Branch
17 MiB
 
 
 
 
 
 
Tree: cb72eaedd3
Branches Tags
${ item.name }
Create branch ${ searchTerm }
from 'cb72eaedd3'
${ noResults }
dotfiles-mirror/.emacs

1818 lines
64 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. 

  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. (defadvice vc-rcs-register (after rcs-register-non-strict-locking activate)

  802.   ""

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

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

  805. 

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

  807.   ""

  808.   (save-buffer))

  809. 

  810. (setq vc-command-messages t)

  811. 

  812. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

  813. ;; gauche-mode

  814. 

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

  816. 

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

  818.   "Run gauche on other window"

  819.   (interactive)

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

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

  822.   (run-gauche))

  823. 

  824. (defun run-gauche ()

  825.   "run gauche"

  826.   (run-scheme "gosh"))

  827. 

  828. (defun scheme-send-buffer ()

  829.   ""

  830.   (interactive)

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

  832. 

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

  834.           (lambda ()

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

  836. 

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

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

  839. 

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

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

  842.                         t)

  843.   (setq auto-mode-alist

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

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

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

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

  848.             (lambda ()

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

  850. 

  851. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

  852. ;; recentf-mode

  853. 

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

  855.           'my-recentf-abbrev-list)

  856. 

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

  858.   ""

  859.   (interactive)

  860.   (let ((p (point)))

  861.     (setq recentf-list

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

  863.     (recentf-open-files)

  864.     (goto-char p)))

  865. 

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

  867.   ""

  868.   (setq recentf-list

  869.         (mapcar 'abbreviate-file-name

  870.                 recentf-list)))

  871. 

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

  873.   ""

  874.   (interactive)

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

  876. 

  877. (defun my-recentf-dired ()

  878.   ""

  879.   (interactive)

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

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

  882.         (dired file)

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

  884.                  ".")))))

  885. 

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

  887.   ""

  888.   (interactive)

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

  890. 

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

  892.   ""

  893.   (interactive)

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

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

  896. 

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

  898.   "get file name in recentf-mode"

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

  900.                             ""

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

  902.                                                             (point-at-eol))))

  903. 

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

  905.       recentf-max-menu-items 20

  906.       recentf-max-saved-items 30

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

  908. 

  909. (when (require 'recentf nil t)

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

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

  912.   ;;           (lambda ()

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

  914.   (recentf-mode 1)

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

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

  917. 

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

  919.           (lambda ()

  920.             (recentf-save-list)

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

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

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

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

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

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

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

  928.             (cd "~/")))

  929. 

  930. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

  931. ;; dired

  932. 

  933. (require 'dired)

  934. 

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

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

  937.   ""

  938.   (interactive)

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

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

  941.                            (length infiles))

  942.                        (car infiles))))

  943.     (if (and onefile

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

  945.                     my-compress-program-alist))

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

  947.           (my-uncompress onefile)

  948.           (revert-buffer))

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

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

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

  952.              (outfile (if (interactive-p)

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

  954.                                                   outfile-default)

  955.                                           dir-default

  956.                                           outfile-default)

  957.                         outfile-default)))

  958.         (apply 'my-compress

  959.                outfile

  960.                infiles)

  961.         (revert-buffer)))

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

  963. 

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

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

  966. otherwise, return extension normally."

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

  968.       (concat "tar."

  969.               (file-name-extension filename))

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

  971. 

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

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

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

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

  976.              my-compress-program-alist)

  977.       filename

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

  979. 

  980. (defvar my-7z-program

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

  982.       (executable-find "7za")

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

  984. 

  985. (defvar my-compress-default-extension

  986.   "7z")

  987. 

  988. (defvar my-compress-program-alist

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

  990.     ("tar" "tar" "cvf" "tar" "xvf")

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

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

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

  994. 

  995. (defun my-uncompress (file)

  996.   ""

  997.   (interactive "fFile to extract: ")

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

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

  1000.          (lst (assoc ext

  1001.                      my-compress-program-alist))

  1002.          (com (nth 3 lst))

  1003.          (op (nth 4 lst))

  1004.          (args (if op

  1005.                    (list op efile)

  1006.                  (list efile))))

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

  1008.     (apply 'call-process

  1009.            com

  1010.            nil

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

  1012.            t

  1013.            args)

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

  1015. 

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

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

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

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

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

  1021.          (lst (assoc ext

  1022.                      my-compress-program-alist))

  1023.          (com (nth 1 lst))

  1024.          (op (nth 2 lst))

  1025.          (args (if op

  1026.                    (apply 'list

  1027.                           op

  1028.                           outfile-ext

  1029.                           infiles)

  1030.                  (apply 'list

  1031.                         outfile-ext

  1032.                         infiles))))

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

  1034.     (apply 'call-process

  1035.            com

  1036.            nil

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

  1038.            t

  1039.            args)

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

  1041. 

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

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

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

  1045.     (with-current-buffer bf

  1046.       (cd ".")

  1047.       (erase-buffer))

  1048.     (display-buffer bf)

  1049.     bf))

  1050. 

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

  1052.   ""

  1053.   (save-excursion

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

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

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

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

  1058. 

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

  1060.   "dired get disk usage"

  1061.   (interactive)

  1062.   (message "calculating du...")

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

  1064. 

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

  1066.   ""

  1067.   (interactive)

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

  1069. 

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

  1071.   ""

  1072.   (interactive)

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

  1074. 

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

  1076.   ""

  1077.   (interactive)

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

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

  1080. 

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

  1082.   ""

  1083.   (interactive)

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

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

  1086. 

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

  1088.   (message "%s  %s"

  1089.            default-directory

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

  1091.                                            (point-at-eol))))

  1092. 

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

  1094.   ""

  1095.   (interactive)

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

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

  1098.         (start-process file nil file)

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

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

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

  1102. 

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

  1104. 

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

  1106.   ""

  1107.   (interactive)

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

  1109. 

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

  1111.   ""

  1112.   (interactive)

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

  1114. 

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

  1116.   ""

  1117.   (interactive)

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

  1119.                                  (dired-get-filename))))

  1120.         (bf (current-buffer)))

  1121.     (find-file f)

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

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

  1124.       (kill-buffer bf))))

  1125. 

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

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

  1128.   ""

  1129.   :init-value nil

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

  1131.       (setq dired-actual-switches

  1132.             (concat "-A "

  1133.                     dired-actual-switches))

  1134.     (setq dired-actual-switches

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

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

  1137.     (revert-buffer)))

  1138. 

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

  1140. (require 'ls-lisp)

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

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

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

  1144. (setq dired-dwim-target t)

  1145. 

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

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

  1148. 

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

  1150.           (lambda ()

  1151.             (dired ".")))

  1152. 

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

  1154.           (lambda ()

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

  1176.                 (delete-file file)))))

  1177. 

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

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

  1180. ;;           (lambda ()

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

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

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

  1184. 

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

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

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

  1188. 

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

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

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

  1192. 

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

  1194. 

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

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

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

  1198.     (delete-char 1)

  1199.     (insert cur)))

  1200. 

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

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

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

  1204. 

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

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

  1207. this subdir."

  1208. 

  1209.   (interactive "P")

  1210.   (if (dired-get-subdir)

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

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

  1213.       (dired-repeat-over-lines

  1214.        (prefix-numeric-value arg)

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

  1216. 

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

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

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

  1220.   (interactive "p")

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

  1222. 

  1223. (defun dired-mode-hooks()

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

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

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

  1227. 

  1228. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

  1229. ;; eshell

  1230. 

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

  1232.   (interactive)

  1233.   (when (< (save-excursion

  1234.              (eshell-bol)

  1235.              (point))

  1236.            (point))

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

  1238. 

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

  1240. 

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

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

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

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

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

  1246.          bf)))

  1247. 

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

  1249.           (lambda ()

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

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

  1252. 

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

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

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

  1256. 

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

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

  1259. (defun eshell/less (&rest args)

  1260.   "Invoke `view-file' on the file.

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

  1262.   (if args

  1263.       (while args

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

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

  1266.                    (file (pop args)))

  1267.               (view-file file)

  1268.               (goto-line line))

  1269.           (view-file (pop args))))))

  1270. 

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

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

  1273. 

  1274. (defun eshell/vi (&rest args)

  1275.   "Invoke `find-file' on the file.

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

  1277.   (while args

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

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

  1280.                (file (pop args)))

  1281.           (find-file file)

  1282.           (goto-line line))

  1283.       (find-file (pop args)))))

  1284. 

  1285. (defun eshell/clear ()

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

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

  1288.     (erase-buffer)))

  1289. 

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

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

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

  1293. 

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

  1295. (defalias 'eshell/vim 'eshell/vi)

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

  1297. 

  1298. (defun eshell-goto-prompt ()

  1299.   ""

  1300.   (interactive)

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

  1302. 

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

  1304.   "open eshell and change wd

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

  1306.   (interactive)

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

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

  1309.                           (eshell t)))

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

  1311.       ;; (cd dir)

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

  1313.       ;; (eshell-emit-prompt)

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

  1315.       (eshell-kill-input)

  1316.       (insert "cd " dir)

  1317.       (eshell-send-input))))

  1318. 

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

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

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

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

  1323. (setq eshell-highlight-prompt nil)

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

  1325. (setq eshell-prompt-function

  1326.       (lambda ()

  1327.         (with-temp-buffer

  1328.           (let (p1 p2 p3 p4)

  1329.             (insert " [")

  1330.             (setq p1 (point))

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

  1332.             (setq p2 (point))

  1333.             (insert "]"

  1334.                     "\n")

  1335.             (setq p3 (point))

  1336.             (insert user-login-name

  1337.                     "@"

  1338.                     (or (getenv "HOSTNAME")

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

  1340.                                                                 ":"))

  1341.                                    0

  1342.                                    -1)))

  1343.             (setq p4 (point))

  1344.             (insert " "

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

  1346.                     " ESHELL\n"

  1347.                     "last:"

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

  1349.                     (if (= (user-uid)

  1350.                            0)

  1351.                         " # "

  1352.                       " $ "))

  1353.             (add-text-properties p1

  1354.                                  p2

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

  1356.             (add-text-properties p3

  1357.                                  p4

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

  1359.             (buffer-substring (point-min)

  1360.                               (point-max))))))

  1361. 

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

  1363.           (lambda ()

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

  1365.             ;;                                               (interactive)

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

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

  1368.                                                       (interactive)

  1369.                                                       (eshell-goto-prompt)

  1370.                                                       (eshell-kill-input)))

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

  1372.                                                       (interactive)

  1373.                                                       (eshell-goto-prompt)

  1374.                                                       (my-keyboard-quit)))

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

  1376.             (mapcar (lambda (alias)

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

  1378.                                    alias))

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

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

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

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

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

  1384.                       ("u" "uname")

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

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

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

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

  1389.             (eshell/export "GIT_PAGER=")

  1390.             (eshell/export "GIT_EDITOR=")

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

  1392.             ))

  1393. 

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

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

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

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

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

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

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

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

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

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

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

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

  1406. 

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

  1408.                                         (interactive)

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

  1410.                                                                                       (eshell t))))))

  1411. 

  1412. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

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

  1414. 

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

  1416. 

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

  1418. 

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

  1420.   ""

  1421.   (nth 5

  1422.        (file-attributes file)))

  1423. 

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

  1425.   ""

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

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

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

  1429. 

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

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

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

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

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

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

  1436. 

  1437. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

  1438. ;; auto saving

  1439. 

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

  1441.   "save current buffer if can without asking"

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

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

  1444.               ""))

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

  1446.                                   'ignore

  1447.                                 'message))))

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

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

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

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

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

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

  1454.              (save-buffer)

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

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

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

  1458. ;;          (buffer-modified-p)

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

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

  1461. 

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

  1463. 

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

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

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

  1467.   (if secs

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

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

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

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

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

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

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

  1475. 

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

  1477. 

  1478. 

  1479. 

  1480. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

  1481. ;; misc funcs

  1482. 

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

  1484.   ""

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

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

  1487. 

  1488. (defvar my-filer nil)

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

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

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

  1492.   "open file."

  1493.   (interactive "FOpen File: ")

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

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

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

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

  1498.         ((eq system-type 'darwin)

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

  1500.         ((not (getenv "DESKTOP_SESSION"))

  1501.          (find-file file))

  1502.         (t

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

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

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

  1506.   (recentf-add-file file)

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

  1508. 

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

  1510.   '(emacs-lisp-mode

  1511.     sh-mode

  1512.     js-mode

  1513.     sgml-mode

  1514.     c-mode))

  1515. (defun my-indent-buffer ()

  1516.   ""

  1517.   (interactive)

  1518.   (indent-region (point-min)

  1519.                  (point-max))) 

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

  1521.           (lambda ()

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

  1523.               (my-indent-buffer))))

  1524. 

  1525. (defun my-keyboard-quit ()

  1526.   ""

  1527.   (interactive)

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

  1529.   (redisplay)

  1530.   (keyboard-quit)

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

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

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

  1534. 

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

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

  1537. this is test, does not rename files"

  1538.   (interactive)

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

  1540. 

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

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

  1543.   (interactive)

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

  1545. 

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

  1547.   ""

  1548.   (interactive)

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

  1550.                                       (point-at-eol))

  1551.                     "\n")))

  1552. 

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

  1554.   "get current filename"

  1555.   (interactive)

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

  1557.     (if file

  1558.         (progn (kill-new file)

  1559.                (message file))

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

  1561. 

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

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

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

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

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

  1567. ;;                              "parsec47"

  1568. ;;                              "chromium-browser"

  1569. ;;                              "inkscape"

  1570. ;;                              "audacious"

  1571. ;;                              "gnome-terminal"

  1572. ;;                              "zkaicd.py"

  1573. ;;                              "glchess"))

  1574. 

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

  1576. ;;   "execute something"

  1577. ;;   (interactive)

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

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

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

  1581. ;;                           (eval-buffer))

  1582. ;;       (start-process "ps"

  1583. ;;                      nil

  1584. ;;                      func))))

  1585. 

  1586. ;; delete-trailing-whitespace

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

  1588. ;;   ""

  1589. ;;   (interactive)

  1590. ;;   (save-excursion

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

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

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

  1594. 

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

  1596.   ""

  1597.   (interactive)

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

  1599.     (revert-buffer t t)))

  1600. 

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

  1602.           (lambda ()

  1603.             (run-with-timer 0.5

  1604.                             nil

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

  1606. 

  1607. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

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

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

  1610. (defun my-window-organizer ()

  1611.   "Control window size and position."

  1612.   (interactive)

  1613.   (save-selected-window

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

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

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

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

  1618.           action

  1619.           c)

  1620.       (catch 'end-flag

  1621.         (while t

  1622.           (setq action

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

  1624.                                                   (window-width)

  1625.                                                   (window-height))))

  1626.           (setq c (aref action 0))

  1627.           (cond ((= c ?l)

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

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

  1630.                 ((= c ?h)

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

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

  1633.                 ((= c ?j)

  1634.                  (enlarge-window 1))

  1635.                 ((= c ?k)

  1636.                  (shrink-window 1))

  1637.                 ((= c ?o)

  1638.                  (other-window 1))

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

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

  1641.                    (delete-window (selected-window))))

  1642.                 ((= c ?1)

  1643.                  (delete-other-windows))

  1644.                 ((= c ?2)

  1645.                  (split-window-vertically))

  1646.                 ((= c ?3)

  1647.                  (split-window-horizontally))

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

  1649.                  (message "Quit")

  1650.                  (throw 'end-flag t))

  1651.                 (t

  1652.                  (beep))))))))

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

  1654. 

  1655. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

  1656. ;; save and restore frame size

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

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

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

  1660.          (ilist initial-frame-alist)

  1661.          (nCHeight (frame-height))

  1662.          (nCWidth (frame-width))

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

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

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

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

  1667.          buf

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

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

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

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

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

  1673.     (set-buffer buf)

  1674.     (erase-buffer)

  1675.     (insert (concat

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

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

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

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

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

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

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

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

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

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

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

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

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

  1689.              ))

  1690.     (save-buffer)

  1691.     ))

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

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

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

  1695.         (load file))))

  1696. (when window-system

  1697.   (my-window-size-load)

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

  1699.             (lambda ()

  1700.               (run-with-timer 1

  1701.                               nil

  1702.                               (lambda ()

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

  1704.                                                          default-frame-alist))))

  1705.             t)

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

  1707.   ;;           (lambda ()

  1708.   ;;             (run-with-timer 1

  1709.   ;;                             nil

  1710.   ;;                             (lambda ()

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

  1712.   ;;                                                        initial-frame-alist))))

  1713.   ;;           t)

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

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

  1716. 

  1717. ;; windowサイズを固定

  1718. ;; setq default-frame-alist

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

  1720. ;; 		    '(height . 35)

  1721. ;; 	      )

  1722. ;; 	      default-frame-alist)

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

  1724. 

  1725. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

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

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

  1728. (defface hlline-face

  1729.   '((((type x w32)

  1730.       (class color)

  1731.       (background dark))

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

  1733.     (((type x w32)

  1734.       (class color)

  1735.       (background light))

  1736.      (:background "gainsboro"))

  1737.     (t

  1738.      ()))

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

  1740. (defface hlline-ul-face

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

  1742.   "underline yellow")

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

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

  1745. 

  1746. ;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

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

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

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

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

  1751. ;;   (setq arg

  1752. ;;         (concat arg

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

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

  1755. 

  1756. 

  1757. 

  1758. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

  1759. ;; ubuntu

  1760. 

  1761. (defun my-load-scim ()

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

  1763.   ;; Load scim-bridge.

  1764.   (require 'scim-bridge)

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

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

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

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

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

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

  1771. 

  1772. 

  1773. 

  1774. (defun my-load-anthy ()

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

  1776.   ;; anthy

  1777.   (require 'anthy)

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

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

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

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

  1782. 

  1783. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

  1784. ;; windows用設定

  1785. 

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

  1787. 

  1788. (defun start-ckw-bash ()

  1789.   ""

  1790.   (interactive)

  1791.   (start-process "ckw_bash"

  1792.                  nil

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

  1794. 

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

  1796.   ""

  1797.   (mapcar (lambda (path)

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

  1799.           args)

  1800.   (setenv "PATH"

  1801.           (mapconcat 'convert-standard-filename

  1802.                      exec-path

  1803.                      ";")))

  1804. 

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

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

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

  1808. 

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

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

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

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

  1813. 

  1814.   (when window-system

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

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