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

1943 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 "init time: %d msec"

  61.             ;;          (+ (* (- (nth 1 after-init-time) (nth 1 before-init-time)) 1000)

  62.             ;;             (/ (- (nth 2 after-init-time) (nth 2 before-init-time)) 1000)))

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

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

  65.             ))

  66. 

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

  68. 

  69. ;; locale

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

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

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

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

  74. 

  75. ;; my prefix map

  76. (defvar my-prefix-map

  77.   (make-sparse-keymap))

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

  79.           (lambda ()

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

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

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

  83. 

  84. 

  85. ;; display

  86. (setq redisplay-dont-pause t)

  87. (setq visible-bell t)

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

  89. 

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

  91. 

  92. ;; kill scratch

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

  94.           (lambda ()

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

  96. 

  97. ;; modifier keys

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

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

  100. 

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

  102. ;; why saving buffer?

  103. ;; Change cursor color according to mode

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

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

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

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

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

  109.   (let ((color

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

  111.            (if overwrite-mode "yellow"

  112.              "black"))))

  113.     (unless (and

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

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

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

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

  118. (and window-system

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

  120. 

  121. (defun my-set-mode-line-color-read-only ()

  122.   ""

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

  124.                    'readonly

  125.                  (if overwrite-mode

  126.                      'overwrite

  127.                    'insert))))

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

  129.       (set-face-foreground 'modeline

  130.                            (nth 1

  131.                                 (assq state

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

  133.       (set-face-background 'modeline

  134.                            (nth 2

  135.                                 (assq state

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

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

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

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

  140.       '((readonly "blue" "white")

  141.         (overwrite "red" "white")

  142.         (insert nil nil)))

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

  144. (add-hook 'post-command-hook 'my-set-mode-line-color-read-only)

  145. (add-hook 'after-init-hook 'my-set-mode-line-color-read-only)

  146. 

  147. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

  148. ;; mode-line

  149. 

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

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

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

  153. 

  154. (which-function-mode 0)

  155. 

  156. (line-number-mode 0)

  157. (column-number-mode 0)

  158. (size-indication-mode 0)

  159. (setq mode-line-position

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

  161.                       (count-lines (point-max)

  162.                                    (point-min)))))

  163. 

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

  165. ;; display date

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

  167.           (lambda ()

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

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

  170.             (setq display-time-string-forms

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

  172.             (when display-time-mode

  173.               (display-time-update))

  174.             ))

  175. (setq display-time-interval 29)

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

  177. (if window-system

  178.     (display-time-mode 0)

  179.   (display-time-mode 1))

  180. 

  181. ;; ;; current directory

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

  183. ;;                   mode-line-format)))

  184. ;;   (setcdr ls

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

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

  187. ;;                                 ")"))

  188. ;;                 (cdr ls))))

  189. 

  190. ;; ;; display last modified time

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

  192. ;;                   mode-line-format)))

  193. ;;   (setcdr ls

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

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

  196. ;;                 (cdr ls))))

  197. 

  198. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

  199. ;; minibuffer

  200. 

  201. (setq insert-default-directory t)

  202. (setq completion-ignore-case t

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

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

  205. (setq resize-mini-window t)

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

  207. 

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

  209. 

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

  211. 

  212. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

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

  214. 

  215. ;; change color for border

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

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

  218. ;; (defface vertical-border-face

  219. ;;   `((((background dark))

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

  221. ;;     (((background light))

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

  223. ;;   "vertical border")

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

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

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

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

  228. 

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

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

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

  232. 

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

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

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

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

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

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

  239. 

  240. (show-paren-mode 1)

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

  242. 

  243. (transient-mark-mode 1)

  244. 

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

  246. (setq font-lock-global-modes

  247.       '(not

  248.         help-mode

  249.         eshell-mode

  250.         term-mode

  251.         Man-mode))

  252. 

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

  254. (copy-face 'default 'my-eol-face)

  255. (set-face-foreground 'my-eol-face "green")

  256. ;; (defface my-eol-face

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

  258. ;;   "eol.")

  259. 

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

  261. (defface my-pagebreak-face

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

  263.   "pagebreak.")

  264. 

  265. (defvar my-eol-face

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

  267.   )

  268. (defvar my-pagebreak-face

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

  270. (defvar my-highlight-face

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

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

  273. 

  274. ;; (defvar my-face

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

  276. ;;     ("　" . 'highlight)

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

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

  279. 

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

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

  282. (defface hlline-face

  283.   '((((type x w32)

  284.       (class color)

  285.       (background dark))

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

  287.     (((type x w32)

  288.       (class color)

  289.       (background light))

  290.      (:background "gainsboro"))

  291.     (t

  292.      (:underline "black")))

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

  294. ;; (defface hlline-ul-face

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

  296. ;;   "underline yellow")

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

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

  299. (setq hl-line-global-modes

  300.       '(not

  301.         term-mode))

  302. 

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

  304.           (lambda ()

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

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

  307.             ))

  308. 

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

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

  311. 

  312. ;; fonts

  313. 

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

  315.   ""

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

  317.       (progn                            ; 23 or later

  318.         (set-face-attribute 'default nil

  319.                             :family (nth 0 list)

  320.                             :height (nth 1 list))

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

  322.                           'japanese-jisx0208

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

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

  325.                           'katakana-jisx0201

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

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

  328.     (progn                              ; 22

  329.       (set-face-attribute 'default nil

  330.                           :family (nth 0 list)

  331.                           :height (nth 1 list))

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

  333.                         'japanese-jisx0208

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

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

  336.                         'katakana-jisx0201

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

  338.       )))

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

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

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

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

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

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

  345. ;; あ a

  346. 

  347. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

  348. ;; file handling

  349. 

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

  351. 

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

  353. (when (require 'saveplace nil t)

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

  355. 

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

  357. (setq make-backup-files t)

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

  359. (setq backup-directory-alist

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

  361.             backup-directory-alist))

  362. (setq version-control 'never)

  363. (setq delete-old-versions t)

  364. 

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

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

  367. 

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

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

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

  371. 

  372. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

  373. ;; editting

  374. (setq require-final-newline t)

  375. (setq kill-whole-line t)

  376. (setq scroll-conservatively 35

  377.       scroll-margin 2

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

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

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

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

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

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

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

  385. (setq-default tab-width 4)

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

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

  388. (pc-selection-mode 1)

  389. (delete-selection-mode 1)

  390. (cua-mode 0)

  391. 

  392. ;; key bindings

  393. ;; moving around

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

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

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

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

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

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

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

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

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

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

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

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

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

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

  408. 

  409. ;; C-h and DEL

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

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

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

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

  414. ;;                               (interactive)

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

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

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

  418. 

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

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

  421.                 ;; (lambda ()

  422.                 ;;   (interactive)

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

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

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

  426.                 )

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

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

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

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

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

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

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

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

  435.                 (lambda ()

  436.                   (interactive)

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

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

  439.                 )

  440. 

  441. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

  442. ;; gmail

  443. 

  444. (setq mail-interactive t

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

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

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

  448.       smtpmail-smtp-service 587

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

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

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

  452. 

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

  454. ;; buffer killing

  455. 

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

  457.   ""

  458.   (interactive)

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

  460.       (kill-buffer (current-buffer))))

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

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

  463. 

  464. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

  465. ;; for emacsclient

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

  467. 

  468. 

  469. 

  470. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

  471. ;; global keys

  472. 

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

  474. 

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

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

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

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

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

  480. 

  481. ;; compose window

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

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

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

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

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

  487. 

  488. ;; disable annoying keys

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

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

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

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

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

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

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

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

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

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

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

  500. 

  501. (mouse-avoidance-mode 'banish)

  502. 

  503. 

  504. 

  505. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

  506. ;; download library from web

  507. 

  508. ;; (require 'url)

  509. 

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

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

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

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

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

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

  516. ;;              (condition-case nil

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

  518. ;;                                        lpath

  519. ;;                                        t)

  520. ;;                         (and bite-compile-p

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

  522. ;;                              t))

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

  524. ;;                       nil))

  525. ;;            t)

  526. ;;          callback

  527. ;;          (funcall callback))))

  528. 

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

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

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

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

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

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

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

  536.         (progn (condition-case nil

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

  538.                           (url-copy-file url

  539.                                          lpath

  540.                                          t)

  541.                           (when bite-compile-p

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

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

  544.                         nil))

  545.                (locate-library lib))

  546.       locate-p)))

  547. 

  548. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

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

  550. 

  551. (require 'simple nil t)

  552. 

  553. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

  554. ;; share clipboard with x

  555. (when (and window-system

  556.           ;; (getenv "DESKTOP_SESSION")

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

  558.           )

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

  560.         x-select-enable-primary nil)

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

  562.   )

  563. 

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

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

  566. 

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

  568.      (executable-find "xclip")

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

  570.      (require 'xclip nil t)

  571.      (turn-on-xclip))

  572. 

  573. ;; その他のhook

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

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

  576. 

  577. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

  578. ;; mode

  579. 

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

  581.           (lambda ()

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

  583. 

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

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

  586.           (lambda ()

  587.             (view-mode 1)

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

  589.             (set-face-foreground 'diff-hunk-header-face "magenda")

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

  591.             (set-face-foreground 'diff-added-face "blue")

  592.             (set-face-foreground 'diff-changed-face "syan")

  593.             ))

  594. 

  595. ;; (ffap-bindings)

  596. 

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

  598.           (lambda ()

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

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

  601.   ""

  602.   (interactive)

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

  604.                                                  (point))))

  605. 

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

  607.           (lambda ()

  608.             ()))

  609. 

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

  611.   ""

  612.   (interactive)

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

  614. 

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

  616.           (lambda ()

  617.             (set-window-text-height (display-buffer (current-buffer) t) 7)

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

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

  620. 

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

  622. 

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

  624. 

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

  626.           (lambda ()

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

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

  629. 

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

  631. 

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

  633.           (lambda ()

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

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

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

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

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

  639. 

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

  641.           (lambda ()

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

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

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

  645. 

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

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

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

  649.                         t)

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

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

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

  653.             (lambda ()

  654.               (outline-minor-mode 1)

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

  656. 

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

  658. ;;           (lambda ()

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

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

  661. 

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

  663. ;; c-mode

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

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

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

  667.           (lambda ()

  668.             (setq c-basic-offset 2

  669.                   indent-tabs-mode nil)

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

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

  672.             ))

  673. 

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

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

  676.                         t)

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

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

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

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

  681. ;;           (lambda ()

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

  683. ;;                       'my-indent-buffer

  684. ;;                       nil

  685. ;;                       t)))

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

  687.           (lambda ()

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

  689.                                                    (interactive)

  690.                                                    (js2-enter-key)

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

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

  693.                       'js2-before-save)))

  694. 

  695. (and nil

  696.      (require 'zone nil t)

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

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

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

  700.                                   (unless (memq major-mode

  701.                                                 '(term-mode))

  702.                                     (zone)))))

  703. 

  704. (when (require 'uniquify nil t)

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

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

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

  708. 

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

  710.           (lambda()

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

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

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

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

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

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

  717. (setq view-read-only t)

  718. 

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

  720.           (lambda ()

  721.             (view-mode 1)

  722.             (setq truncate-lines nil)))

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

  724.                             'newframe

  725.                           'pushy))

  726. 

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

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

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

  730. ;;             'sgit-load))

  731. 

  732. (require 'session nil t)

  733. 

  734. (when (require 'gtkbm nil t)

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

  736. 

  737. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

  738. ;; frame buffer

  739. 

  740. (add-hook 'before-make-frame-hook

  741.           (lambda ()

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

  743. 

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

  745. 

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

  747.   ""

  748.   (setq my-frame-buffer-plist

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

  750.                    (or frame

  751.                        (selected-frame))

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

  753.                      (if lst

  754.                          (add-to-list 'lst

  755.                                       (or buf

  756.                                           (current-buffer)))

  757.                        (list (or buf

  758.                                  (current-buffer))))))))

  759. 

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

  761.   ""

  762.   (setq my-frame-buffer-plist

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

  764.                    (or frame

  765.                        (selected-frame))

  766.                    (delq (or buf

  767.                              (current-buffer))

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

  769. 

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

  771.   ""

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

  773.              (or frame

  774.                  (selected-frame))))

  775. 

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

  777.   ""

  778.   (mapcar 'kill-buffer

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

  780. 

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

  782.           'my-frame-buffer-add)

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

  784.           'my-frame-buffer-add)

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

  786.           'my-frame-buffer-add)

  787. 

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

  789.           'my-frame-buffer-remove)

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

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

  792. 

  793. 

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

  795. (defun my-execute-terminal ()

  796.   ""

  797.   (interactive)

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

  799.                window-system)

  800.            my-desktop-terminal

  801.            )

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

  803.         (start-process "terminal"

  804.                        nil

  805.                        my-desktop-terminal))

  806.     (my-term)))

  807. 

  808. (defun my-term ()

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

  810.   (interactive)

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

  812.       (eshell t)

  813.     (if (featurep 'multi-term)

  814.         (multi-term)

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

  816. 

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

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

  819.   (interactive)

  820.   (if (eq 1

  821.           (length (frame-list)))

  822.       (save-buffers-kill-emacs)

  823.     (delete-frame)))

  824. 

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

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

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

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

  829. 

  830. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

  831. ;; term mode

  832. 

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

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

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

  836.                        t)

  837.      (require 'multi-term nil t)

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

  839. 

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

  841.   ""

  842.   (interactive)

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

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

  845.     (kill-buffer)))

  846. 

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

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

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

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

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

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

  853.                                                                 (multi-term-list)))

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

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

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

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

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

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

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

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

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

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

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

  865.                             (define-key term-raw-map "\C-h" 'term-send-backspace)

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

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

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

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

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

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

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

  873.                             ;; (cua-mode 0)

  874.                             ;; (and cua-mode

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

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

  877.                             ))

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

  879. 

  880. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

  881. ;; buffer switching

  882. 

  883. (when (require 'bs nil t)

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

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

  886. 

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

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

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

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

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

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

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

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

  895.           (lambda ()

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

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

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

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

  900.             ))

  901. 

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

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

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

  905.     (with-current-buffer bf

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

  907. 

  908. (iswitchb-mode 1)

  909. 

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

  911.   ""

  912.   (interactive)

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

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

  915. 

  916. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

  917. ;; sdic

  918. 

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

  920.   ""

  921.   (interactive)

  922.   (save-window-excursion

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

  924.   (save-excursion

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

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

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

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

  929.                                                (progn (previous-line) t)

  930.                                                (point-at-eol))

  931.                                           (point-max)))))))

  932. 

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

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

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

  936. (setq sdic-window-height 7)

  937. (when (require 'sdic nil t)

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

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

  940. 

  941. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

  942. ;; vc

  943. ;; (require 'vc)

  944. 

  945. (setq vc-handled-backends nil)

  946. 

  947. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

  948. ;; gauche-mode

  949. 

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

  951. 

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

  953.   "Run gauche on other window"

  954.   (interactive)

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

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

  957.   (run-gauche))

  958. 

  959. (defun run-gauche ()

  960.   "run gauche"

  961.   (run-scheme "gosh"))

  962. 

  963. (defun scheme-send-buffer ()

  964.   ""

  965.   (interactive)

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

  967. 

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

  969.           (lambda ()

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

  971. 

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

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

  974. 

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

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

  977.                         t)

  978.   (setq auto-mode-alist

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

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

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

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

  983.             (lambda ()

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

  985. 

  986. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

  987. ;; recentf-mode

  988. 

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

  990.           'my-recentf-abbrev-list)

  991. 

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

  993.   ""

  994.   (interactive)

  995.   (let ((p (point)))

  996.     (setq recentf-list

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

  998.     (recentf-open-files)

  999.     (goto-char p)))

  1000. 

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

  1002.   ""

  1003.   (setq recentf-list

  1004.         (mapcar 'abbreviate-file-name

  1005.                 recentf-list)))

  1006. 

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

  1008.   ""

  1009.   (interactive)

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

  1011. 

  1012. (defun my-recentf-dired ()

  1013.   ""

  1014.   (interactive)

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

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

  1017.         (dired file)

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

  1019.                  ".")))))

  1020. 

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

  1022.   ""

  1023.   (interactive)

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

  1025. 

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

  1027.   ""

  1028.   (interactive)

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

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

  1031. 

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

  1033.   "get file name in recentf-mode"

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

  1035.                             ""

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

  1037.                                                             (point-at-eol))))

  1038. 

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

  1040.       recentf-max-menu-items 20

  1041.       recentf-max-saved-items 30

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

  1043. 

  1044. (when (require 'recentf nil t)

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

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

  1047.   ;;           (lambda ()

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

  1049.   (recentf-mode 1)

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

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

  1052. 

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

  1054.           (lambda ()

  1055.             (recentf-save-list)

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

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

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

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

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

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

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

  1063.             (cd "~/")))

  1064. 

  1065. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

  1066. ;; dired

  1067. 

  1068. (require 'dired)

  1069. 

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

  1071.   ""

  1072.   (interactive "P")

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

  1074.     (message "%s"

  1075.              (with-temp-buffer

  1076.                (insert-file-contents f)

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

  1078.                                                (progn (goto-line (if arg

  1079.                                                                      (prefix-numeric-value arg)

  1080.                                                                    10))

  1081.                                                       (point-at-eol)))))))

  1082. 

  1083. (defun my-dired-diff ()

  1084.   ""

  1085.   (interactive)

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

  1087.     (if (eq (car files)

  1088.             t)

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

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

  1091. 

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

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

  1094.   "pack or unpack files.

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

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

  1097.   (interactive)

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

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

  1100.                            (length infiles))

  1101.                        (car infiles))))

  1102.     (if (and onefile

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

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

  1105.           (my-unpack onefile))

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

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

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

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

  1110.                               dir-default

  1111.                               nil

  1112.                               nil

  1113.                               archive-default)

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

  1115.               ))

  1116.         (apply 'my-pack

  1117.                archive

  1118.                infiles))))

  1119.   (revert-buffer)

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

  1121.   )

  1122. 

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

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

  1125. otherwise, return extension normally."

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

  1127.       (concat "tar."

  1128.               (file-name-extension filename))

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

  1130. 

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

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

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

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

  1135.       filename

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

  1137. 

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

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

  1140.       (executable-find "7za")

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

  1142.   "7z program.")

  1143. 

  1144. (defvar my-pack-default-extension

  1145.   "7z"

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

  1147. 

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

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

  1150. otherwise, return nil."

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

  1152.     (assoc-default filename

  1153.                    my-pack-program-alist

  1154.                    'string-match-p

  1155.                    nil)))

  1156. 

  1157. (defvar my-pack-program-alist

  1158.   `(

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

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

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

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

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

  1164.     )

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

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

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

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

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

  1170. 

  1171. (defun my-unpack (archive)

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

  1173.   (interactive "fArchive to extract: ")

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

  1175.          (cmd (nth 1

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

  1177.          )

  1178.     (if cmd

  1179.         (shell-command (concat cmd 

  1180.                                " "

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

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

  1183. 

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

  1185.   "pack FILES into ARCHIVE.

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

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

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

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

  1190.          )

  1191.     (if cmd

  1192.         (shell-command (concat cmd

  1193.                                " "

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

  1195.                                " "

  1196.                                (mapconcat 'shell-quote-argument

  1197.                                           files

  1198.                                           " ")))

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

  1200. 

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

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

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

  1204.     (with-current-buffer bf

  1205.       (cd ".")

  1206.       (erase-buffer))

  1207.     (display-buffer bf)

  1208.     bf))

  1209. 

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

  1211.   ""

  1212.   (save-excursion

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

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

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

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

  1217. 

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

  1219.   "dired get disk usage"

  1220.   (interactive)

  1221.   (message "calculating du...")

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

  1223. 

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

  1225.   ""

  1226.   (interactive)

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

  1228. 

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

  1230.   ""

  1231.   (interactive)

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

  1233. 

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

  1235.   ""

  1236.   (interactive)

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

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

  1239. 

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

  1241.   ""

  1242.   (interactive)

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

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

  1245. 

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

  1247.   (message "%s  %s"

  1248.            default-directory

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

  1250.                                            (point-at-eol))))

  1251. 

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

  1253.   ""

  1254.   (interactive)

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

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

  1257.         (start-process file nil file)

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

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

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

  1261. 

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

  1263. 

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

  1265.   ""

  1266.   (interactive)

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

  1268. 

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

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

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

  1272.   )

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

  1274. 

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

  1276.   ""

  1277.   :init-value nil

  1278.   :global nil

  1279.   :lighter " ALL"

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

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

  1282.     (revert-buffer)))

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

  1284.   ""

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

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

  1287.                           dired-actual-switches)

  1288.           (setq dired-actual-switches

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

  1290.                         " "

  1291.                         dired-actual-switches)))

  1292.     (setq dired-actual-switches

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

  1294.                                             " ")

  1295.                                     ""

  1296.                                     dired-actual-switches))))

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

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

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

  1300. 

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

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

  1303. 

  1304. (require 'ls-lisp)

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

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

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

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

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

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

  1311. 

  1312. (setq dired-dwim-target t)

  1313. 

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

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

  1316. 

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

  1318. ;;           (lambda ()

  1319. ;;             (dired ".")))

  1320. 

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

  1322.           (lambda ()

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

  1344.                 (delete-file file)))))

  1345. 

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

  1347. 

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

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

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

  1351.     (delete-char 1)

  1352.     (insert cur)))

  1353. 

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

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

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

  1357. 

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

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

  1360. this subdir."

  1361. 

  1362.   (interactive "P")

  1363.   (if (dired-get-subdir)

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

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

  1366.       (dired-repeat-over-lines

  1367.        (prefix-numeric-value arg)

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

  1369. 

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

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

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

  1373.   (interactive "p")

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

  1375. 

  1376. (defun dired-mode-hooks()

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

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

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

  1380. 

  1381. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

  1382. ;; eshell

  1383. 

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

  1385.   (interactive)

  1386.   (when (< (save-excursion

  1387.              (eshell-bol)

  1388.              (point))

  1389.            (point))

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

  1391. 

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

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

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

  1395. 

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

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

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

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

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

  1401. ;;   (if args

  1402. ;;       (while args

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

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

  1405. ;;                    (file (pop args)))

  1406. ;;               (view-file file)

  1407. ;;               (goto-line line))

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

  1409. 

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

  1411. ;;   ""

  1412. ;;   )

  1413. 

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

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

  1416. 

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

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

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

  1420. ;;   (while args

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

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

  1423. ;;                (file (pop args)))

  1424. ;;           (find-file file)

  1425. ;;           (goto-line line))

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

  1427. 

  1428. (defun eshell/clear ()

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

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

  1431.     (erase-buffer)))

  1432. 

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

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

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

  1436. 

  1437. (defun eshell/v ()

  1438.   (view-mode 1))

  1439. 

  1440. (defalias 'eshell/: 'ignore)

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

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

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

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

  1445. 

  1446. (defun eshell-goto-prompt ()

  1447.   ""

  1448.   (interactive)

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

  1450. 

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

  1452.   "open eshell and change wd

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

  1454.   (interactive)

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

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

  1457.                           (eshell t)))

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

  1459.       ;; (cd dir)

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

  1461.       ;; (eshell-emit-prompt)

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

  1463.       (eshell-kill-input)

  1464.       (insert "cd " dir)

  1465.       (eshell-send-input))))

  1466. 

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

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

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

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

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

  1472. (setq eshell-highlight-prompt nil)

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

  1474. (setq eshell-prompt-function

  1475.       (lambda ()

  1476.         (with-temp-buffer

  1477.           (let (p1 p2 p3 p4)

  1478.             (insert " [")

  1479.             (setq p1 (point))

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

  1481.             (setq p2 (point))

  1482.             (insert "]"

  1483.                     "\n")

  1484.             (setq p3 (point))

  1485.             (insert user-login-name

  1486.                     "@"

  1487.                     (or (getenv "HOSTNAME")

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

  1489.                                                                 "echo ''"))

  1490.                                    0

  1491.                                    -1)))

  1492.             (setq p4 (point))

  1493.             (insert " "

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

  1495.                     " eshell\n"

  1496.                     "last:"

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

  1498.                     (if (= (user-uid)

  1499.                            0)

  1500.                         " # "

  1501.                       " $ "))

  1502.             (add-text-properties p1

  1503.                                  p2

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

  1505.             (add-text-properties p3

  1506.                                  p4

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

  1508.             (buffer-substring (point-min)

  1509.                               (point-max))))))

  1510. 

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

  1512.           (lambda ()

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

  1514.             ;;                                               (interactive)

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

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

  1517.                                                       (interactive)

  1518.                                                       (eshell-goto-prompt)

  1519.                                                       (eshell-kill-input)))

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

  1521.                                                       (interactive)

  1522.                                                       (eshell-goto-prompt)

  1523.                                                       (my-keyboard-quit)))

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

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

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

  1527.             (mapcar (lambda (alias)

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

  1529.                                    alias))

  1530.                     '(

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

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

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

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

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

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

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

  1538.                       ))

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

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

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

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

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

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

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

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

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

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

  1549.             ))

  1550. 

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

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

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

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

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

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

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

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

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

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

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

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

  1563. 

  1564. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

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

  1566. 

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

  1568. 

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

  1570. 

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

  1572.   ""

  1573.   (nth 5

  1574.        (file-attributes file)))

  1575. 

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

  1577.   ""

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

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

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

  1581. 

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

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

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

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

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

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

  1588. 

  1589. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

  1590. ;; auto saving

  1591. 

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

  1593.   "save current buffer if can without asking"

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

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

  1596.               ""))

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

  1598.                                   'ignore

  1599.                                 'message))))

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

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

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

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

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

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

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

  1607.              (save-buffer)

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

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

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

  1611. ;;          (buffer-modified-p)

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

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

  1614. 

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

  1616. 

  1617. (defun my-auto-save-this-buffer (sec &optional silent-p)

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

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

  1620.   (if sec

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

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

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

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

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

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

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

  1628. 

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

  1630. 

  1631. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

  1632. ;; misc funcs

  1633. 

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

  1635.   ""

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

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

  1638. 

  1639. (defvar my-filer nil)

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

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

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

  1643.   "open file."

  1644.   (interactive "FOpen File: ")

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

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

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

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

  1649.         ((eq system-type 'darwin)

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

  1651.         ((not (getenv "DESKTOP_SESSION"))

  1652.          (find-file file))

  1653.         (t

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

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

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

  1657.   (recentf-add-file file)

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

  1659. 

  1660. (defvar my-auto-indent-buffer-mode-list

  1661.   '(emacs-lisp-mode

  1662.     sh-mode

  1663.     js-mode

  1664.     sgml-mode

  1665.     c-mode

  1666.     c++-mode))

  1667. (setq my-auto-indent-buffer-mode-list nil) ;disable

  1668. (defun my-indent-buffer ()

  1669.   "indent whole buffer."

  1670.   (interactive)

  1671.   (indent-region (point-min)

  1672.                  (point-max)))

  1673. (defun my-auto-indent-buffer ()

  1674.   ""

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

  1676.     (my-indent-buffer)))

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

  1678.           'my-auto-indent-buffer)

  1679. 

  1680. (defun my-keyboard-quit ()

  1681.   ""

  1682.   (interactive)

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

  1684.   ;; (redisplay t)

  1685.   (redraw-display)

  1686.   ;; (run-hooks 'window-configuration-change-hook)

  1687.   (my-revert-buffer-if-needed)

  1688.   ;; (revert-buffer t t)

  1689.   (keyboard-quit)

  1690.   (insert "insert me")

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

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

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

  1694. 

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

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

  1697. this is test, does not rename files"

  1698.   (interactive)

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

  1700. 

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

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

  1703.   (interactive)

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

  1705. 

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

  1707.   ""

  1708.   (interactive)

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

  1710.                                       (point-at-eol))

  1711.                     "\n")))

  1712. 

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

  1714.   "get current filename"

  1715.   (interactive)

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

  1717.     (if file

  1718.         (progn (kill-new file)

  1719.                (message file))

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

  1721. 

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

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

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

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

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

  1727. ;;                              "parsec47"

  1728. ;;                              "chromium-browser"

  1729. ;;                              "inkscape"

  1730. ;;                              "audacious"

  1731. ;;                              "gnome-terminal"

  1732. ;;                              "zkaicd.py"

  1733. ;;                              "glchess"))

  1734. 

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

  1736. ;;   "execute something"

  1737. ;;   (interactive)

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

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

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

  1741. ;;                           (eval-buffer))

  1742. ;;       (start-process "ps"

  1743. ;;                      nil

  1744. ;;                      func))))

  1745. 

  1746. (defvar my-revert-buffer-if-needed-last-buffer nil)

  1747. 

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

  1749.   ""

  1750.   (interactive)

  1751.   (unless (eq my-revert-buffer-if-needed-last-buffer (current-buffer))

  1752.     (setq my-revert-buffer-if-needed-last-buffer (current-buffer))

  1753.     (when (or (eq major-mode 'dired-mode)

  1754.               (not (verify-visited-file-modtime (current-buffer))))

  1755.       (revert-buffer t t)

  1756.       (message "%s reverted." (buffer-name)))))

  1757. 

  1758. (add-hook 'post-command-hook ; 'window-configuration-change-hook

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

  1760. 

  1761. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

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

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

  1764. 

  1765. (defun my-window-organizer ()

  1766.   "Control window size and position."

  1767.   (interactive)

  1768.   (save-selected-window

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

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

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

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

  1773.           action

  1774.           c)

  1775.       (catch 'end-flag

  1776.         (while t

  1777.           (setq action

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

  1779.                                                   (window-width)

  1780.                                                   (window-height))))

  1781.           (setq c (aref action 0))

  1782.           (cond ((= c ?l)

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

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

  1785.                 ((= c ?h)

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

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

  1788.                 ((= c ?j)

  1789.                  (enlarge-window 1))

  1790.                 ((= c ?k)

  1791.                  (shrink-window 1))

  1792.                 ((= c ?o)

  1793.                  (other-window 1))

  1794.                 ((memq c '(?d ?0))

  1795.                  (unless (eq (selected-window) (next-window (selected-window) 0 1))

  1796.                    (delete-window (selected-window))))

  1797.                 ((= c ?1)

  1798.                  (delete-other-windows))

  1799.                 ((= c ?2)

  1800.                  (split-window-vertically))

  1801.                 ((= c ?3)

  1802.                  (split-window-horizontally))

  1803.                 ((memq c '(?q ?\C-g))

  1804.                  (message "Quit")

  1805.                  (throw 'end-flag t))

  1806.                 (t

  1807.                  (beep))))))))

  1808. ;; (aref (read-key-sequence-vector "aa") 0)

  1809. 

  1810. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

  1811. ;; save and restore frame size

  1812. ;;http://www.bookshelf.jp/soft/meadow_30.html#SEC416

  1813. (defun my-window-size-save ()

  1814.   (let* ((rlist (frame-parameters (selected-frame)))

  1815.          (ilist initial-frame-alist)

  1816.          (nCHeight (frame-height))

  1817.          (nCWidth (frame-width))

  1818.          (tMargin (if (integerp (cdr (assoc 'top rlist)))

  1819.                       (cdr (assoc 'top rlist)) 0))

  1820.          (lMargin (if (integerp (cdr (assoc 'left rlist)))

  1821.                       (cdr (assoc 'left rlist)) 0))

  1822.          buf

  1823.          (file "~/.emacs.d/.framesize.el")

  1824.          (recentf-exclude '("\\.emacs\\.d/\\.framesize\\.el$")))

  1825.     (if (get-file-buffer (expand-file-name file))

  1826.         (setq buf (get-file-buffer (expand-file-name file)))

  1827.       (setq buf (find-file-noselect file)))

  1828.     (set-buffer buf)

  1829.     (erase-buffer)

  1830.     (insert (concat

  1831.              ;; 初期値をいじるよりも modify-frame-parameters

  1832.              ;; で変えるだけの方がいい?

  1833.              "(delete 'width default-frame-alist)\n"

  1834.              "(delete 'height default-frame-alist)\n"

  1835.              "(delete 'top default-frame-alist)\n"

  1836.              "(delete 'left default-frame-alist)\n"

  1837.              "(setq default-frame-alist (append (list\n"

  1838.              "'(width . " (int-to-string nCWidth) ")\n"

  1839.              "'(height . " (int-to-string nCHeight) ")\n"

  1840.              "'(top . " (int-to-string tMargin) ")\n"

  1841.              "'(left . " (int-to-string lMargin) "))\n"

  1842.              "default-frame-alist))\n"

  1843.              ;;"(setq default-frame-alist default-frame-alist)"

  1844.              ))

  1845.     (save-buffer)

  1846.     ))

  1847. (defun my-window-size-load ()

  1848.   (let* ((file "~/.emacs.d/.framesize.el"))

  1849.     (if (file-exists-p file)

  1850.         (load file))))

  1851. (when window-system

  1852.   (my-window-size-load)

  1853.   (add-hook 'after-init-hook      ;何かがframeの大きさ勝手に変えやがる

  1854.             (lambda ()

  1855.               (run-with-timer 1

  1856.                               nil

  1857.                               (lambda ()

  1858.                                 (modify-frame-parameters (selected-frame)

  1859.                                                          default-frame-alist))))

  1860.             t)

  1861.   (add-hook 'kill-emacs-hook

  1862.             'my-window-size-save))

  1863. 

  1864. ;; windowサイズを固定

  1865. ;; setq default-frame-alist

  1866. ;;       (append (list '(width . 80)

  1867. ;; 		    '(height . 35)

  1868. ;; 	      )

  1869. ;; 	      default-frame-alist)

  1870. ;; ) ;;デフォルトのフレーム設定

  1871. 

  1872. ;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

  1873. ;; ;; emacsを殺伐とさせる

  1874. ;; ;; 補完させるとき失敗するからなし

  1875. ;; ;; http://e-arrows.sakura.ne.jp/2010/05/emacs-should-be-more-savage.html

  1876. ;; (defadvice message (before message-for-stupid (arg &rest arg2) activate)

  1877. ;;   (setq arg

  1878. ;;         (concat arg

  1879. ;;                 (if (eq nil (string-match "\\. *$" arg)) ".")

  1880. ;;                 " And You are a Coward!")))

  1881. 

  1882. 

  1883. 

  1884. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

  1885. ;; ubuntu

  1886. 

  1887. (defun my-load-scim ()

  1888.   "use scim-bridge.el as japanese im."

  1889.   ;; Load scim-bridge.

  1890.   (require 'scim-bridge)

  1891.   ;; Turn on scim-mode automatically after loading .emacs

  1892.   (add-hook 'after-init-hook 'scim-mode-on)

  1893.   (setq scim-cursor-color "red")

  1894.   (scim-define-preedit-key ?\^h t)

  1895.   (scim-define-common-key ?\* nil)

  1896.   (scim-define-common-key ?\^/ nil))

  1897. 

  1898. (defun my-load-anthy ()

  1899.   "use anthy.el as japanese im."

  1900.   ;; anthy

  1901.   (require 'anthy)

  1902.   (global-set-key [muhenkan] (lambda () (interactive) (anthy-mode-off)))

  1903.   (global-set-key [henkan] (lambda () (interactive) (anthy-mode-on)))

  1904.   (when (>= emacs-major-version 23)

  1905.     (setq anthy-accept-timeout 1)))

  1906. 

  1907. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

  1908. ;; windows用設定

  1909. 

  1910. ;; (add-to-list 'exec-path "c:/Program Files/Gauche/bin/")

  1911. 

  1912. (defun start-ckw-bash ()

  1913.   ""

  1914.   (interactive)

  1915.   (start-process "ckw_bash"

  1916.                  nil

  1917.                  "C:/Documents and Settings/sr/Application Data/dbx/apps/ckw/ckw.exe")) ; cじゃないといけないらしい

  1918. 

  1919. (defun my-w32-add-export-path (&rest args)

  1920.   ""

  1921.   (mapcar (lambda (path)

  1922.             (add-to-list 'exec-path (expand-file-name path)))

  1923.           (reverse args))

  1924.   (setenv "PATH"

  1925.           (mapconcat 'convert-standard-filename

  1926.                      exec-path

  1927.                      ";")))

  1928. 

  1929. (when (eq system-type 'windows-nt)

  1930.   ;; (setq scheme-program-name "\"c:/Program Files/Gauche/bin/gosh.exe\" -i")

  1931.   ;; (setq python-python-command "c:/Python26/python.exe")

  1932. 

  1933.   (define-key my-prefix-map (kbd "C-c") 'start-ckw-bash)

  1934.   (my-w32-add-export-path "c:/WINDOWS"

  1935.                           (expand-file-name "~/bin")

  1936.                           (expand-file-name "~/dbx/apps/bin"))

  1937. 

  1938.   (when window-system

  1939.     (setq w32-enable-synthesized-fonts t))

  1940.   (setq file-name-coding-system 'sjis))

  1941.