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

1944 lines
69 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. 

  13. (require 'cl)

  14. 

  15. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

  16. ;; start and quit

  17. 

  18. (setq inhibit-startup-message t)

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

  20.                                " | %b "

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

  22.                                " buffers ["

  23.                                invocation-name

  24.                                " "

  25.                                emacs-version

  26.                                " "

  27.                                (symbol-name system-type)

  28.                                "] "

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

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

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

  32.         b nbl)

  33.     (while bl

  34.       (setq b (pop bl))

  35.       (unless (string-equal " "

  36.                             (substring (buffer-name b)

  37.                                        0

  38.                                        1))

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

  40.     nbl))

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

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

  43. 

  44. (when window-system

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

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

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

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

  49.   )

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

  51. (tool-bar-mode 0)

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

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

  54.           (lambda ()

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

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

  57. 

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

  59.           (lambda ()

  60.             (message (emacs-init-time))

  61.             (switch-to-buffer "*Messages*")

  62.             ))

  63. 

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

  65. 

  66. ;; locale

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

  68. (set-default-coding-systems 'utf-8-unix)

  69. (prefer-coding-system 'utf-8-unix)

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

  71. 

  72. ;; my prefix map

  73. (defvar my-prefix-map

  74.   (make-sparse-keymap))

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

  76.           (lambda ()

  77.             (define-key ctl-x-map (kbd "C-x") my-prefix-map)))

  78. (define-key my-prefix-map (kbd "C-q") 'quoted-insert)

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

  80. 

  81. 

  82. ;; display

  83. (setq redisplay-dont-pause t)

  84. (setq visible-bell t)

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

  86. 

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

  88. 

  89. ;; kill scratch

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

  91.           (lambda ()

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

  93. 

  94. ;; modifier keys

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

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

  97. 

  98. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

  99. ;; mode-line

  100. 

  101. (setq eol-mnemonic-dos "crlf")

  102. (setq eol-mnemonic-mac "cr")

  103. (setq eol-mnemonic-unix "lf")

  104. 

  105. (which-function-mode 0)

  106. 

  107. (line-number-mode 0)

  108. (column-number-mode 0)

  109. (size-indication-mode 0)

  110. (setq mode-line-position

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

  112.                       (count-lines (point-max)

  113.                                    (point-min)))))

  114. 

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

  116. ;; display date

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

  118.           (lambda ()

  119.             ;; (setq display-time-string-forms

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

  121.             (setq display-time-string-forms

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

  123.             (when display-time-mode

  124.               (display-time-update))

  125.             ))

  126. (setq display-time-interval 29)

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

  128. (if window-system

  129.     (display-time-mode 0)

  130.   (display-time-mode 1))

  131. 

  132. ;; ;; current directory

  133. ;; (let ((ls (member 'mode-line-buffer-identification

  134. ;;                   mode-line-format)))

  135. ;;   (setcdr ls

  136. ;;           (cons '(:eval (concat " ("

  137. ;;                                 (abbreviate-file-name default-directory)

  138. ;;                                 ")"))

  139. ;;                 (cdr ls))))

  140. 

  141. ;; ;; display last modified time

  142. ;; (let ((ls (member 'mode-line-buffer-identification

  143. ;;                   mode-line-format)))

  144. ;;   (setcdr ls

  145. ;;           (cons '(:eval (concat " "

  146. ;;                                 my-buffer-file-last-modified-time))

  147. ;;                 (cdr ls))))

  148. 

  149. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

  150. ;; minibuffer

  151. 

  152. (setq insert-default-directory t)

  153. (setq completion-ignore-case t

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

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

  156. (setq resize-mini-window t)

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

  158. 

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

  160. 

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

  162. 

  163. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

  164. ;; letters, font-lock mode and fonts

  165. 

  166. ;; change color for border

  167. ;; (set-face-foreground (make-face 'vertical-border-face) "white")

  168. ;; (set-face-background 'vertical-border-face "black")

  169. ;; (defface vertical-border-face

  170. ;;   `((((background dark))

  171. ;;      (:background "white"))

  172. ;;     (((background light))

  173. ;;      (:background "black")))

  174. ;;   "vertical border")

  175. ;; (set-display-table-slot standard-display-table 'vertical-border

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

  177. ;; (set-face-foreground 'vertical-border "default")

  178. ;; (set-face-background 'vertical-border "white")

  179. 

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

  181.   (mac-set-input-method-parameter 'japanese 'cursor-color "red")

  182.   (mac-set-input-method-parameter 'roman 'cursor-color "black"))

  183. 

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

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

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

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

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

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

  190. 

  191. (show-paren-mode 1)

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

  193. 

  194. (transient-mark-mode 1)

  195. 

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

  197. (setq font-lock-global-modes

  198.       '(not

  199.         help-mode

  200.         eshell-mode

  201.         term-mode

  202.         Man-mode))

  203. 

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

  205. (set-face-foreground (copy-face 'default

  206.                                 'my-eol-face)

  207.                      "green")

  208. ;; (defface my-eol-face

  209. ;;   '((t (:foreground "green")))

  210. ;;   "eol.")

  211. 

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

  213. (defface my-pagebreak-face

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

  215.   "pagebreak.")

  216. 

  217. (defvar my-eol-face

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

  219.   )

  220. (defvar my-pagebreak-face

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

  222. (defvar my-highlight-face

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

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

  225. 

  226. ;; (defvar my-face

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

  228. ;;     ("　" . 'highlight)

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

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

  231. 

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

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

  234. (defface hlline-face

  235.   '((((type x w32)

  236.       (class color)

  237.       (background dark))

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

  239.     (((type x w32)

  240.       (class color)

  241.       (background light))

  242.      (:background "gainsboro"))

  243.     (t

  244.      (:underline "black")))

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

  246. ;; (defface hlline-ul-face

  247. ;;   '((t (:underline "yellow")))

  248. ;;   "underline yellow")

  249. (setq hl-line-face 'hlline-face) ;; (setq hl-line-face nil)

  250. (global-hl-line-mode 1) ;; (hl-line-mode 1)

  251. (setq hl-line-global-modes

  252.       '(not

  253.         term-mode))

  254. 

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

  256.           (lambda ()

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

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

  259.             ))

  260. 

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

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

  263. 

  264. ;; fonts

  265. 

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

  267.   ""

  268.   (if (> emacs-major-version 22)

  269.       (progn                            ; 23 or later

  270.         (set-face-attribute 'default nil

  271.                             :family (nth 0 list)

  272.                             :height (nth 1 list))

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

  274.                           'japanese-jisx0208

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

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

  277.                           'katakana-jisx0201

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

  279.                                         ; font spec is available in emacs23 and later, cannot used in emacs22

  280.     (progn                              ; 22

  281.       (set-face-attribute 'default nil

  282.                           :family (nth 0 list)

  283.                           :height (nth 1 list))

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

  285.                         'japanese-jisx0208

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

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

  288.                         'katakana-jisx0201

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

  290.       )))

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

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

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

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

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

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

  297. ;; あ a

  298. 

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

  300. ;; why saving buffer?

  301. ;; Change cursor color according to mode

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

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

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

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

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

  307.   (let ((color

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

  309.            (if overwrite-mode "yellow"

  310.              "black"))))

  311.     (unless (and

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

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

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

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

  316. (and window-system

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

  318. 

  319. (defun my-set-mode-line-color-according-to-readily-state ()

  320.   ""

  321.   (let ((state (if buffer-read-only

  322.                    'readonly

  323.                  (if overwrite-mode

  324.                      'overwrite

  325.                    'insert))))

  326.     (unless (eq state my-set-mode-line-color-state)

  327.       (set-face-foreground 'mode-line

  328.                            (nth 1

  329.                                 (assq state

  330.                                       my-set-mode-line-color-color)))

  331.       (set-face-background 'mode-line

  332.                            (nth 2

  333.                                 (assq state

  334.                                       my-set-mode-line-color-color)))

  335.       (setq my-set-mode-line-color-state state))))

  336. (defvar my-set-mode-line-color-color nil "")

  337. (setq my-set-mode-line-color-color

  338.       (if window-system

  339.           `((readonly "white" "blue")

  340.             (overwrite "white" "red")

  341.             (insert ,(face-foreground 'modeline) ,(face-background 'modeline)))

  342.         `((readonly "blue" "white")

  343.           (overwrite "red" "white")

  344.           (insert ,(face-foreground 'modeline) ,(face-background 'modeline)))))

  345. (defvar my-set-mode-line-color-state nil "")

  346. (add-hook 'post-command-hook 'my-set-mode-line-color-according-to-readily-state)

  347. (add-hook 'after-init-hook 'my-set-mode-line-color-according-to-readily-state)

  348. 

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

  350. ;; file handling

  351. 

  352. (setq revert-without-query ".+")

  353. 

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

  355. (when (require 'saveplace nil t)

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

  357. 

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

  359. (setq make-backup-files t)

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

  361. (setq backup-directory-alist

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

  363.             backup-directory-alist))

  364. (setq version-control 'never)

  365. (setq delete-old-versions t)

  366. 

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

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

  369. 

  370. (add-to-list 'completion-ignored-extensions ".bak")

  371. ;; (setq delete-by-moving-to-trash t

  372. ;;       trash-directory "~/.emacs.d/trash")

  373. 

  374. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

  375. ;; editting

  376. (setq require-final-newline t)

  377. (setq kill-whole-line t)

  378. (setq scroll-conservatively 35

  379.       scroll-margin 2

  380.       scroll-step 0)

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

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

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

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

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

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

  387. (setq-default tab-width 4)

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

  389. (setq-default indent-line-function nil)

  390. (pc-selection-mode 1)

  391. (delete-selection-mode 1)

  392. (cua-mode 0)

  393. 

  394. ;; key bindings

  395. ;; moving around

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

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

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

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

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

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

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

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

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

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

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

  407. (global-set-key (kbd "<select>") 'previous-line-mark)

  408. (define-key ctl-x-map (kbd "M-x") 'execute-extended-command)

  409. (define-key ctl-x-map (kbd "M-:") 'eval-expression)

  410. 

  411. ;; C-h and DEL

  412. (global-set-key (kbd "C-h") (kbd "DEL"))

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

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

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

  416. ;;                               (interactive)

  417. ;;                               (call-interactively (key-binding (kbd "DEL")))))

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

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

  420. 

  421. (global-set-key (kbd "C-m") 'reindent-then-newline-and-indent)

  422. (global-set-key (kbd "C-o")

  423.                 ;; (lambda ()

  424.                 ;;   (interactive)

  425.                 ;;   (move-end-of-line nil)

  426.                 ;;   (newline-and-indent))

  427.                 (kbd "C-e C-m")

  428.                 )

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

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

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

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

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

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

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

  436. (global-set-key (kbd "M-i")

  437.                 (lambda ()

  438.                   (interactive)

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

  440.                 ;; (kbd "M-TAB")

  441.                 )

  442. 

  443. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

  444. ;; gmail

  445. 

  446. (setq mail-interactive t

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

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

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

  450.       smtpmail-smtp-service 587

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

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

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

  454. 

  455. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

  456. ;; buffer killing

  457. 

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

  459.   ""

  460.   (interactive)

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

  462.       (kill-buffer (current-buffer))))

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

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

  465. 

  466. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

  467. ;; for emacsclient

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

  469. 

  470. 

  471. 

  472. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

  473. ;; global keys

  474. 

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

  476. 

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

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

  479. (define-key ctl-x-map (kbd "DEL") help-map)

  480. (define-key ctl-x-map (kbd "C-h") help-map)

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

  482. 

  483. ;; compose window

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

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

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

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

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

  489. 

  490. ;; disable annoying keys

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

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

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

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

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

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

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

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

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

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

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

  502. 

  503. (mouse-avoidance-mode 'banish)

  504. 

  505. 

  506. 

  507. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

  508. ;; download library from web

  509. 

  510. (require 'url)

  511. 

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

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

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

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

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

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

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

  519.         (progn (condition-case nil

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

  521.                           (url-copy-file url

  522.                                          lpath

  523.                                          t)

  524.                           (when bite-compile-p

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

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

  527.                         nil))

  528.                (locate-library lib))

  529.       locate-p)))

  530. 

  531. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

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

  533. 

  534. (require 'simple nil t)

  535. 

  536. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

  537. ;; share clipboard with x

  538. (when (and window-system

  539.            ;; (getenv "DESKTOP_SESSION")

  540.            (not (eq window-system 'mac))

  541.            )

  542.   (setq x-select-enable-clipboard t     ; these settings seems to be useless when using emacs in terminal

  543.         x-select-enable-primary nil)

  544.   ;; (global-set-key "\C-y" 'x-clipboard-yank)

  545.   )

  546. 

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

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

  549. 

  550. (and (not x-select-enable-clipboard)

  551.      (executable-find "xclip")

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

  553.      (require 'xclip nil t)

  554.      (turn-on-xclip))

  555. 

  556. ;; その他のhook

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

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

  559. 

  560. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

  561. ;; mode

  562. 

  563. (add-hook 'verilog-mode-hook

  564.           (lambda ()

  565.             (define-key verilog-mode-map ";" 'self-insert-command)))

  566. 

  567. (setq diff-switches "-u")

  568. (add-hook 'diff-mode-hook

  569.           (lambda ()

  570.             (view-mode 1)

  571.             (set-face-foreground 'diff-file-header-face nil)

  572.             (set-face-foreground 'diff-header-face nil)

  573.             (set-face-foreground 'diff-index-face "blue")

  574.             (set-face-foreground 'diff-hunk-header-face "cyan")

  575.             (set-face-foreground 'diff-context-face nil)

  576.             (set-face-foreground 'diff-removed-face "red")

  577.             (set-face-foreground 'diff-added-face "green")

  578.             (set-face-foreground 'diff-changed-face "magenda")

  579.             ))

  580. 

  581. ;; (ffap-bindings)

  582. 

  583. (add-hook 'sh-mode-hook

  584.           (lambda ()

  585.             (define-key sh-mode-map (kbd "C-x C-e") 'my-execute-shell-command-current-line)))

  586. 

  587. (defun my-execute-shell-command-current-line ()

  588.   ""

  589.   (interactive)

  590.   (shell-command (buffer-substring-no-properties (point-at-bol)

  591.                                                  (point))))

  592. 

  593. (defun my-python-run-as-command ()

  594.   ""

  595.   (interactive)

  596.   (shell-command (concat python-command " " buffer-file-name)))

  597. 

  598. (add-hook 'python-mode-hook

  599.           (lambda ()

  600.             (define-key python-mode-map (kbd "C-c C-e") 'my-python-run-as-command)))

  601. 

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

  603.           (lambda ()

  604.             (set-window-text-height (display-buffer (current-buffer)

  605.                                                     t)

  606.                                     7)

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

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

  609. 

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

  611. 

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

  613. 

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

  615.           (lambda ()

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

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

  618. 

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

  620. 

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

  622.           (lambda ()

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

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

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

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

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

  628. 

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

  630.           (lambda ()

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

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

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

  634. 

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

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

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

  638.                         t)

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

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

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

  642.             (lambda ()

  643.               (outline-minor-mode 1)

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

  645. 

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

  647. ;; c-mode

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

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

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

  651.           (lambda ()

  652.             (setq c-basic-offset 2

  653.                   indent-tabs-mode nil)

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

  655.             (c-toggle-hungry-state 1)

  656.             ))

  657. 

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

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

  660.                         t)

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

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

  663.   (add-to-list 'auto-mode-alist '("\\.jsm$" . js2-mode)))

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

  665. ;;           (lambda ()

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

  667. ;;                       'my-indent-buffer

  668. ;;                       nil

  669. ;;                       t)))

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

  671.           (lambda ()

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

  673.                                                    (interactive)

  674.                                                    (js2-enter-key)

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

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

  677.                       'js2-before-save)))

  678. 

  679. (and nil

  680.      (require 'zone nil t)

  681.      (not (eq system-type 'windows-nt))

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

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

  684.                                   (unless (memq major-mode

  685.                                                 '(term-mode))

  686.                                     (zone)))))

  687. 

  688. (when (require 'uniquify nil t)

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

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

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

  692. 

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

  694.           (lambda()

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

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

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

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

  699.             (define-key view-mode-map "q" 'bury-buffer)))

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

  701. (setq view-read-only t)

  702. 

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

  704.           (lambda ()

  705.             (view-mode 1)

  706.             (setq truncate-lines nil)))

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

  708.                             'newframe

  709.                           'pushy))

  710. 

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

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

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

  714. ;;             'sgit-load))

  715. 

  716. (require 'session nil t)

  717. 

  718. (when (require 'gtkbm nil t)

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

  720. 

  721. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

  722. ;; frame buffer

  723. 

  724. (add-hook 'after-make-frame-functions

  725.           (lambda (frame)

  726.             (set-window-buffer (frame-selected-window frame)

  727.                                "*Messages*")))

  728. 

  729. (defvar my-frame-buffer-plist nil)

  730. 

  731. (defun my-frame-buffer-add (&optional buf frame)

  732.   ""

  733.   (setq my-frame-buffer-plist

  734.         (plist-put my-frame-buffer-plist

  735.                    (or frame

  736.                        (selected-frame))

  737.                    (let ((lst (my-frame-buffer-get frame)))

  738.                      (if lst

  739.                          (add-to-list 'lst

  740.                                       (or buf

  741.                                           (current-buffer)))

  742.                        (list (or buf

  743.                                  (current-buffer))))))))

  744. 

  745. (defun my-frame-buffer-remove (&optional buf frame)

  746.   ""

  747.   (setq my-frame-buffer-plist

  748.         (plist-put my-frame-buffer-plist

  749.                    (or frame

  750.                        (selected-frame))

  751.                    (delq (or buf

  752.                              (current-buffer))

  753.                          (my-frame-buffer-get frame)))))

  754. 

  755. (defun my-frame-buffer-get (&optional frame)

  756.   ""

  757.   (plist-get my-frame-buffer-plist

  758.              (or frame

  759.                  (selected-frame))))

  760. 

  761. (defun my-frame-buffer-kill-all-buffer (&optional frame)

  762.   ""

  763.   (mapcar 'kill-buffer

  764.           (my-frame-buffer-get frame)))

  765. 

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

  767.           'my-frame-buffer-add)

  768. (add-hook 'term-mode-hook

  769.           'my-frame-buffer-add)

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

  771.           'my-frame-buffer-add)

  772. 

  773. (add-hook 'kill-buffer-hook

  774.           'my-frame-buffer-remove)

  775. (add-hook 'delete-frame-functions

  776.           'my-frame-buffer-kill-all-buffer)

  777. 

  778. 

  779. (defvar my-desktop-terminal "roxterm")

  780. (defun my-execute-terminal ()

  781.   ""

  782.   (interactive)

  783.   (if (and (or (eq system-type 'windows-nt)

  784.                window-system)

  785.            my-desktop-terminal

  786.            )

  787.       (let ((process-environment (cons "TERM=xterm" process-environment)))

  788.         (start-process "terminal"

  789.                        nil

  790.                        my-desktop-terminal))

  791.     (my-term)))

  792. 

  793. (defun my-term ()

  794.   "open terminal buffer and return that buffer."

  795.   (interactive)

  796.   (if (eq system-type 'windows-nt)

  797.       (eshell t)

  798.     (if (featurep 'multi-term)

  799.         (multi-term)

  800.       (ansi-term "/bin/bash"))))

  801. 

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

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

  804.   (interactive)

  805.   (if (eq 1

  806.           (length (frame-list)))

  807.       (save-buffers-kill-emacs)

  808.     (delete-frame)))

  809. 

  810. (define-key my-prefix-map (kbd "C-s") 'my-execute-terminal)

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

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

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

  814. 

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

  816. ;; term mode

  817. 

  818. ;; (setq multi-term-program shell-file-name)

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

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

  821.                        t)

  822.      (require 'multi-term nil t)

  823.      (setq multi-term-switch-after-close nil))

  824. 

  825. (defun my-term-quit-or-send-raw ()

  826.   ""

  827.   (interactive)

  828.   (if (get-buffer-process (current-buffer))

  829.       (call-interactively 'term-send-raw)

  830.     (kill-buffer)))

  831. 

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

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

  834. (add-hook 'term-setup-hook (lambda ()

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

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

  837.                             (unless (memq (current-buffer) (and (featurep 'multi-term) ; current buffer is not multi-term buffer

  838.                                                                 (multi-term-list)))

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

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

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

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

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

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

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

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

  847.                             (define-key term-raw-map "q" 'my-term-quit-or-send-raw)

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

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

  850.                             (define-key term-raw-map (kbd "DEL") 'term-send-backspace)

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

  852.                             (define-key term-raw-map "\C-c" 'term-send-raw) ;; 'term-interrupt-subjob)

  853.                             ;; (dolist (key '("<up>" "<down>" "<right>" "<left>"))

  854.                             ;;   (define-key term-raw-map (kbd key) 'term-send-raw))

  855.                             ;; (define-key term-raw-map "\C-d" 'delete-char)

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

  857.                             ;; (set (make-variable-buffer-local 'cua-enable-cua-keys) nil)

  858.                             ;; (cua-mode 0)

  859.                             ;; (and cua-mode

  860.                             ;;      (local-unset-key (kbd "C-c")))

  861.                             ;; (define-key cua--prefix-override-keymap "\C-c" 'term-interrupt-subjob)

  862.                             ))

  863. ;; (add-hook 'term-exec-hook 'forward-char)

  864. 

  865. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

  866. ;; buffer switching

  867. 

  868. (when (require 'bs nil t)

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

  870.   (defalias 'list-buffers 'bs-show))

  871. 

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

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

  874. (add-to-list 'bs-configurations '("this-frame" nil (lambda (buf) (memq buf (my-frame-buffer-get))) ".*" nil nil))

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

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

  877. (setq bs-default-configuration "this-frame")

  878. (setq bs-default-sort-name "by name")

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

  880.           (lambda ()

  881.             (setq bs-default-configuration "this-frame")

  882.             ;; (and bs--show-all

  883.             ;;      (call-interactively 'bs-toggle-show-all))

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

  885.             ))

  886. 

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

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

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

  890.     (with-current-buffer bf

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

  892. 

  893. (iswitchb-mode 1)

  894. 

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

  896.   ""

  897.   (interactive)

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

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

  900. 

  901. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

  902. ;; sdic

  903. 

  904. (defun sdic-describe-word-at-point-echo ()

  905.   ""

  906.   (interactive)

  907.   (save-window-excursion

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

  909.   (save-excursion

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

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

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

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

  914.                                                (progn (previous-line) t)

  915.                                                (point-at-eol))

  916.                                           (point-max)))))))

  917. 

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

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

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

  921. (setq sdic-window-height 7)

  922. (when (require 'sdic nil t)

  923.   ;; (define-key my-prefix-map "\C-w" 'sdic-describe-word)

  924.   (define-key my-prefix-map "\C-t" 'sdic-describe-word-at-point-echo))

  925. 

  926. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

  927. ;; vc

  928. ;; (require 'vc)

  929. 

  930. (setq vc-handled-backends nil)

  931. 

  932. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

  933. ;; gauche-mode

  934. 

  935. (setq scheme-program-name

  936.       (setq gauche-program-name "gosh"))

  937. 

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

  939.   "Run gauche on other window"

  940.   (interactive)

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

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

  943.   (run-gauche))

  944. 

  945. (defun run-gauche ()

  946.   "run gauche"

  947.   (run-scheme gauche-program-name)

  948.   )

  949. 

  950. (defun scheme-send-buffer ()

  951.   ""

  952.   (interactive)

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

  954.   (set-window-text-height (display-buffer "*scheme*"

  955.                                           t)

  956.                           7)

  957.   )

  958. 

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

  960.           (lambda ()

  961.             nil))

  962. 

  963. (add-hook 'inferior-scheme-mode-hook

  964.           (lambda ()

  965.             (set-window-text-height (display-buffer "*scheme*")

  966.                                     7)

  967.             ))

  968. 

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

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

  971. 

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

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

  974.                         t)

  975.   (setq auto-mode-alist

  976.         (cons '("\.gosh$" . gauche-mode) auto-mode-alist))

  977.   (setq auto-mode-alist

  978.         (cons '("\.gaucherc$" . gauche-mode) auto-mode-alist))

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

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

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

  982.             (lambda ()

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

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

  985.               )))

  986. 

  987. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

  988. ;; recentf-mode

  989. 

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

  991.           'my-recentf-abbrev-list)

  992. 

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

  994.   ""

  995.   (interactive)

  996.   (let ((p (point)))

  997.     (setq recentf-list

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

  999.     (recentf-open-files)

  1000.     (goto-char p)))

  1001. 

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

  1003.   ""

  1004.   (setq recentf-list

  1005.         (mapcar 'abbreviate-file-name

  1006.                 recentf-list)))

  1007. 

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

  1009.   ""

  1010.   (interactive)

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

  1012. 

  1013. (defun my-recentf-dired ()

  1014.   ""

  1015.   (interactive)

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

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

  1018.         (dired file)

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

  1020.                  ".")))))

  1021. 

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

  1023.   ""

  1024.   (interactive)

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

  1026. 

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

  1028.   ""

  1029.   (interactive)

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

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

  1032. 

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

  1034.   "get file name in recentf-mode"

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

  1036.                             ""

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

  1038.                                                             (point-at-eol))))

  1039. 

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

  1041.       recentf-max-menu-items 20

  1042.       recentf-max-saved-items 30

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

  1044. 

  1045. (when (require 'recentf nil t)

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

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

  1048.   ;;           (lambda ()

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

  1050.   (recentf-mode 1)

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

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

  1053. 

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

  1055.           (lambda ()

  1056.             (recentf-save-list)

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

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

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

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

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

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

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

  1064.             (cd "~/")))

  1065. 

  1066. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

  1067. ;; dired

  1068. 

  1069. (require 'dired)

  1070. 

  1071. (defun my-dired-echo-file-head (&optional arg)

  1072.   ""

  1073.   (interactive "P")

  1074.   (let ((f (dired-get-filename)))

  1075.     (message "%s"

  1076.              (with-temp-buffer

  1077.                (insert-file-contents f)

  1078.                (buffer-substring-no-properties (point-min)

  1079.                                                (progn (goto-line (if arg

  1080.                                                                      (prefix-numeric-value arg)

  1081.                                                                    10))

  1082.                                                       (point-at-eol)))))))

  1083. 

  1084. (defun my-dired-diff ()

  1085.   ""

  1086.   (interactive)

  1087.   (let ((files (dired-get-marked-files nil nil nil t)))

  1088.     (if (eq (car files)

  1089.             t)

  1090.         (diff (cadr files) (dired-get-filename))

  1091.       (message "One files must be marked!"))))

  1092. 

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

  1094. (defun my-dired-do-pack-or-unpack ()

  1095.   "pack or unpack files.

  1096. if targetting one file and that is archive file defined in `pack-program-alist', unpack that.

  1097. otherwise, pack marked files. prompt user to decide filename for archive."

  1098.   (interactive)

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

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

  1101.                            (length infiles))

  1102.                        (car infiles))))

  1103.     (if (and onefile

  1104.              (my-pack-file-name-association onefile))

  1105.         (when (y-or-n-p (format "unpack %s? " onefile))

  1106.           (my-unpack onefile))

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

  1108.              (archive-default (my-pack-file-extension (file-name-nondirectory (car infiles))))

  1109.              (archive ;; (if (interactive-p)

  1110.               (read-file-name "Output file to pack : "

  1111.                               dir-default

  1112.                               nil

  1113.                               nil

  1114.                               archive-default)

  1115.               ;; (concat dir-default archive-default)

  1116.               ))

  1117.         (apply 'my-pack

  1118.                archive

  1119.                infiles))))

  1120.   (revert-buffer)

  1121.   ;; (dired-unmark-all-marks)

  1122.   )

  1123. 

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

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

  1126. otherwise, return extension normally."

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

  1128.       (concat "tar."

  1129.               (file-name-extension filename))

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

  1131. 

  1132. (defun my-pack-file-extension (filename)

  1133.   "if FILENAME has extension and it can be used for pack, return FILENAME.

  1134. otherwise, return FILENAME with `my-pack-default-extension'"

  1135.   (if (my-pack-file-name-association filename)

  1136.       filename

  1137.     (concat filename "." my-pack-default-extension)))

  1138. 

  1139. (defvar my-7z-program-name

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

  1141.       (executable-find "7za")

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

  1143.   "7z program.")

  1144. 

  1145. (defvar my-pack-default-extension

  1146.   "7z"

  1147.   "default suffix for packing. filename with this suffix must matches one of `pack-program-alist'")

  1148. 

  1149. (defun my-pack-file-name-association (filename)

  1150.   "if the pattern matching FILENAME is found at car of the list in `pack-program-alist', return cdr of that list.

  1151. otherwise, return nil."

  1152.   (let ((case-fold-search nil))

  1153.     (assoc-default filename

  1154.                    my-pack-program-alist

  1155.                    'string-match-p

  1156.                    nil)))

  1157. 

  1158. (defvar my-pack-program-alist

  1159.   `(

  1160.     ("\\.7z\\'" ,(concat my-7z-program-name " a") ,(concat my-7z-program-name " x"))

  1161.     ("\\.zip\\'" "zip -r" "unzip")

  1162.     ("\\.tar\\'" "tar cf" "tar xf")

  1163.     ("\\.tgz\\'" "tar czf" "tar xzf")

  1164.     ("\\.tar\\.gz\\'" "tar czf" "tar xzf")

  1165.     )

  1166.   "Alist of filename patterns, command for pack and unpack.

  1167. Each element looks like (REGEXP PACKING-COMMAND UNPACKING-COMMAND).

  1168. PACKING-COMMAND and UNPACKING-COMMAND can be nil if the command is not available.

  1169. alist is searched from the beginning so pattern for \".tar.gz\" should be ahead of pattern for \".gz\"")

  1170. ;; (string-match-p "\\.gz\\'" "aaa.gz")    ; \' matches string end, $ also matches the point before newline.

  1171. 

  1172. (defun my-unpack (archive)

  1173.   "unpack ARCHIVE. command for unpacking is defined in `pack-program-alist'"

  1174.   (interactive "fArchive to extract: ")

  1175.   (let* ((earchive (expand-file-name archive))

  1176.          (cmd (nth 1

  1177.                    (my-pack-file-name-association earchive)))

  1178.          )

  1179.     (if cmd

  1180.         (shell-command (concat cmd 

  1181.                                " "

  1182.                                (shell-quote-argument earchive)))

  1183.       (message "this is not archive file defined in `pack-program-alist'!"))))

  1184. 

  1185. (defun my-pack (archive &rest files)

  1186.   "pack FILES into ARCHIVE.

  1187. if ARCHIVE have extension defined in `pack-program-alist', use that command.

  1188. otherwise, use `pack-default-extension' for pack."

  1189.   (let* ((archive-ext (my-pack-file-extension (expand-file-name archive)))

  1190.          (cmd (car (my-pack-file-name-association archive-ext)))

  1191.          )

  1192.     (if cmd

  1193.         (shell-command (concat cmd

  1194.                                " "

  1195.                                (shell-quote-argument archive-ext)

  1196.                                " "

  1197.                                (mapconcat 'shell-quote-argument

  1198.                                           files

  1199.                                           " ")))

  1200.       (message "invalid extension for packing!"))))

  1201. 

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

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

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

  1205.     (with-current-buffer bf

  1206.       (cd ".")

  1207.       (erase-buffer))

  1208.     (display-buffer bf)

  1209.     bf))

  1210. 

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

  1212.   ""

  1213.   (save-excursion

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

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

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

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

  1218. 

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

  1220.   "dired get disk usage"

  1221.   (interactive)

  1222.   (message "calculating du...")

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

  1224. 

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

  1226.   ""

  1227.   (interactive)

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

  1229. 

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

  1231.   ""

  1232.   (interactive)

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

  1234. 

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

  1236.   ""

  1237.   (interactive)

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

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

  1240. 

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

  1242.   ""

  1243.   (interactive)

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

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

  1246. 

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

  1248.   (message "%s  %s"

  1249.            default-directory

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

  1251.                                            (point-at-eol))))

  1252. 

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

  1254.   ""

  1255.   (interactive)

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

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

  1258.         (start-process file nil file)

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

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

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

  1262. 

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

  1264. 

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

  1266.   ""

  1267.   (interactive)

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

  1269. 

  1270. (if (eq window-system 'mac)

  1271.     (setq dired-listing-switches "-lhFG")

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

  1273.   )

  1274. (setq dired-listing-switches "-lhFG")

  1275. 

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

  1277.   ""

  1278.   :init-value nil

  1279.   :global nil

  1280.   :lighter " ALL"

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

  1282.     (my-dired-display-all-set)

  1283.     (revert-buffer)))

  1284. (defun my-dired-display-all-set ()

  1285.   ""

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

  1287.       (or (string-match-p my-dired-display-all-switch

  1288.                           dired-actual-switches)

  1289.           (setq dired-actual-switches

  1290.                 (concat my-dired-display-all-switch

  1291.                         " "

  1292.                         dired-actual-switches)))

  1293.     (setq dired-actual-switches

  1294.           (replace-regexp-in-string (concat my-dired-display-all-switch

  1295.                                             " ")

  1296.                                     ""

  1297.                                     dired-actual-switches))))

  1298. (defvar my-dired-display-all-switch "-A")

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

  1300.           'my-dired-display-all-set)

  1301. 

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

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

  1304. 

  1305. (require 'ls-lisp)

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

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

  1308. (setq ls-lisp-use-localized-time-format t)

  1309. (setq ls-lisp-format-time-list

  1310.       '("%Y-%m-%d %H:%M"

  1311.         "%Y-%m-%d      "))

  1312. 

  1313. (setq dired-dwim-target t)

  1314. 

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

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

  1317. 

  1318. ;; (add-hook 'after-init-hook

  1319. ;;           (lambda ()

  1320. ;;             (dired ".")))

  1321. 

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

  1323.           (lambda ()

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

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

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

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

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

  1329.             (define-key dired-mode-map "=" 'my-dired-diff)

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

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

  1332.             (define-key dired-mode-map "h" 'my-dired-echo-file-head)

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

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

  1335.             (define-key dired-mode-map "P" 'my-dired-do-pack-or-unpack)

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

  1337.             (define-key dired-mode-map "/" 'dired-isearch-filenames)

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

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

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

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

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

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

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

  1345.                 (delete-file file)))))

  1346. 

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

  1348. 

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

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

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

  1352.     (delete-char 1)

  1353.     (insert cur)))

  1354. 

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

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

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

  1358. 

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

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

  1361. this subdir."

  1362. 

  1363.   (interactive "P")

  1364.   (if (dired-get-subdir)

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

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

  1367.       (dired-repeat-over-lines

  1368.        (prefix-numeric-value arg)

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

  1370. 

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

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

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

  1374.   (interactive "p")

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

  1376. 

  1377. (defun dired-mode-hooks()

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

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

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

  1381. 

  1382. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

  1383. ;; eshell

  1384. 

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

  1386.   (interactive)

  1387.   (when (< (save-excursion

  1388.              (eshell-bol)

  1389.              (point))

  1390.            (point))

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

  1392. 

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

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

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

  1396. 

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

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

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

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

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

  1402. ;;   (if args

  1403. ;;       (while args

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

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

  1406. ;;                    (file (pop args)))

  1407. ;;               (view-file file)

  1408. ;;               (goto-line line))

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

  1410. 

  1411. ;; (defun eshell/git (&rest args)

  1412. ;;   ""

  1413. ;;   )

  1414. 

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

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

  1417. 

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

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

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

  1421. ;;   (while args

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

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

  1424. ;;                (file (pop args)))

  1425. ;;           (find-file file)

  1426. ;;           (goto-line line))

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

  1428. 

  1429. (defun eshell/clear ()

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

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

  1432.     (erase-buffer)))

  1433. 

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

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

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

  1437. 

  1438. (defun eshell/v ()

  1439.   (view-mode 1))

  1440. 

  1441. (defalias 'eshell/: 'ignore)

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

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

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

  1445. (defalias 'eshell/q 'eshell/exit)

  1446. 

  1447. (defun eshell-goto-prompt ()

  1448.   ""

  1449.   (interactive)

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

  1451. 

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

  1453.   "open eshell and change wd

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

  1455.   (interactive)

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

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

  1458.                           (eshell t)))

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

  1460.       ;; (cd dir)

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

  1462.       ;; (eshell-emit-prompt)

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

  1464.       (eshell-kill-input)

  1465.       (insert "cd " dir)

  1466.       (eshell-send-input))))

  1467. 

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

  1469. (setq eshell-term-name "eterm-color")

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

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

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

  1473. (setq eshell-highlight-prompt nil)

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

  1475. (setq eshell-prompt-function

  1476.       (lambda ()

  1477.         (with-temp-buffer

  1478.           (let (p1 p2 p3 p4)

  1479.             (insert " [")

  1480.             (setq p1 (point))

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

  1482.             (setq p2 (point))

  1483.             (insert "]"

  1484.                     "\n")

  1485.             (setq p3 (point))

  1486.             (insert user-login-name

  1487.                     "@"

  1488.                     (or (getenv "HOSTNAME")

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

  1490.                                                                 "echo ''"))

  1491.                                    0

  1492.                                    -1)))

  1493.             (setq p4 (point))

  1494.             (insert " "

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

  1496.                     " eshell\n"

  1497.                     "last:"

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

  1499.                     (if (= (user-uid)

  1500.                            0)

  1501.                         " # "

  1502.                       " $ "))

  1503.             (add-text-properties p1

  1504.                                  p2

  1505.                                  '(face ((foreground-color . "yellow"))))

  1506.             (add-text-properties p3

  1507.                                  p4

  1508.                                  '(face ((foreground-color . "cyan"))))

  1509.             (buffer-substring (point-min)

  1510.                               (point-max))))))

  1511. 

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

  1513.           (lambda ()

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

  1515.             ;;                                               (interactive)

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

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

  1518.                                                       (interactive)

  1519.                                                       (eshell-goto-prompt)

  1520.                                                       (eshell-kill-input)))

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

  1522.                                                       (interactive)

  1523.                                                       (eshell-goto-prompt)

  1524.                                                       (my-keyboard-quit)))

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

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

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

  1528.             (mapcar (lambda (alias)

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

  1530.                                    alias))

  1531.                     '(

  1532.                                         ; ("ll" "ls -l $*")

  1533.                                         ; ("la" "ls -a $*")

  1534.                                         ; ("lla" "ls -al $*")

  1535.                       ("ut" "slogin 03110414@un001.ecc.u-tokyo.ac.jp $*")

  1536.                       ("aptin" "apt-get install $*")

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

  1538.                       ("g" "git $*")

  1539.                       ))

  1540.                                         ; (eshell/alias "g" "git $*")

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

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

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

  1544.             ;; (eshell/export "GIT_PAGER=")

  1545.             ;; (eshell/export "GIT_EDITOR=")

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

  1547.             (add-to-list 'eshell-visual-commands "vim")

  1548.             (add-to-list 'eshell-visual-commands "git")

  1549.             (switch-to-buffer (current-buffer)) ; move buffer top of list

  1550.             ))

  1551. 

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

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

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

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

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

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

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

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

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

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

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

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

  1564. 

  1565. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

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

  1567. 

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

  1569. 

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

  1571. 

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

  1573.   ""

  1574.   (nth 5

  1575.        (file-attributes file)))

  1576. 

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

  1578.   ""

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

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

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

  1582. 

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

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

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

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

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

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

  1589. 

  1590. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

  1591. ;; auto saving

  1592. 

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

  1594.   "save current buffer if can without asking"

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

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

  1597.               ""))

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

  1599.                                   'ignore

  1600.                                 'message))))

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

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

  1603.           ((not (file-exists-p buffer-file-name)) (funcall fun "%ssaving... file not exist. save manually first." com) nil)

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

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

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

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

  1608.              (save-buffer)

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

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

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

  1612. ;;          (buffer-modified-p)

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

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

  1615. 

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

  1617. 

  1618. (defun my-auto-save-this-buffer (sec &optional silent-p)

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

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

  1621.   (if sec

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

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

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

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

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

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

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

  1629. 

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

  1631. 

  1632. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

  1633. ;; misc funcs

  1634. 

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

  1636.   ""

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

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

  1639. 

  1640. (defvar my-filer nil)

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

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

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

  1644.   "open file."

  1645.   (interactive "FOpen File: ")

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

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

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

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

  1650.         ((eq system-type 'darwin)

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

  1652.         ((not (getenv "DESKTOP_SESSION"))

  1653.          (find-file file))

  1654.         (t

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

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

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

  1658.   (recentf-add-file file)

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

  1660. 

  1661. (defvar my-auto-indent-buffer-mode-list

  1662.   '(emacs-lisp-mode

  1663.     sh-mode

  1664.     js-mode

  1665.     sgml-mode

  1666.     c-mode

  1667.     c++-mode))

  1668. (setq my-auto-indent-buffer-mode-list nil) ;disable

  1669. (defun my-indent-buffer ()

  1670.   "indent whole buffer."

  1671.   (interactive)

  1672.   (indent-region (point-min)

  1673.                  (point-max)))

  1674. (defun my-auto-indent-buffer ()

  1675.   ""

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

  1677.     (my-indent-buffer)))

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

  1679.           'my-auto-indent-buffer)

  1680. 

  1681. (defun my-keyboard-quit ()

  1682.   ""

  1683.   (interactive)

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

  1685.   ;; (redisplay t)

  1686.   (redraw-display)

  1687.   ;; (run-hooks 'window-configuration-change-hook)

  1688.   (my-revert-buffer-if-needed)

  1689.   ;; (revert-buffer t t)

  1690.   (keyboard-quit)

  1691.   (insert "insert me")

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

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

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

  1695. 

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

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

  1698. this is test, does not rename files"

  1699.   (interactive)

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

  1701. 

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

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

  1704.   (interactive)

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

  1706. 

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

  1708.   ""

  1709.   (interactive)

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

  1711.                                       (point-at-eol))

  1712.                     "\n")))

  1713. 

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

  1715.   "get current filename"

  1716.   (interactive)

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

  1718.     (if file

  1719.         (progn (kill-new file)

  1720.                (message file))

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

  1722. 

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

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

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

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

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

  1728. ;;                              "parsec47"

  1729. ;;                              "chromium-browser"

  1730. ;;                              "inkscape"

  1731. ;;                              "audacious"

  1732. ;;                              "gnome-terminal"

  1733. ;;                              "zkaicd.py"

  1734. ;;                              "glchess"))

  1735. 

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

  1737. ;;   "execute something"

  1738. ;;   (interactive)

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

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

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

  1742. ;;                           (eval-buffer))

  1743. ;;       (start-process "ps"

  1744. ;;                      nil

  1745. ;;                      func))))

  1746. 

  1747. (defvar my-revert-buffer-if-needed-last-buffer nil)

  1748. 

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

  1750.   ""

  1751.   (interactive)

  1752.   (unless (eq my-revert-buffer-if-needed-last-buffer (current-buffer))

  1753.     (setq my-revert-buffer-if-needed-last-buffer (current-buffer))

  1754.     (when (or (eq major-mode 'dired-mode)

  1755.               (not (verify-visited-file-modtime (current-buffer))))

  1756.       (revert-buffer t t)

  1757.       (message "%s reverted." (buffer-name)))))

  1758. 

  1759. (add-hook 'post-command-hook ; 'window-configuration-change-hook

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

  1761. 

  1762. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

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

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

  1765. 

  1766. (defun my-window-organizer ()

  1767.   "Control window size and position."

  1768.   (interactive)

  1769.   (save-selected-window

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

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

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

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

  1774.           action

  1775.           c)

  1776.       (catch 'end-flag

  1777.         (while t

  1778.           (setq action

  1779.                 (read-key-sequence-vector (format "size[%dx%d] 1: maximize; 2, 3: split; 0: delete; o: select other; j, l: enlarge; h, k: shrink; q: quit."

  1780.                                                   (window-width)

  1781.                                                   (window-height))))

  1782.           (setq c (aref action 0))

  1783.           (cond ((= c ?l)

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

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

  1786.                 ((= c ?h)

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

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

  1789.                 ((= c ?j)

  1790.                  (enlarge-window 1))

  1791.                 ((= c ?k)

  1792.                  (shrink-window 1))

  1793.                 ((= c ?o)

  1794.                  (other-window 1))

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

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

  1797.                    (delete-window (selected-window))))

  1798.                 ((= c ?1)

  1799.                  (delete-other-windows))

  1800.                 ((= c ?2)

  1801.                  (split-window-vertically))

  1802.                 ((= c ?3)

  1803.                  (split-window-horizontally))

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

  1805.                  (message "Quit")

  1806.                  (throw 'end-flag t))

  1807.                 (t

  1808.                  (beep))))))))

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

  1810. 

  1811. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

  1812. ;; save and restore frame size

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

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

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

  1816.          (ilist initial-frame-alist)

  1817.          (nCHeight (frame-height))

  1818.          (nCWidth (frame-width))

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

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

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

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

  1823.          buf

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

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

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

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

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

  1829.     (set-buffer buf)

  1830.     (erase-buffer)

  1831.     (insert (concat

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

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

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

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

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

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

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

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

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

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

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

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

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

  1845.              ))

  1846.     (save-buffer)

  1847.     ))

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

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

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

  1851.         (load file))))

  1852. (when window-system

  1853.   (my-window-size-load)

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

  1855.             (lambda ()

  1856.               (run-with-timer 1

  1857.                               nil

  1858.                               (lambda ()

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

  1860.                                                          default-frame-alist))))

  1861.             t)

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

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

  1864. 

  1865. ;; windowサイズを固定

  1866. ;; setq default-frame-alist

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

  1868. ;; 		    '(height . 35)

  1869. ;; 	      )

  1870. ;; 	      default-frame-alist)

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

  1872. 

  1873. ;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

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

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

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

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

  1878. ;;   (setq arg

  1879. ;;         (concat arg

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

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

  1882. 

  1883. 

  1884. 

  1885. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

  1886. ;; ubuntu

  1887. 

  1888. (defun my-load-scim ()

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

  1890.   ;; Load scim-bridge.

  1891.   (require 'scim-bridge)

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

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

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

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

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

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

  1898. 

  1899. (defun my-load-anthy ()

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

  1901.   ;; anthy

  1902.   (require 'anthy)

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

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

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

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

  1907. 

  1908. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

  1909. ;; windows用設定

  1910. 

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

  1912. 

  1913. (defun start-ckw-bash ()

  1914.   ""

  1915.   (interactive)

  1916.   (start-process "ckw_bash"

  1917.                  nil

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

  1919. 

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

  1921.   ""

  1922.   (mapcar (lambda (path)

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

  1924.           (reverse args))

  1925.   (setenv "PATH"

  1926.           (mapconcat 'convert-standard-filename

  1927.                      exec-path

  1928.                      ";")))

  1929. 

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

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

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

  1933. 

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

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

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

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

  1938. 

  1939.   (when window-system

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

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

  1942.